Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias -l oca {
- if ($u.e($2) == $false) { s PRIVMSG $2 : $+ 12[2m10J2] 12 $+ $3 $+ , no estás dado de alta. Usa 12!alta para darte de alta | halt }
- if ($readini(db\nicks.db,bonos,$2) < 4) { s PRIVMSG $1 : 12[2m10J2] 12 $+ $2 $+ , necesitas12 4 multiBonos para poder jugar a la oca. Tienes12 $readini(db\nicks.db,bonos,$2) multiBonos | halt }
- if ($readini(db\nicks.db,oca-h,$2) == 1) { s PRIVMSG $1 : 12[2m10J2] 12 $+ $2 $+ , tu ya has completado el tablero. Si quieres jugar de nuevo debes abonar12 10 multiBonos. Para abonarlos escribe 12!comprar oca | halt }
- restar_b $2 4
- :dados
- var %tmp.a = $rand(1,6)
- s PRIVMSG $1 : $+ 12[2m10J2] 12 $+ $2 $+ , tiras los dados y sacas un.. ¡5 $+ %tmp.a $+ !
- var %tmp.b = $readini(db\nicks.db,oca,$2)
- if (%tmp.b == $null) { writeini db\nicks.db oca $2 0 | writeini db\nicks.db oca-p $2 0 }
- writeini db\nicks.db oca $2 $calc(%tmp.b + %tmp.a)
- var %tmp.c = $readini(db\nicks.db,oca,$2)
- if ($readini(db\nicks.db,oca-p,$2) != 0) { s PRIVMSG $1 : $+ 1» $readini(db\nicks.db,oca-p,$2) 10» 12 $+ $2 $+ , 4acabas de perder un turno | writeini db\nicks.db oca-p $2 $calc($readini(db\nicks.db,oca-p,$2) - 1) | halt }
- if (%tmp.c == 1) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 2) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 3) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 4) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 5) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 9 | goto dados | halt }
- if (%tmp.c == 6) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de puente en puente y tiro porque... ¡4Me lleva la corriente! | writeini db\nicks.db oca $2 12 | goto dados | halt }
- if (%tmp.c == 7) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 8) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 9) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 14 | goto dados | halt }
- if (%tmp.c == 10) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 11) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 12) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de puente en puente y tiro porque... ¡4Me lleva la corriente! | writeini db\nicks.db oca $2 6 | goto dados | halt }
- if (%tmp.c == 13) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 14) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 18 | goto dados | halt }
- if (%tmp.c == 15) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 16) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 17) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 18) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 23 | goto dados | halt }
- if (%tmp.c == 19) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ pero... te paras a descansar en la posada y 4pierdes un turno | writeini db\nicks.db oca-p $2 1 | halt }
- if (%tmp.c == 20) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 21) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 22) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 23) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 27 | goto dados | halt }
- if (%tmp.c == 24) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 25) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 26) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de dado a dado y tiro porque... ¡5Me ha tocado! | writeini db\nicks.db oca $2 53 | goto dados | halt }
- if (%tmp.c == 27) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 32 | goto dados | halt }
- if (%tmp.c == 28) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 29) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 30) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 31) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ pero... un extraño agujero te sumerge! 4pierdes 5 turnos | writeini db\nicks.db oca-p $2 5 | halt }
- if (%tmp.c == 32) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 36 | goto dados | halt }
- if (%tmp.c == 33) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 34) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 35) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 36) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 41 | goto dados | halt }
- if (%tmp.c == 37) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 38) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 39) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 40) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 41) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 45 | goto dados | halt }
- if (%tmp.c == 42) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ pero... ¡un laberinto te atrapa y te arrastra a la casilla 30! | writeini db\nicks.db oca $2 30 | halt }
- if (%tmp.c == 43) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 44) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 45) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 45 | goto dados | halt }
- if (%tmp.c == 46) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 47) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 48) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 49) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 50) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y tiro porque... ¡5Me toca! | writeini db\nicks.db oca $2 54 | goto dados | halt }
- if (%tmp.c == 51) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 52) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ pero... ¡4Te quedas entre rejas y pierdes 3 turnos! | writeini db\nicks.db oca-p $2 3 | halt }
- if (%tmp.c == 53) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de dado a dado y tiro porque... ¡5Me ha tocado! | writeini db\nicks.db oca $2 26 | goto dados | halt }
- if (%tmp.c == 54) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 55) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 56) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 57) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 58) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ 14¡Alguien te envenena, y al despertarte apareces al principio del juego! | writeini db\nicks.db oca $2 1 | halt }
- if (%tmp.c == 59) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , de oca en oca y ... | goto ganador | halt }
- if (%tmp.c == 60) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 61) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 62) { s PRIVMSG $1 : $+ » %tmp.b 10» 12 $+ $2 $+ , caes en la casilla12 %tmp.c $+ | halt }
- if (%tmp.c == 63) {
- :ganador
- s PRIVMSG $1 : $+ » 63 10» 12 $+ $2 $+ , ¡Ganas el juego!12 10.000.000 multi€uros ahora forman parte de tu monedero!
- s PRIVMSG %config.canal_o : $+ 12[2m10J2] 12 $+ $2 $+ completa el juego de la oca en el canal 12 $+ $1 $+
- sumar_d $2 10000000
- beneficio $2 10000000
- writeini db\nicks.db oca $2 1
- writeini db\nicks.db oca-h $2 1
- halt
- }
- if (%tmp.c > 63) {
- writeini db\nicks.db oca $2 $calc(63 - %tmp.a)
- s PRIVMSG $1 : $+ » 63 10» 12 $+ $2 $+ , rebotas al final del tablero y apareces en la casilla 12 $readini(db\nicks.db,oca,$2) $+
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement