//=========================================================
//= TragaMonedas
//=====Elaborado por: =====================================
//= Wong (Dolbar)
//===== Version ===========================================
//= 1.0
//===== Descripcion =======================================
//= Este NPC es una maquina tragamonedas la cual por un
//= precio configurable empiezas a jugar, el juego consiste
//= en numeros aleatorios desde el cero hasta el 9 en 3
//= columnas, si hace una linea de numeros iguales en forma
//= horizontal o diagonal gana una cantidad de dinero
//= configurable.
//===== Opciones Configurable =============================
//= Costo del juego: @preciojuego
//= Premio obtenido: @premiojuego
//=========================================================
prontera.gat,147,165,5 script Maquina Tragamonedas 888,{
set @preciojuego, 1000;
set @premiojuego, 300000;
mes "[Traga Fichas]";
mes "¿Deseas jugar?";
next;
menu "Si",s_getnum1,"No",nojugar;
close;

//numeros de la 1ra columna
s_getnum1:
set @f1c1,rand(0,9);
goto s_getnum2;
s_getnum2:
set @f2c1,rand(0,9);
if (@f2c1 == @f1c1) goto s_getnum2;
goto s_getnum3;
s_getnum3:
set @f3c1,rand(0,9);
if (@f3c1 == @f1c1 || @f3c1 == @f2c1) goto s_getnum3;
goto s_getnum4;

//numeros de la 2da columna
s_getnum4:
set @f1c2,rand(0,9);
goto s_getnum5;
s_getnum5:
set @f2c2,rand(0,9);
if (@f2c2 == @f1c2) goto s_getnum5;
goto s_getnum6;
s_getnum6:
set @f3c2,rand(0,9);
if (@f3c2 == @f1c2 || @f3c2 == @f2c2) goto s_getnum6;
goto s_getnum7;

//numeros de la 2da columna
s_getnum7:
set @f1c3,rand(0,9);
goto s_getnum8;
s_getnum8:
set @f2c3,rand(0,9);
if (@f2c3 == @f1c3) goto s_getnum8;
goto s_getnum9;
s_getnum9:
set @f3c3,rand(0,9);
if (@f3c3 == @f1c3 || @f3c3 == @f2c3) goto s_getnum9;
goto c_jugar;
c_jugar:
                if (Zeny<@preciojuego) goto falta_zeny;
set Zeny,Zeny-@preciojuego;
mes "A darle!!!!";
next;
goto s_mostrar;

//desplegar los resultados
s_mostrar:
mes "Veamos los resultados...";
next;
mes "Tus numeros son:";
mes " ";
mes "["+@f1c1+"]["+@f1c2+"]["+@f1c3+"]";
mes "["+@f2c1+"]["+@f2c2+"]["+@f2c3+"]";
mes "["+@f3c1+"]["+@f3c2+"]["+@f3c3+"]";
mes " ";

//Verificar si hizo linea
if (@f1c1 == @f1c2 && @f1c2 == @f1c3) goto s_gana;
if (@f2c1 == @f2c2 && @f2c2 == @f2c3) goto s_gana;
if (@f3c1 == @f3c2 && @f3c2 == @f3c3) goto s_gana;
if (@f1c1 == @f2c2 && @f2c2 == @f3c3) goto s_gana;
if (@f3c1 == @f2c2 && @f2c2 == @f1c3) goto s_gana;
goto s_pierde;

//Mostrar anuncio ganador y entregar premio
s_gana:
mes "En hora buena, haz ganado!!!";
set Zeny,Zeny+@premiojuego;
announce "El jugador "+ strcharinfo(0) +" ha ganado "+ @premiojuego +" Zenys",bc_all,0xFFFFFF;
next;
mes "¿Volver a intentar?";
next;
menu "Si",s_getnum1,"No",nojugar;
close;

//Mostrar anuncio de que no ganó y salir
s_pierde:
mes "Haz perdido.... ";
next;
mes "¿Volver a intentar?";
next;
menu "Si",s_getnum1,"No",nojugar;
Close;

nojugar:
mes "No quisiste jugar";
close;

falta_zeny:
mes "No tienes suficiente dinero";
close;
}