Author Id: 28493
Author Name: Dani_SR_17
Post Content: [IMG]http://wahackforo.com/img/28493/444/3271.png[/IMG]

Lotería Pokémon "La Pokéria"

Hola a todos, este es mis primer tutorial en este foro :D

Actualizado, arreglos en probabilidades, muestra el nombre y la imagen del Pokémon

Traigo un sencillo, pero a su vez útil script.

El script básicamente simula una lotería, en la cual podeis conseguir un Pokémon aleatorio de la 1º, 2º o 3º gen.
Dicho Pokémon tiene puede estar al 5 al 20 o al 50, con las siguientes probabilidades.
[LIST]
[*]Nivel 5 -> Prob = 70/80
[*]Nivel 20 -> Prob = 9/80
[*]Nivel 50 -> Prob = 1/80
[/LIST]

Todos los Pokémon tienen la misma probabilidad :blush:

Si pagas un extra, tienes 1/2 de prob de que sea Shiny, si no lo pagas tienes un 1/10 de prob. (Requiere esta rutina: [URL="http://wahackforo.com/t-12234/gba-scripting-pokemones-brillantes"]Sinyzer[/URL])


En mi Script, pido 5.000 de dinero cada vez que se juegue y 2.500 para Shiny, pero la cifra es muy fácil de variar o.O

Añadido sonido al recibir el Pokémon.

Ahora te dice el nombre del Pokémon y te muestra su imagen.




Os dejo un vídeo en el que pruebo el script.

[URL=http://www.youtube.com/watch?v=6wqGMEwXRew]YouTube Video[/URL]
Siento la mala calidad del vídeo y los errores en los textos, pero hoy mi ordenador va a tirones...

Y aquí tenéis el Script :D
Podéis descargarlo de este enlace (Viene con Room lista para probarlo).
[URL="https://www.mediafire.com/?5rakmi0e0urf5io"]Enlace[/URL]




O lo podeís copiar de aquí.

#dynamic 0x800000

#org @start
lock
faceplayer
showmoney 0x0 0x0 0x0
msgbox @bienvenido 0x5 'Te pregunta si quieres jugar
compare LASTRESULT 0x1
if 0x1 goto @jugar
msgbox @adios 0x6
hidemoney 0x0 0x0
release
end

#org @jugar 'Comienza el script.
checkmoney 0x1388 0x0 'Comprueba si tienes el dinero suficiente, en este caso 5.000
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x1388 0x0 'Pagas la cantidad que elijas, en este caso 5.000
msgbox @vamos 0x6
msgbox @quieroshiny 0x5 'Te pregunta si quieres que sea más prbable que sea shiny
compare LASTRESULT 0x1
if 0x1 goto @siquieroshiny
if 0x0 goto @noquieroshiny

#org @siquieroshiny '1/2 de prob de que sea shiny (si pagas)
checkmoney 0x9C4 0x0
compare LASTRESULT 0x1
if 0x0 goto @nomoneyshiny
paymoney 0x9C4 0x0
random 0x2
compare LASTRESULT 0x0
if 0x1 goto @esshiny
if 0x2 goto @suerte

#org @nomoneyshiny
msgbox @nomonshiny 0x5
compare LASTRESULT 0x1
if 0x1 goto @noquieroshiny
if 0x0 goto @adios

#org @esshiny
setvar 0x8003 0x1
goto @suerte

#org @noquieroshiny '1/10 de prob de que sea shiny
random 0xB
compare LASTRESULT 0x0
if 0x1 goto @esshiny
if 0x2 goto @suerte


#org @suerte
pause 0x20
sound 0x30
pause 0x20
random 0x17F
compare LASTRESULT 0xFA 'La región de la que va a ser el poke.
if 0x3 goto [MENTION=13560]kan[/MENTION]toojohto
if 0x2 goto @hoen



' Si sale Kanto o Johto

#org [MENTION=13560]kan[/MENTION]toojohto
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5koj
if 0x1 goto @nivel50koj
if 0x2 goto @nivel20koj


#org @nivel5koj
random 0xFB
addvar LASTRESULT 0x1
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidepokepic
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20koj
random 0xFB
addvar LASTRESULT 0x1
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidepokepic
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50koj
random 0xFB
addvar LASTRESULT 0x1
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidepokepic
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end



' Si sale Hoen

#org @hoen
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5h
if 0x1 goto @nivel50h
if 0x2 goto @nivel20h

#org @nivel5h
random 0x86
addvar LASTRESULT 0x115
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidepokepic
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20h
random 0x86
addvar LASTRESULT 0x115
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50h
random 0x86
addvar LASTRESULT 0x115
bufferpokemon 0x0 LASTRESULT
showpokepic LASTRESULT 0x14 0x24
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios2 0x6
hidepokepic
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end






#org @nomoney 'Si no tienes suficiente dinero vienes aquí.
msgbox @dinero 0x6
hidemoney 0x0 0x0
release
end

#org @quieroshiny
= ¿Deseas que sea más probable que\nsea shiny?, solo son 2.500 más.

#org @bienvenido
= Bienvenido la Pokéria, aquí podrás\nprobar suerte intentando conseguir\lun Pokémon aleatorio a un nivel\laleatorio.\pSon solo 5.000 ¿Deseas\nprobar suerte?

#org @vamos
= Vamos a ver si tienes suerte.

#org @adios
= Hasta la vista, vuelve cuando\nquieras.

#org @dinero
= No tienes suficiente dinero...

#org @adios2
= ¡Enorabuena, has conseguido un\n!\pVuelve cuando quieras.

#org @nomonshiny
= No tienes dinero suficiente para\npagar el extra para que sea más\lprobable que sea shiny, ¿Deseas\lseguir jugando igualmente?


[SPOILER="Versiones antiguas"]
Os dejo un vídeo en el que pruebo el script.

[URL=http://www.youtube.com/watch?v=qD64sqb0S0Q]YouTube Video[/URL]
Siento la mala calidad del vídeo y los errores en los textos, pero hoy mi ordenador va a tirones...

Y aquí tenéis el Script :D
Podéis descargarlo de este enlace (Viene con Room lista para probarlo).
[URL="https://www.mediafire.com/?axmal799y4vjj3v"]Enlace[/URL]




O lo podeís copiar de aquí.
#dynamic 0x800000

#org @start
lock
faceplayer
showmoney 0x0 0x0 0x0
msgbox @bienvenido 0x5 'Te pregunta si quieres jugar
compare LASTRESULT 0x1
if 0x1 goto @jugar
msgbox @adios 0x6
hidemoney 0x0 0x0
release
end

#org @jugar 'Comienza el script.
checkmoney 0x1388 0x0 'Comprueba si tienes el dinero suficiente, en este caso 5.000
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x1388 0x0 'Pagas la cantidad que elijas, en este caso 5.000
msgbox @vamos 0x6
setvar 0x40FF 0x0 'Reinicio de variables
setvar 0x40FE 0x0
setvar 0x40FD 0x0
msgbox @quieroshiny 0x5 'Te pregunta si quieres que sea más prbable que sea shiny
compare LASTRESULT 0x1
if 0x1 goto @siquieroshiny
if 0x0 goto @noquieroshiny

#org @siquieroshiny '1/2 de prob de que sea shiny (si pagas)
checkmoney 0x9C4 0x0
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x9C4 0x0
random 0x1
compare LASTRESULT 0x0
if 0x1 goto @esshiny
if 0x2 goto @suerte

#org @esshiny
setvar 0x8003 0x1
goto @suerte

#org @noquieroshiny '1/10 de prob de que sea shiny
random 0x9
compare LASTRESULT 0x0
if 0x1 goto @esshiny
if 0x2 goto @suerte


#org @suerte
pause 0x20
sound 0x30
pause 0x20
random 0x17F
compare LASTRESULT 0xFA 'La región de la que va a ser el poke.
if 0x3 goto    [MENTION=13560]kan[/MENTION]toojohto
if 0x2 goto @hoen



' Si sale Kanto o Johto

#org    [MENTION=13560]kan[/MENTION]toojohto
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5koj
if 0x1 goto @nivel50koj
if 0x2 goto @nivel20koj

#org @nivel5koj
random 0xFA
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20koj
random 0xFA
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50koj
random 0xFA
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end



' Si sale Hoen

#org @hoen
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5h
if 0x1 goto @nivel50h
if 0x2 goto @nivel20h

#org @nivel5h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end







#org @nomoney 'Si no tienes suficiente dinero vienes aquí.
msgbox @dinero 0x6
hidemoney 0x0 0x0
release
end

#org @quieroshiny
= ¿Deseas que sea más probable que\nsea shiny?, solo son 2.500 más.

#org @bienvenido
= Bienvenido la Pokéria, aquí podrás\nprobar suerte intentando conseguir\lun Pokémon aleatorio a un nivel\laleatorio.\pSon solo 5.000 ¿Deseas\nprobar suerte?

#org @vamos
= Vamos a ver si tienes suerte.

#org @adios
= Hasta la vista, vuelve cuando\nquieras.

#org @dinero
= No tienes suficiente dinero...



[SPOILER="Versión antigua"]Os dejo un vídeo en el que pruebo el script.

[URL=http://www.youtube.com/watch?v=GYAr67f8Ri4]YouTube Video[/URL]
Siento la mala calidad del vídeo y los errores en los textos, pero hoy mi ordenador va a tirones...


Y aquí el script para descargarlo: [URL="https://www.mediafire.com/?wyvx6ngylmt9zq2"]Script[/URL]

Y aquí el script, para los que no lo quieran descargar.

#dynamic 0x800000

#org @start
lock
faceplayer
showmoney 0x0 0x0 0x0
msgbox @bienvenido 0x5 'Te pregunta si quieres jugar
compare LASTRESULT 0x1
if 0x1 goto @jugar
msgbox @adios 0x6
hidemoney 0x0 0x0
release
end

#org @jugar 'Comienza el script.
checkmoney 0x1388 0x0 'Comprueba si tienes el dinero suficiente, en este caso 5.000
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x1388 0x0 'Pagas la cantidad que elijas, en este caso 5.000
msgbox @vamos 0x6
setvar 0x40FF 0x0 'Reinicio de variables
setvar 0x40FE 0x0
setvar 0x40FD 0x0
random 0x2
compare LASTRESULT 0x1 'La región de la que va a ser el poke.
if 0x0 goto     [MENTION=13560]kan[/MENTION]to
if 0x1 goto @johto
if 0x2 goto @hoen




' Si sale Kanto

#org     [MENTION=13560]kan[/MENTION]to
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5k
if 0x1 goto @nivel50k
if 0x2 goto @nivel20k

#org @nivel5k
random 0x98
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20k
random 0x98
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50k
random 0x98
addvar LASTRESULT 0x1
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end




' Si sale Johto

#org @johto
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5j
if 0x1 goto @nivel50j
if 0x2 goto @nivel20j

#org @nivel5j
random 0x63
addvar LASTRESULT 0x98
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20j
random 0x63
addvar LASTRESULT 0x98
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50j
random 0x63
addvar LASTRESULT 0x98
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end




' Si sale Hoen

#org @hoen
random 0x51
compare LASTRESULT 0x46 'Nivel 5, 70/80. Nivel 20, 9/50. Nivel 50 1/80. Estas son las probabilidades.
if 0x0 goto @nivel5h
if 0x1 goto @nivel50h
if 0x2 goto @nivel20h

#org @nivel5h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x5 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel20h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x14 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end

#org @nivel50h
random 0x86
addvar LASTRESULT 0x116
givepokemon LASTRESULT 0x32 0x0 0x0 0x0 0x0
msgbox @adios 0x6
hidemoney 0x0 0x0
setflag 0x828 'Activa el menu de los Pokémon, por si se usa al comienzo de un hack.
release
end







#org @nomoney 'Si no tienes suficiente dinero vienes aquí.
msgbox @dinero 0x6
hidemoney 0x0 0x0
release
end

#org @bienvenido
= Bienvenido la Pokéria, aquí podrás\nprobar suerte intentando conseguir\lun Pokémon aleatorio a un nivel\laleatorio.\pSon solo 5.000 ¿Deseas\nprobar suerte?

#org @vamos
= Vamos a ver si tienes suerte.

#org @adios
= Hasta la vista, vuelve cuando\nquieras.

#org @dinero
= No tienes suficiente dinero...[/SPOILER][/SPOILER]


Espero que os guste ;)