Últimos Codigos Enviados

Top Snippets mejor calificados

Top Me gustan Snippets

Últimos Artículos

Lo mas popular

Iniciar Sesión

Nombre de Usuario

Contraseña



¿No eres miembro?
Regístrate aquí.

¿Contraseña olvidada?
Recupera tu contraseña.

Usuarios Conectados

· Invitados: 1
· Miembros: 0
· Total Miembros: 352
· Último Miembro: DaNnY

Últimas Visitas:

SykO 3 días
FsDk 5 días
AfraN 9 Semanas
NiGhT 10 Semanas
MaCLeoD 29 Semanas
kn1ght 36 Semanas
aM3 42 Semanas
Zetup 58 Semanas
slim 91 Semanas
El_tio_la... 106 Semanas

Últimas Descargas

Últimos Comentarios

Mini Charla

Tienes que logearte para enviar un mensaje.

11-01-2018 09:31
0_o

04-07-2017 22:29
Angry Sad Angry

13-05-2017 00:03
omg saludos a todos!!

21-01-2017 21:03
Shock Grin Shock

07-01-2017 01:25
Angry Sad Angry Cool

Codigos Snippets

WormZ -> Snippets > mIRC Scripting > Blackjack (Concepto)

Blackjack (Concepto)

Enviado Por: SykO
Descripcion:
Simple codigo que puedes utilizar para crear Blackjack.

Nota: creado en mIRC v7.57
Codigo:
  1. alias blackjack {
  2. ; Todas las cartas D = Diamond, H = Heart, S = Spade, C = Club
  3. set -u %cartas DA D2 D3 D4 D5 D6 D7 D8 D9 D10 DJ DQ DK $&
  4. HA H2 H3 H4 H5 H6 H7 H8 H9 H10 HJ HQ HK $&
  5. SA S2 S3 S4 S5 S6 S7 S8 S9 S10 SJ SQ SK $&
  6. CA C2 C3 C4 C5 C6 C7 C8 C9 C10 CJ CQ CK
  7.  
  8. ; comienza juego
  9. darCarta 1
  10. darCarta 2
  11. darCarta 3
  12. darCarta 4
  13. darCarta 5
  14.  
  15. ; turno 2
  16. darCarta 1
  17. darCarta 2
  18. darCarta 3
  19. darCarta 4
  20. darCarta 5
  21.  
  22. ; turno 3
  23. darCarta 1
  24. darCarta 2
  25. darCarta 3
  26. darCarta 4
  27. darCarta 5
  28.  
  29. echo -a Jugador 1: $valorDeCartas(1) $colorizar(%jugador_1) $&
  30. Jugador 2: $valorDeCartas(2) $colorizar(%jugador_2) $&
  31. Jugador 3: $valorDeCartas(3) $colorizar(%jugador_3) $&
  32. Jugador 4: $valorDeCartas(4) $colorizar(%jugador_4) $&
  33. Jugador 5: $valorDeCartas(5) $colorizar(%jugador_5)
  34. }
  35.  
  36. alias -l darCarta {
  37. set -l %pos $rand(1,$numtok(%cartas,32))
  38.  
  39. set -u %jugador_ [ $+ [ $1 ] ] %jugador_ [ $+ [ $1 ] ] $gettok(%cartas,%pos,32)
  40.  
  41. set -u %cartas $deltok(%cartas,%pos,32)
  42. }
  43.  
  44. alias -l valorDeCartas {
  45. set -l %valor1 0
  46. set -l %valor2 0
  47.  
  48. set -l %cartas %jugador_ [ $+ [ $1 ] ]
  49. set -l %cartas1 $replace(%cartas,A,1,J,10,Q,10,K,10)
  50. set -l %cartas2 $replace(%cartas,A,11,J,10,Q,10,K,10)
  51.  
  52. set -l %i $numtok(%cartas,32)
  53. while (%i) {
  54. inc %valor1 $mid($gettok(%cartas1,%i,32),2)
  55. inc %valor2 $mid($gettok(%cartas2,%i,32),2)
  56.  
  57. dec %i
  58. }
  59.  
  60. if (%valor1 == 21) return %valor1
  61. if (%valor2 == 21) return %valor2
  62.  
  63. if (%valor1 < 21) && (%valor2 > 21) && (%valor1 < %valor2) return %valor1
  64.  
  65. return %valor2
  66. }
  67.  
  68. alias -l colorizar return $regsubex($1,/\b(D|H|S|C)(A|\d+|J|Q|K)\b/g,$colorizarTipo(\1) \2 )
  69.  
  70. alias -l colorizarTipo {
  71. if ($1 == D) return 04,00 $chr(9830)
  72. if ($1 == H) return 04,00 $chr(9829)
  73. if ($1 == S) return 01,00 $chr(9824)
  74. return 01,00 $chr(9827)
  75. }

©

Table 'wormz_escripting.wormzbot_simpladd' doesn't exist =

Reset

Commentarios


0

0
Promedio de Puntuacion: (0)  0
There are no comments for this snippet
EScripting.NET #eScripting, ChatHispano utiliza cookies. Las cookies nos permiten ofrecer nuestros servicios. Más información. Por favor, haga clic en el botón Aceptar para ocultar esta barra y aceptar nuestras cookies. Si usted continúa utilizando Nuestro sitio sin realizar ninguna acción, vamos a suponer que usted consiente nuestras cookies de todos modos.
Cookiebar Panel fromVenue
Generado en 0.13 segundos
2,073,222 Visitas Únicas