Recopilación de Scripts de Dani_SR_17 [Actualizado 11/01/2015]

Avisos

Like Tree22Gracias

Respuesta
 
Herramientas Desplegado
  #1  
13/06/2014
Bombilla Recopilación de Scripts de Dani_SR_17 [Actualizado 11/01/2015]
SCRIPTS DE DANI_SR_17



Hola a todos, aunque no tengo muchos scripts, he decidio hacer una recopilación de todos ellos, para acceder a todos sin estar mirando en todos los post, aun así si saco alguno nuevo lo posteare, y luego lo añadiré aquí.


Índice de los post:

También, usaré este post para noticias y novedades sobre mis scripts, ya sea por actualizaciones o por proyectos.




Aquí teneís cada post dentro de un spolier





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


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



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

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

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.
  • Nivel 5 -> Prob = 70/80
  • Nivel 20 -> Prob = 9/80
  • Nivel 50 -> Prob = 1/80

Todos los Pokémon tienen la misma probabilidad

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: Sinyzer)


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

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.


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
Podéis descargarlo de este enlace (Viene con Room lista para probarlo).




O lo podeís copiar de aquí.

Código:
#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             
@kan
toojohto
if 0x2 goto @hoen



' Si sale Kanto o Johto

#org             
@kan
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[buffer1]!\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?

Versiones antiguas


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


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
Podéis descargarlo de este enlace (Viene con Room lista para probarlo).




O lo podeís copiar de aquí.
Código:
#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                
@kan
toojohto
if 0x2 goto @hoen



' Si sale Kanto o Johto

#org                
@kan
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...

Versión antigua

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


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: Script

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

Código:
#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                 
@kan
to
if 0x1 goto @johto
if 0x2 goto @hoen




' Si sale Kanto

#org                 
@kan
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...



Espero que os guste





La Quimerización


La Quimerización



La Quimerización



Bienvenido a este nuevo script echo por mí


Hoy traigo un script algo más complejo que el de La Pokéria, pero más cortito, aunque a pesar de ello, no deja de ser útil



Bueno, concreto más

Os traigo un script que te permite implantar un sencillo sistema de evolución, intercambio o incluso para ¡¡¡insertar quimeras!!!

Básicamente el script lo que hace es comprobar primero que llevas un determinado nº de Pokémon, en este caso 2, después comprueba si son los que hay en el script.
Y ya por último, "vacía" tu equipo y te da tu nuevo Pokémon.


Es muy fácil usarlo y codificarlo, con el podéis conseguir hacer intercambios en el juego, apostar Pokémon o como ya he dicho si insertáis alguna quimera en el juego, que mejor manera para conseguir que "Fusionando" los Pokémon por los que está compuesta.


El script es extensible a tantas "fusiones" como quieras y puede pedir los Pokémon que quieras.


Aquí tenéis un vídeo de prueba





Aquí una Rom con el Script ya insertado y el Script



Y aquí el Script (Para los vagos)

Código:
#dynamic 0x800000

#org @inicio 'Comienza el Script
msgbox @Bienvenido 0x5 'Te da la info y te pregunta si quieres continuar
compare LASTRESULT 0x1
if 0x1 goto @¿Llevas2Pokes?1
if 0x0 goto @VuelveCuandoQuieras

'------------------------------------------------------------

#org @¿Llevas2Pokes?1 'Comprueba si llevas 2 Pokes
countpokemon
compare LASTRESULT 0x2
if 0x1 goto @EstaSlowpoke
msgbox @Necesitas2 0x6
goto @VuelveCuandoQuieras

'------------------------------------------------------------

#org @EstaSlowpoke 'Comprueba si llevas 1 Slowpoke
msgbox @VerificaruebaSlowpoke 0x6
sound 0x66
pause 0x20
setvar 0x8004 0x004F
special2 LASTRESULT 0x17C
compare LASTRESULT 0x1 
if 0x1 goto @EstaShellder
goto @NoLlevasSlowpoke


#org @EstaShellder 'Comprueba si llevas 1 Shellder
msgbox @VerificaShellder 0x6
sound 0x66
pause 0x20
setvar 0x8004 0x005A
special2 LASTRESULT 0x17C
compare LASTRESULT 0x1 
if 0x1 goto            
@Fusi
on
goto @NoLlevasShellder

'------------------------------------------------------------

#org            
@Fusi
on
special 0xEF 'Vacía tu equipo
showpokepic 0x0050 0x14 0x24
msgbox @Enorabuena 0x6
givepokemon 0x0050 0x5 0x0 0x0 0x0 0x0 'Te da a Slowbro
hidepokepic
goto @VuelveCuandoQuieras

'------------------------------------------------------------

#org @NoLlevasSlowpoke 'Si no llevas a Slowpoke
msgbox @NecesitasSlowpoke 0x6
goto @VuelveCuandoQuieras


#org @NoLlevasShellder 'Si no llevas a Shellder
msgbox @NecesitasShellder 0x6
goto @VuelveCuandoQuieras

'------------------------------------------------------------

#org @VuelveCuandoQuieras 'Te dice adios xD
msgbox @Adios 0x6
end

'------------------------------------------------------------

#org @VerificaSlowpoke
= Voy a comprobar si llevas algún\nSlowpoke en el equipo, será solo\lunos instantes.

#org @VerificaShellder
= Voy a comprobar si llevas algún\nShellder en el equipo, será solo\lunos instantes.

#org @Enorabuena
= Enhorabuena, ya tienes tu Slowbro.

#org @NecesitasSlowpoke
= Lo siento, pero parece que no\nllevas ningún Slowpoke.

#org @NecesitasShellder
= Lo siento, pero parece que no\nllevas ningún Shellder.

#org @Necesitas2
= Necesitas llevar 2 Pokémon.

#org @Adios
= Vuelve cuando quieras.

#org @Bienvenido
= Bienvenido al sistema de\nQuimerización.\pActualmente solo podemos combinar\nel ADN de Shellder y Slowpoke.\lSi dispone de dichos Pokémon,\lpodrá obtener un Slowbro.\l¿Desea continuar con el proceso?


Próximas mejoras:
  • Posibilidad de Shiny.
  • Posibilidad de Error en el sistema y no te da nada.
  • Requiere llevar un determinado item.
  • Requiere pagar.
  • Más combinaciones.



Espero que os guste, y bueno, lo seguiré mejorando




PokéBlackJack


El "PokéBlackJack"


PokéBlackJack


Hola a todos, os traigo mi último script, en este ya no puedo decir que es sencillo, porque el mu jodio me ha llevado su tiempo


Os explico un poco, el Script simula el BlackJack, para jugar deberás realizar una apuesta, si ganas recibes lo que has apostado mas un 50% de la misma cantidad, si empatas te devuelven tu apuesta, si pierdes, te aguantas


Las reglas son muy sencillas, y están explicadas en el script:
- Comienzas robando 2 cartas.
- Después puedes decidir plantarte o seguir robando.
- Cuando te plantes o te pases, comprarás tu resultado con el del Crupier (La máquina).

Los valores de las cartas son los siguientes:
- As -----> 1 u 11 (Según si te pasas con el 11 o no)
- 2-9 ----> El nº en cuestión
- Figura --> 10

Para ganar, tienes que conseguir la puntuación más alta sin pasarte de 21.


Importante, el Script requiere añadir 2 Multichoise, es muy facíl de hacer, podéis usar esta herramienta: Multichoise Manager 1.0


Bueno, después de está mini explicación, os dejo con un vídeo:



Y ya para terminar, aquí podéis descargar el script y una Rom lista con el script: Script y Rom


Código:
#dynamic 0x800000

#org @Start
msgbox @Bienvenido 0x6
showmoney 0x0 0x0 0x0
multichoice 0x12 0x0 0x41 0x1
compare LASTRESULT 0x0
if 0x1 goto @LimpiadoDeVariables
compare LASTRESULT 0x1
if 0x1 goto @Instrucciones
compare LASTRESULT 0x2
if 0x1 goto @Adios

#org @Instrucciones 'Te dice muestra las instrucciones
msgbox @Instruc 0x6
msgbox @Creditos 0x6 'Los créditos, por favor, si modificais el script no quiteis esta parte
goto @Start

#org @LimpiadoDeVariables 'Aqui la lista de variables y flags, con sus respectivas funciones
setvar 0x40FF 0x0 'Esta variable es para "sacar" las cartas
setvar 0x40FE 0x0 'Esta es la variable del resultado de tu primera carta
setvar 0x40FD 0x0 'Esta es la variable del resultado de tu segunda carta
setvar 0x40FC 0x0 'Esta es la variable que va acumulando la suma que llevas
setvar 0x40FB 0x0 'Esta es la variable para la 3º carta y posteriores
clearflag 0x500 'La flag para saber si en la 1º tirada tienes un As o no
setvar 0x40F9 0x0 'La variable de la priemra carta del crupier
setvar 0x40F8 0x0 'La variable de la segunda carta del crupier
setvar 0x40F7 0x0 'La variable que va acumulando el total del crupier
setvar 0x40F6 0x0 'La variable para la 3º carta y posteriores del crupier
clearflag 0x503 'La flag para saber si en la 1º tirada tienes un As o no
setvar 0x40F2 0x0 'La var para saber si te has pasado
setvar 0x40F1 0x0 'La var para saber si el crupier se ha pasado
clearflag 0x506 'Flag de apostar 10
clearflag 0x507 'Flag de apostar 100
clearflag 0x508 'Flag de apostar 1000
goto @Apuestas 'Vamos a las apuestas

'------------------------------------------------------


'Aquí van las apuestas


'------------------------------------------------------

#org @Apuestas
msgbox @¿CuantoApuestas? 0x6 'Menu para seleccionar la cantidad a apostar
multichoice 0x17 0x0 0x42 0x1
compare LASTRESULT 0x0
if 0x1 goto @Apuesta10 'Apuestas 10
compare LASTRESULT 0x1
if 0x1 goto @Apuesta100 'Apuestas 100
compare LASTRESULT 0x2
if 0x1 goto @Apuesta1000 'Apuestas 1000
compare LASTRESULT 0x3
if 0x1 goto @Adios


#org @Apuesta10
checkmoney 0xA 0x0
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0xA 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
setflag 0x506
goto             
@car
ta1Crup 'Primero va el Crupier

#org @Apuesta100
checkmoney 0x64 0x0
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x64 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
setflag 0x507
goto             
@car
ta1Crup 'Primero va el Crupier

#org @Apuesta1000
checkmoney 0x3E8 0x0
compare LASTRESULT 0x1
if 0x0 goto @nomoney
paymoney 0x3E8 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
setflag 0x508
goto             
@car
ta1Crup 'Primero va el Crupier

#org @nomoney
msgbox @NoTienesPasta 0x6
goto @Apuestas

'------------------------------------------------------


'Aquí esta tu turno, pero primero juega el Crupier vas despues del crupier


'------------------------------------------------------

#org             
@car
ta1 'Primera carta
random 0xB 'El resultado de tu carta
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As1 'Si es un As
if 0x2 goto @NoAs1 'Si no es un As

#org @NoAs1
compare 0x40FF 0xA
if 0x0 goto @Numero1 'Tienes el valor de la carta
if 0x4 goto @Figura1 'Tienes una figura, luego vale 10



#org @As1 'El As en el priemr caso siempre vale 1
setvar 0x40FE 0xB
setflag 0x500
goto             
@car
ta2

#org @Figura1 'La figura vale 10
setvar 0x40FE 0xA
goto             
@car
ta2

#org @Numero1 'El valor del nº
compare 0x40FF 0x0
if 0x1 goto             
@car
ta2
if 0x2 goto @Suma1

#org @Suma1
addvar 0x40FE 0x1
subvar 0x40FF 0x1
goto @Numero1

'------------------------------------------------------

#org             
@car
ta2 'Primera carta
buffernumber 0x0 0x40FE
pause 0x20
sound 0x17
msgbox @EnLa1ºTienes 0x6 'Te dice el resultado de la 1º carta
random 0xB 'El resultado de tu carta
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As2 'Si es un As
if 0x2 goto @NoAs2 'Si no es un As

#org @NoAs2
compare 0x40FF 0xA
if 0x0 goto @Numero2 'Tienes el valor de la carta
if 0x4 goto @Figura2 'Tienes una figura, luego vale 10



#org @As2 'Aquí si sacas un As
checkflag 0x500 'Mira si ya sacaste un As previamente
if 0x1 goto @Es1-2 'Si ya sacaste uno, este vale 1
if 0x0 goto @Es11-2 'Si no sacaste uno, este vale 11

#org @Es1-2 'El As vale 1
setvar 0x40FD 0x1
goto @DimeLa2 

#org @Es11-2 'El As vale 11
setvar 0x40FD 0xB
goto @DimeLa2 

#org @Figura2 'Si sale figura
setvar 0x40FD 0xA
goto @DimeLa2 

#org @Numero2 'Si sale un nº
compare 0x40FF 0x0
if 0x1 goto @DimeLa2 
if 0x2 goto @Suma2

#org @Suma2
addvar 0x40FD 0x1
subvar 0x40FF 0x1
goto @Numero2

'------------------------------------------------------

#org @DimeLa2 'Te dice el resultado de la 2º carta
buffernumber 0x1 0x40FD
pause 0x20
sound 0x17
msgbox @EnLa2ºTienes 0x6 'Te dice el resultado de la 2º carta
goto @Suma1y2

#org @Suma1y2 'Para sumar la 1º y la 2º carta
compare 0x40FE 0x0
if 0x1 goto @SumaElTotal 'Si ya estan sumadas
if 0x2 goto @Suma1a2 'Si aun no estan sumadas

#org @Suma1a2 'Se van sumando la 1º y la 2º recursivamente
subvar 0x40FE 0x1
addvar 0x40FD 0x1
goto @Suma1y2

#org @SumaElTotal 'Sumas la suma de la 1º y la 2º al total
copyvar 0x40FC 0x40FD
goto @¿SiguesJugando?Comprobacion 'Pasas a la siguiente parte del script

'------------------------------------------------------

#org @¿SiguesJugando?Comprobacion 'Comprueba si puedes seguir jugando
compare 0x40FC 0x15
if 0x0 goto @¿SiguesJugando?
if 0x1 goto @TienesBlackJack
if 0x2 goto @TeHasPasado

#org @¿SiguesJugando? 'Te va a preguntar si sigues jugando
buffernumber 0x2 0x40FC
pause 0x20
sound 0x17
msgbox @Llevas 0x5 'Te dice el total que llevas y pregunta si sigues jugando
compare LASTRESULT 0x1
if 0x1 goto             
@Comp
arar
if 0x0 goto @SiguesJugando

'------------------------------------------------------

#org @SiguesJugando
random 0xB 'El resultado de tu carta
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As3 'Si es un As
if 0x2 goto @NoAs3 'Si no es un As

#org @NoAs3
compare 0x40FF 0xA
if 0x0 goto @Numero3 'Tienes el valor de la carta
if 0x4 goto @Figura3 'Tienes una figura, luego vale 10



#org @As3
compare 0x40FC 0xA
if 0x2 goto @Es1-3
if 0x3 goto @Es11-3

#org @Es1-3 'El As vale 1
setvar 0x40FB 0x1
goto @Suma3aTotal

#org @Es11-3 'El As vale 11
setvar 0x40FB 0xB
goto @Suma3aTotal

#org @Figura3 'Si sale figura
setvar 0x40FB 0xA
goto @Suma3aTotal

#org @Numero3 'Si sale un nº
compare 0x40FF 0x0
if 0x1 goto @Suma3aTotal
if 0x2 goto @Suma3

#org @Suma3
addvar 0x40FB 0x1
subvar 0x40FF 0x1
goto @Numero3



#org @Suma3aTotal 'Suma la 3º carta al total
compare 0x40FB 0x0
if 0x1 goto @¿SiguesJugando?Comprobacion 'Si ya estan sumadas
if 0x2 goto @Suma1aTotal 'Si aun no estan sumadas

#org @Suma1aTotal
subvar 0x40FB 0x1
addvar 0x40FC 0x1
goto @Suma3aTotal

'------------------------------------------------------

#org @TienesBlackJack
msgbox @TomaBlackJack 0x6
goto             
@Comp
arar

#org @TeHasPasado
buffernumber 0x2 0x40FC
msgbox @TeHasPasadoCon 0x6
setvar 0x40F2 0x1
goto             
@Comp
arar

'------------------------------------------------------


'Ahora las tiradas del Crupier, solo pondré anotaciones importantes, puesto que la mayoría de las cosas son iguales que en tu caso


'------------------------------------------------------

#org             
@car
ta1Crup
random 0xB 'El resultado de tu carta
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As1Crup
if 0x2 goto @NoAs1Crup

#org @NoAs1Crup
compare 0x40FF 0xA
if 0x0 goto @Numero1Crup
if 0x4 goto @Figura1Crup



#org @As1Crup
setvar 0x40F9 0xB
setflag 0x503
goto             
@car
ta2Crup

#org @Figura1Crup
setvar 0x40F9 0xA
goto             
@car
ta2Crup

#org @Numero1Crup
compare 0x40FF 0x0
if 0x1 goto             
@car
ta2Crup
if 0x2 goto @Suma1Crup

#org @Suma1Crup
addvar 0x40F9 0x1
subvar 0x40FF 0x1
goto @Numero1Crup

'------------------------------------------------------

#org             
@car
ta2Crup 
random 0xB 
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As2Crup
if 0x2 goto @NoAs2Crup

#org @NoAs2Crup
compare 0x40FF 0xA
if 0x0 goto @Numero2Crup
if 0x4 goto @Figura2Crup



#org @As2Crup
checkflag 0x503
if 0x1 goto @Es1-2Crup
if 0x0 goto @Es11-2Crup

#org @Es1-2Crup
setvar 0x40F8 0x1
goto @Suma1y2Crup

#org @Es11-2Crup
setvar 0x40F8 0xB
goto @Suma1y2Crup

#org @Figura2Crup
setvar 0x40F8 0xA
goto @Suma1y2Crup

#org @Numero2Crup
compare 0x40FF 0x0
if 0x1 goto @Suma1y2Crup
if 0x2 goto @Suma2Crup

#org @Suma2Crup
addvar 0x40F8 0x1
subvar 0x40FF 0x1
goto @Numero2Crup

'------------------------------------------------------

#org @Suma1y2Crup
compare 0x40F9 0x0
if 0x1 goto @SumaElTotalCrup
if 0x2 goto @Suma1a2Crup

#org @Suma1a2Crup
subvar 0x40F9 0x1
addvar 0x40F8 0x1
goto @Suma1y2Crup

#org @SumaElTotalCrup 
copyvar 0x40F7 0x40F8
goto @¿SiguesJugando?ComprobacionCrup 

'------------------------------------------------------

#org @¿SiguesJugando?ComprobacionCrup 'En este caso, compara primero con 17, si es mayor o igual va a otra comparación
compare 0x40F7 0x11
if 0x0 goto @SiguesJugandoCrup
if 0x4 goto @¿SiguesJugando?Crup

#org @¿SiguesJugando?Crup
compare 0x40F7 0x15
if 0x2 goto @TeHasPasadoCrup 'Si se ha pasado
if 0x3 goto             
@car
ta1 'Pasa a tu turno

'------------------------------------------------------

#org @SiguesJugandoCrup
random 0xB
addvar LASTRESULT 0x1
copyvar 0x40FF LASTRESULT
compare 0x40FF 0x1
if 0x1 goto @As3Crup
if 0x2 goto @NoAs3Crup

#org @NoAs3Crup
compare 0x40FF 0xA
if 0x0 goto @Numero3Crup
if 0x4 goto @Figura3Crup



#org @As3Crup
compare 0x40F6 0xA
if 0x2 goto @Es1-3Crup
if 0x3 goto @Es11-3Crup

#org @Es1-3Crup
setvar 0x40F6 0x1
goto @Suma3aTotalCrup

#org @Es11-3Crup
setvar 0x40F6 0xB
goto @Suma3aTotalCrup

#org @Figura3Crup
setvar 0x40F6 0xA
goto @Suma3aTotalCrup

#org @Numero3Crup
compare 0x40FF 0x0
if 0x1 goto @Suma3aTotalCrup
if 0x2 goto @Suma3Crup

#org @Suma3Crup
addvar 0x40F6 0x1
subvar 0x40FF 0x1
goto @Numero3Crup



#org @Suma3aTotalCrup
compare 0x40F6 0x0
if 0x1 goto @¿SiguesJugando?ComprobacionCrup
if 0x2 goto @Suma1aTotalCrup

#org @Suma1aTotalCrup
subvar 0x40F6 0x1
addvar 0x40F7 0x1
goto @Suma3aTotalCrup

'------------------------------------------------------

#org @TeHasPasadoCrup
setvar 0x40F1 0x1
goto             
@car
ta1

'------------------------------------------------------


'Ahora toca comparar resultados


'------------------------------------------------------

#org             
@Comp
arar
sound 0x19
buffernumber 0x0 0x40F7
msgbox @ElCrupierTiene 0x6
compare 0x40F2 0x1 'Mira si te has pasado o no
if 0x0 goto             
@Comp
arar2
if 0x1 goto @¿CrupierSeHaPasado?

#org             
@Comp
arar2
compare 0x40F1 0x1
if 0x0 goto             
@Comp
araSumaTotal 'Si no se cumple ninguno de los casos anteriores
if 0x1 goto @Ganas


#org @¿CrupierSeHaPasado?
compare 0x40F1 0x1
if 0x0 goto @Pierdes
if 0x1 goto @Empate


#org             
@Comp
araSumaTotal 'Compara las variables con la acumulación de ambos
comparevars 0x40FC 0x40F7
if 0x0 goto @Pierdes
goto             
@Comp
araSumaTotal2

#org             
@Comp
araSumaTotal2 'Compara las variables con la acumulación de ambos
comparevars 0x40FC 0x40F7
if 0x1 goto @Empate
if 0x2 goto @Ganas

'------------------------------------------------------


'Si ganas, empatas o pierdes


'------------------------------------------------------

#org @Ganas
sound 0xE
msgbox @HasGanado 0x6
applymovement 0xFF @Feliz
goto @GanasDinero

#org @Empate
msgbox @HasEmpatado 0x6
goto @Reembolso

#org @Pierdes
sound 0x16
msgbox @HasPerdido 0x6
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

'------------------------------------------------------


'MensageBox y demas


'------------------------------------------------------

#org @GanasDinero
checkflag 0x506
if 0x1 goto @Ganas15
checkflag 0x507
if 0x1 goto @Ganas150
checkflag 0x508
if 0x1 goto @Ganas1500

#org @Reembolso
checkflag 0x506
if 0x1 goto @Ganas10
checkflag 0x507
if 0x1 goto @Ganas100
checkflag 0x508
if 0x1 goto @Ganas1000


#org @Ganas10
givemoney 0xA 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

#org @Ganas100
givemoney 0x64 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

#org @Ganas1000
givemoney 0x3E8 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

#org @Ganas15
givemoney 0xF 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

#org @Ganas150
givemoney 0x96 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios

#org @Ganas1500
givemoney 0x5DC 0x0
hidemoney 0x0 0x0
showmoney 0x0 0x0 0x0
msgbox @¿Otra? 0x5
compare LASTRESULT 0x1
if 0x1 goto @Start
if 0x0 goto @Adios




#org @Adios
hidemoney 0x0 0x0
msgbox @VuelveCuandoQuieras 0x6
end



#org @HasGanado
= Has ganado, enhorabuena.

#org @HasEmpatado
= Habeis empatado, buena partida.

#org @HasPerdido
= Vaya, parece que has perdido,\nsuerte en la próxima partida.

#org @¿Otra?
= ¿Otra partida?

#org @VuelveCuandoQuieras 
= Vuelve cuando quieras.

#org @Bienvenido
= Bienvenido al PokéBlackJack,\n¿Quieres jugar una partida?

#org @EnLa1ºTienes
= En la 1º carta tienes [buffer1]

#org @EnLa2ºTienes
= En la 2º carta tienes [buffer2]

#org @Llevas
= Llevas [buffer3] ¿Te plantas?

#org @TomaBlackJack
= ¡Tienes BlackJack!

#org @Pipiolo...
= Te has pasado....

#org @ElCrupierTiene
= El Crupier tiene [buffer1]

#org @TeHasPasadoCon
= Te has pasado con [buffer3]

#org @Instruc
= Bienvenido a las instrucciones\ndel PokéBlackJack, las reglas son\lmuy sencillas.\lAntes de empezar, deberas apostar\luna de las cantidades que verás,\lsi ganas te devolverán tu apuesta\ljunto a un 50% de lo apostado.\lComienzas robando 2 cartas según\lla carta obtenida, suman las\lsiguientes cantidades: As = 1 u\l11, Figuras = 10, de 2 a 9 =\lvalor de la carta.\lPuedes robar después tantas veces\lcomo quieras, pero si te pasas de\l21 pierdes (o empatas) y si\ltienes justo 21 ganas (o empatas).\lEl Crupier (tu contrincante), por\lel contrario robará cartas hasta\lque sumen 17 o más.\lUna vez se pare de robar cartas,\lse compararán los resultados.\lSi teneis el mismo valor, o\lteneis los dos BlackJack o los\ldos os pasais, empatais.\lEn caso de que no ocurra nada de\llo anterior, el que tenga el\lmejor resultado gana. Siguiendo\leste esquema:\lPasarse < Tener un valor entre 1\ly 20 < Tener BlackJack\pEsto es todo, espero que te\ndiviertas y gracias por jugar al\lPokéBlackJack.

#org @¿CuantoApuestas?
= ¿Qué cantidad deseas apostar?

#org @NoTienesPasta
= No tienes suficiente dinero.

#org @Feliz
#raw 0x66 'Feliz (^_^)
#raw 0xFE 'Finalizar Movimientos

#org @Creditos
= Creador del script: Dani_SR_17.\nGracias a Gut_Bro por su\lherramienta y a Sayer por ayudarme\la plantear el script.

No suelo pedirlo, pero en este caso si se utiliza pido por favor créditos, porque me ha llevado su tiempo y sus dolores de cabeza.




Sumar y Multiplicar 2 Variables


Sumar y Multiplicar 2 Variables


Sumar y Multiplicar 2 Variables



Hola a todos (Otra vez), hoy traigo un sencillo (Siempre son sencillos ) script, que permite sumar y multiplicar 2 variables.

Algo muy básico y útil para lo que no existen comandos

Bueno, al turrón, aquí tenéis unas ScreenShots para que veáis que no miento (Los Tiles son de Zein)




Aquí tenéis los Scripts listos para descargar:



Y aquí tenéis los Scripts:


Suma de 2 Variables

Código:
#dynamic 0x800000

#org @start
setvar 0x40FF 0x2 'Nº para sumar 1
buffernumber 0x0 0x40FF
setvar 0x40FE 0x4 'Nº para sumar 2
buffernumber 0x1 0x40FE
goto @Paso0

'-------------------------------------------------------------------

#org @Paso0 'Compruebo si la 1º var es 0.
compare 0x40FF 0x0
if 0x1 goto @Sumado2 'Es 0, luego el resultado es la 2º variable
if 0x2 goto @Paso1 'No es 0, vamos a la 2º comprobación

#org @Paso1
compare 0x40FE 0x0
if 0x1 goto @Sumado 'Es 0, luego el resultado es la 1º variable
if 0x2 goto @Suma1yResta1 'No es 0, vamos a sumar

#org @Suma1yResta1 'Suma 1 a la 1º y resta 1 a la 2º
addvar 0x40FF 0x1
subvar 0x40FE 0x1
goto @Paso1 'Vuelve a comprobar si la 2º es 0


'-------------------------------------------------------------------


#org @Sumado 'Script acabado solución en la 1º var
buffernumber 0x2 0x40FF
msgbox @LaSumaEs 0x6
end

#org @Sumado2 'Script acabado solución en la 2º var
buffernumber 0x2 0x40FE
msgbox @LaSumaEs 0x6
end


'-------------------------------------------------------------------


#org @LaSumaEs
= La suma de:\n[buffer1] y [buffer2]\les [buffer3]

Multiplicación de 2 Variables

Código:
#dynamic 0x800000

'Antes de nada, recuerdo que multiplicar 2 por 3, es sumar 3 veces 2.

#org @start
setvar 0x40FF 0x2 'Nº para multiplicar 1
buffernumber 0x0 0x40FF
setvar 0x40FE 0x4 'Nº para multiplicar 2
buffernumber 0x1 0x40FE
goto @AMultiplicar

'-------------------------------------------------------------------

#org @AMultiplicar
copyvar 0x40FD 0x40FF 'Copias la variable principal, luego usaras esta como "pivote"
goto @Paso0

#org @Paso0
compare 0x40FE 0x0
if 0x1 goto @EsCero
if 0x2 goto @Paso1

#org @Paso1 'Segunda comprobación
compare 0x40FE 0x1
if 0x1 goto @Fin 'Es 1, luego da lo mismo
if 0x2 goto @Paso2 'Ninguno de los casos anteriores, empieza el script

'-------------------------------------------------------------------

#org @Paso2 'El paso principal del script
copyvar 0x40FC 0x40FD 'Como vamos a modificar 40FF y otra variable más, guardamos el valor original de 40FF en 40FD y usamos 40FC
goto @Paso2-1

#org @Paso2-1
compare 0x40FC 0x0 'Vemos si 40FC es 0
if 0x1 goto @Paso2-2 'Si es 0, ya esta
if 0x2 goto @Suma1yResta1 'Si no, se suma y resta 1

#org @Suma1yResta1
addvar 0x40FF 0x1
subvar 0x40FC 0x1
goto @Paso2-1 'Volvemos al inicio

#org @Paso2-2
subvar 0x40FE 0x1 'Disminuimos en 1 la variabble 0x40FE
compare 0x40FE 0x1 
if 0x1 goto @Fin 'Ya esta multiplicado
if 0x2 goto @Paso2 'Vuelve al Paso 2, pero ahora 40FE vale 1 menos


'-------------------------------------------------------------------


#org @Fin 'El resultado es el valor de la 1º variable
buffernumber 0x2 0x40FF
msgbox @LaMultiplicaciónEs 0x6
end

#org @Fin2 'El resultado es el valor de la 2º variable
buffernumber 0x2 0x40FE
msgbox @LaMultiplicaciónEs 0x6
end

#org @EsCero 'Si alguno es 0
setvar 0x40FF 0x0
buffernumber 0x2 0x40FF
msgbox @LaMultiplicaciónEs 0x6
end

'-------------------------------------------------------------------

#org @LaMultiplicaciónEs
= La multiplicación de:\n[buffer1] y [buffer2]\les [buffer3]


Espero que os guste y os sirva


Agradecimientos a @Sayer301 , que le doy la lata muchos días con el tema de los scripts






Climas Dinámicos


Climas Dinámicos



Climas Dinámicos


Saludos Hackers de GBA, hoy traigo un nuevo script que como siempre es de libre uso con créditos, el script en cuestión es bastante sencillito, pero te permite tener mapas con climas dinámicos.

No veo necesario añadir imágenes, ni un vídeo que muestre el script porque espero que el script sea bastante claro, aun así no descarto subir un vídeo en un futuro.

Requisitos:
  • Saber usar Scripts de nivel, ya que debes poner el script en uno.
  • Tener introducido el DNS.
  • 2 Variables por cada mapa, y 1 variable dinámica.


El script debéis insertarlo como un script de nivel 05. Recomiendo este >>Manual<< de Javi

También como he dicho, debeís tener insertado el >>DNS<<, mas concrétamente la rutina de esta herramienta del "RTC".


Voy a poner 2 versiones del script.
  • Versión simple
  • Versión compleja




Versión simple

Como su propio nombre indica, es la versión más simple del script, esta forma simplemente guardará la última hora a la que entraste al mapa en una variable y el clima que hacía en otra, al volver a entrar comprobará si la hora a cambiado y en tal caso volverá a recalcular el clima.

Script Clima Dinámico Sencillo - Dani_SR_17

Código:
#dynamic 0x800000

' Este es un script para crear un clima dinámico en los mapas.
' Se necesitará una variable dinámica (solo 1 para todos los mapas, no 1 por cada mapa) y dos variable para cada mapa.
' En la variable 1 de cada mapa, se almacenará la última hora en la que entraste al mapa, si entrás a las 3pm, y después a las 4pm el clima podrá cambiar.
' En la variable 2 de cada mapa, se almacenará el clima que hacía en la última hora en la que entraste, en caso de que siga siendo la misma hora.

#org @start
copybyte 0x20370D0 0x3005542 'Vamos a revisar si ha cambiado la hora o no.
comparevars LASTRESULT 0x(Variable 1)
if 0x1 goto @Nada 'Si es la misma hora que la última vez que el script se ejecuto, no pasa nada.
goto            
@Camb
ioDeClima

#org @Nada 'Sigue el clima anterior
compare 0x(Variable 2) 0x0
if 0x1 goto @Sol
compare 0x(Variable 2) 0x1
if 0x1 goto @Nublado 
compare 0x(Variable 2) 0x2
if 0x1 goto @Llueve

#org            
@Camb
ioDeClima
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Sol 'Tienes un 60% de tener Sol.
compare 0x(Variable dinámica) 0x9
if 0x0 goto @Nublado 'Tienes un 30% de tener Nublado
goto @Llueve 'Tienes un 10% de tener Lluvia.

#org @Sol
setvar 0x(Variable 2) 0x0
setweather 0x0
nop
doweather
end

#org @Nublado 
setvar 0x(Variable 2) 0x1
setweather 0x0B
nop
doweather
end

#org @Llueve
setvar 0x(Variable 2) 0x2
setweather 0x3
nop
doweather
end



Versión compleja

Esta versión, funciona como la anterior, solo que esta tiene más factores a tener en cuenta y además usa las mismas variables.
La particularidad de esta versión, es que en función del clima anterior en el mapa variarán los % de futuros climas, traducio, que si a las 3pm hay tormenta es muy poco probable que a las 4pm haga un sol bestial.

Script Clima Dinámico Complejo - Dani_SR_17

Código:
#dynamic 0x800000

' Este es un script para crear un clima dinámico en los mapas.
' Se necesitará una variable dinámica (1 para todos los mapas, no 1 por cada mapa) y dos variable para cada mapa.
' En la variable 1 de cada mapa, se almacenará la última hora en la que entraste al mapa, si entrás a las 3pm, y después a las 4pm, el clima podrá cambiar.
' En la variable 2 de cada mapa, se almacenará el clima que hacía en la última hora en la que entraste, en caso de que siga siendo la misma hora.

' Esta es una versión un poco más compleja del script, según el clima anterior variarán los % de los siguientes climas.

#org @start
copybyte 0x20370D0 0x3005542 'Vamos a revisar si ha cambiado la hora o no.
comparevars LASTRESULT 0x(Variable 1)
if 0x1 goto @Nada
goto            
@Camb
ioDeClima

#org @Nada 'Sigue el clima anterior
compare 0x(Variable 2) 0x0
if 0x1 goto @Sol
compare 0x(Variable 2) 0x1
if 0x1 goto @Nublado 
compare 0x(Variable 2) 0x2
if 0x1 goto @Llueve


#org            
@Camb
ioDeClima 'En este caso, el script es más complejo, según el clima de la hora anterior, variarán los % para horas siguientes.
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
compare 0x(Variable 2) 0x0
if 0x1 goto @TeniamosSol
compare 0x(Variable 2) 0x1
if 0x1 goto @TeniamosNublado 
compare 0x(Variable 2) 0x2
if 0x1 goto @TeniamosLlueve


#org @TeniamosSol
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x8
if 0x0 goto @Sol 'Tienes un 80% de tener Sol.
goto @Nublado 'Tienes un 20% de tener Nublado

#org @TeniamosNublado
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x3
if 0x0 goto @Sol 'Tienes un 30% de tener Sol.
compare 0x(Variable dinámica) 0x7
if 0x0 goto @Nublado 'Tienes un 40% de tener Nublado.
goto @Llueve 'Tienes un 30% de tener Llueve.

#org @TeniamosLlueve
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Llueve 'Tienes un 60% de tener Llueve.
goto @Nublado 'Tienes un 40% de tener Nublado.



#org @Sol
setvar 0x(Variable 2) 0x0
setweather 0x0
nop
doweather
end

#org @Nublado 
setvar 0x(Variable 2) 0x1
setweather 0x0B
nop
doweather
end

#org @Llueve
setvar 0x(Variable 2) 0x2
setweather 0x3
nop
doweather
end


Actualización del post
Sistema de Estaciones añadido


Como dije, he mejorado los scripts, ahora son compatibles con las Estaciones del DNS, evidentemente, requiere tener insertada la rutina de las Estaciones de DNS.

Para entender mejor el script recomiendo leer este >>tutorial<< de @Javi4315♪



Tengo que aclarar, que como podréis ver, hay 3 scripts, el primero como explico más abajo es opcional.

También, si veis que los climas son los mismos para todas las estaciones, aunque tengo notas en los scripts que explican el motivo, lo aclaro aquí, como es una base y vais a cambiar lo % y los climas seguramente, he puesto los que ya tenia más que nada porque si los vais a cambiar es inútil pegarme el curo de cambiarlos.



Script cambio de Estación

Ahora tengo que explicar una cosa, este fragmento, debéis insertarlo en el script solo si queréis que al cambiar de estación el cambio de clima pueda ser brusco, me explico, si no lo ponéis y el último día de Otoño tenéis Sol, al comenzar el Invierno tendréis Sol (en principio), mientras que si lo ponéis es más probable de que cambie.

Script cambio de Estación - Dani_SR_17

Código:
' Este script es por si lo queréis añadir al del clima con estaciones, aahora explico como añadirlo.

' Lo primero, necesitamos una 3º Variable, en este caso solo 1 para todos los mapas, voy a llamarla (Variable 3)
' Después, en cada "@(Estación)", por ejemplo, @Verano, debéis poner un "setvar 0x(Variable 3) 0x(Nº Estación)", los Nº de las estaciones son: Verano -> 0, Otoño -> 1, Invierno -> 2, Primavera -> 3.
' Y ahora, debéis añadir esto, nada más comenzar, antes del "@Start".

#org @MirarEstación
copybyte 0x20370D0 0x203C001
comparevars LASTRESULT 0x(Variable 3) 'Vamos a ver si estamos en la misma estación.
if 0x1 goto @Start 'Si lo estamos, el script del clima comienza normalmente, mirando si ha cambiado la hora y tal.
goto @Estaciones 'Si es una nueva estación, pasamos directamente a ver en que estacción estamos, para un nuevo clima.


Versión simple con Estaciones

Ahora le toca a la versión simple del script, pero con la influencia de las estaciones.

Script Clima Dinámico Sencillo con Estaciones - Dani_SR_17

Código:
#dynamic 0x800000

' Este es un script para crear un clima dinámico en los mapas.
' Se necesitará una variable dinámica (solo 1 para todos los mapas, no 1 por cada mapa) y dos variable para cada mapa.
' En la variable 1 de cada mapa, se almacenará la última hora en la que entraste al mapa, si entrás a las 3pm, y después a las 4pm el clima podrá cambiar.
' En la variable 2 de cada mapa, se almacenará el clima que hacía en la última hora en la que entraste, en caso de que siga siendo la misma hora.

' Esta es una versión mejorada del script sencillo, compatible con las estaciones del DNS.
' Voy a poner las 4 estaciones con los mismos climas, porque es algo muy personal lo que queráis poner, así que los % y los climas los ponéis vosotros.
' ¿Por qué no guardo la estación en una Variable? Pues muy sencillo, se puede hacer que si se cambia de estación (lo pondré a parte aun así), cambié el clima, pero es gastar una variable más para algo que no es necesario, porque aunque se cambié de estación de golpe el clima no tiene por qué cambiar.

#org @Start
copybyte 0x20370D0 0x3005542 'Vamos a revisar si ha cambiado la hora o no.
comparevars LASTRESULT 0x(Variable 1)
if 0x1 goto @Nada 'Si es la misma hora que la última vez que el script se ejecuto, no pasa nada.
goto @Estaciones

#org @Nada 'Sigue el clima anterior
compare 0x(Variable 2) 0x0
if 0x1 goto @Sol
compare 0x(Variable 2) 0x1
if 0x1 goto @Nublado 
compare 0x(Variable 2) 0x2
if 0x1 goto @Llueve

#org @Estaciones
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x0 'Si estamos en Verano.
if 0x1 goto @Verano
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x1 'Si estamos en Otoño.
if 0x1 goto @Otoño
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x2 'Si estamos en Primavera.
if 0x1 goto @Invierno
goto @Primavera 'Aquí nos ahorramos la comparación, porque si lleguamos aquí es porque es Primavera.


' Ahora solo debemos hacer el script para cada estación, en este caso como es un script "base", no voy a ponerme a cambiar climas ni nada, de eso ya os encargais vosotros.


'--------------------------------- Verano ---------------------------------

#org @Verano
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Sol 'Tienes un 60% de tener Sol.
compare 0x(Variable dinámica) 0x9
if 0x0 goto @Nublado 'Tienes un 30% de tener Nublado
goto @Llueve 'Tienes un 10% de tener Lluvia.


'--------------------------------- Otoño ---------------------------------

#org @Otoño
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Sol 'Tienes un 60% de tener Sol.
compare 0x(Variable dinámica) 0x9
if 0x0 goto @Nublado 'Tienes un 30% de tener Nublado
goto @Llueve 'Tienes un 10% de tener Lluvia.


'--------------------------------- Invierno ---------------------------------

#org @Invierno
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Sol 'Tienes un 60% de tener Sol.
compare 0x(Variable dinámica) 0x9
if 0x0 goto @Nublado 'Tienes un 30% de tener Nublado
goto @Llueve 'Tienes un 10% de tener Lluvia.


'--------------------------------- Primavera ---------------------------------

#org @Primavera 
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Sol 'Tienes un 60% de tener Sol.
compare 0x(Variable dinámica) 0x9
if 0x0 goto @Nublado 'Tienes un 30% de tener Nublado
goto @Llueve 'Tienes un 10% de tener Lluvia.


'--------------------------------- Los climas --------------------------------- 

' No hace falta poner los climas en cada estación, como con ellos acaba el script se pueden poner al final.

#org @Sol
setvar 0x(Variable 2) 0x0
setweather 0x0
nop
doweather
end

#org @Nublado 
setvar 0x(Variable 2) 0x1
setweather 0x0B
nop
doweather
end

#org @Llueve
setvar 0x(Variable 2) 0x2
setweather 0x3
nop
doweather
end


Versión compleja con Estaciones

Versión compleja del script, pero con la influencia de las estaciones.

Script Clima Dinámico Complejo con Estaciones - Dani_SR_17

Código:
#dynamic 0x800000

' Este es un script para crear un clima dinámico en los mapas.
' Se necesitará una variable dinámica (1 para todos los mapas, no 1 por cada mapa) y dos variable para cada mapa.
' En la variable 1 de cada mapa, se almacenará la última hora en la que entraste al mapa, si entrás a las 3pm, y después a las 4pm, el clima podrá cambiar.
' En la variable 2 de cada mapa, se almacenará el clima que hacía en la última hora en la que entraste, en caso de que siga siendo la misma hora.

' Esta es una versión un poco más compleja del script, según el clima anterior variarán los % de los siguientes climas.

' Esta es una versión mejorada del script complejo, compatible con las estaciones del DNS.
' Voy a poner las 4 estaciones con los mismos climas, porque es algo muy personal lo que queráis poner, así que los % y los climas los ponéis vosotros.
' ¿Por qué no guardo la estación en una Variable? Pues muy sencillo, se puede hacer que si se cambia de estación (lo pondré a parte aun así), cambié el clima, pero es gastar una variable más para algo que no es necesario, porque aunque se cambié de estación de golpe el clima no tiene por qué cambiar.

#org @start
copybyte 0x20370D0 0x3005542 'Vamos a revisar si ha cambiado la hora o no.
comparevars LASTRESULT 0x(Variable 1)
if 0x1 goto @Nada
goto @Estaciones

#org @Nada 'Sigue el clima anterior
compare 0x(Variable 2) 0x0
if 0x1 goto @Sol
compare 0x(Variable 2) 0x1
if 0x1 goto @Nublado 
compare 0x(Variable 2) 0x2
if 0x1 goto @Llueve

#org @Estaciones
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x0 'Si estamos en Verano.
if 0x1 goto @Verano
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x1 'Si estamos en Otoño.
if 0x1 goto @Otoño
copybyte 0x20370D0 0x203C001
compare LASTRESULT 0x2 'Si estamos en Primavera.
if 0x1 goto @Invierno
goto @Primavera 'Aquí nos ahorramos la comparación, porque si lleguamos aquí es porque es Primavera.


' Ahora solo debemos hacer el script para cada estación, en este caso como es un script "base", no voy a ponerme a cambiar climas ni nada, de eso ya os encargais vosotros.
' Si os vijais, en cada zona, hay por ejemplo: "@TeniamosSol_", acabado en una letra, cada letra es la inicial de la estación que corresponde, por una razón muy sencilla, si en Verano tenemos Sol, es menos probable que llueva que si en Invierno tenemos Sol.


'--------------------------------- Verano ---------------------------------


#org @Verano 'En este caso, el script es más complejo, según el clima de la hora anterior, variarán los % para horas siguientes.
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
compare 0x(Variable 2) 0x0
if 0x1 goto @TeniamosSolV
compare 0x(Variable 2) 0x1
if 0x1 goto @TeniamosNubladoV
compare 0x(Variable 2) 0x2
if 0x1 goto @TeniamosLlueveV


#org @TeniamosSolV
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x8
if 0x0 goto @Sol 'Tienes un 80% de tener Sol.
goto @Nublado 'Tienes un 20% de tener Nublado

#org @TeniamosNubladoV
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x3
if 0x0 goto @Sol 'Tienes un 30% de tener Sol.
compare 0x(Variable dinámica) 0x7
if 0x0 goto @Nublado 'Tienes un 40% de tener Nublado.
goto @Llueve 'Tienes un 30% de tener Llueve.

#org @TeniamosLlueveV
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Llueve 'Tienes un 60% de tener Llueve.
goto @Nublado 'Tienes un 40% de tener Nublado.


'--------------------------------- Otoño ---------------------------------


#org @Otoño 'En este caso, el script es más complejo, según el clima de la hora anterior, variarán los % para horas siguientes.
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
compare 0x(Variable 2) 0x0
if 0x1 goto @TeniamosSolO
compare 0x(Variable 2) 0x1
if 0x1 goto @TeniamosNubladoO
compare 0x(Variable 2) 0x2
if 0x1 goto @TeniamosLlueveO


#org @TeniamosSolO
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x8
if 0x0 goto @Sol 'Tienes un 80% de tener Sol.
goto @Nublado 'Tienes un 20% de tener Nublado

#org @TeniamosNubladoO
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x3
if 0x0 goto @Sol 'Tienes un 30% de tener Sol.
compare 0x(Variable dinámica) 0x7
if 0x0 goto @Nublado 'Tienes un 40% de tener Nublado.
goto @Llueve 'Tienes un 30% de tener Llueve.

#org @TeniamosLlueveO
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Llueve 'Tienes un 60% de tener Llueve.
goto @Nublado 'Tienes un 40% de tener Nublado.


'--------------------------------- Invierno ---------------------------------


#org @Invierno 'En este caso, el script es más complejo, según el clima de la hora anterior, variarán los % para horas siguientes.
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
compare 0x(Variable 2) 0x0
if 0x1 goto @TeniamosSolI
compare 0x(Variable 2) 0x1
if 0x1 goto @TeniamosNubladoI
compare 0x(Variable 2) 0x2
if 0x1 goto @TeniamosLlueveI


#org @TeniamosSolI
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x8
if 0x0 goto @Sol 'Tienes un 80% de tener Sol.
goto @Nublado 'Tienes un 20% de tener Nublado

#org @TeniamosNubladoI
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x3
if 0x0 goto @Sol 'Tienes un 30% de tener Sol.
compare 0x(Variable dinámica) 0x7
if 0x0 goto @Nublado 'Tienes un 40% de tener Nublado.
goto @Llueve 'Tienes un 30% de tener Llueve.

#org @TeniamosLlueveI
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Llueve 'Tienes un 60% de tener Llueve.
goto @Nublado 'Tienes un 40% de tener Nublado.


'--------------------------------- Primavera ---------------------------------


#org @Primavera 'En este caso, el script es más complejo, según el clima de la hora anterior, variarán los % para horas siguientes.
copybyte 0x20370D0 0x3005542
copyvar 0x(Variable 1) LASTRESULT 'Vamos a guardar la nueva hora
compare 0x(Variable 2) 0x0
if 0x1 goto @TeniamosSolP
compare 0x(Variable 2) 0x1
if 0x1 goto @TeniamosNubladoP
compare 0x(Variable 2) 0x2
if 0x1 goto @TeniamosLlueveP


#org @TeniamosSolP
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x8
if 0x0 goto @Sol 'Tienes un 80% de tener Sol.
goto @Nublado 'Tienes un 20% de tener Nublado

#org @TeniamosNubladoP
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x3
if 0x0 goto @Sol 'Tienes un 30% de tener Sol.
compare 0x(Variable dinámica) 0x7
if 0x0 goto @Nublado 'Tienes un 40% de tener Nublado.
goto @Llueve 'Tienes un 30% de tener Llueve.

#org @TeniamosLlueveP
random 0x10
copyvar 0x(Variable dinámica) LASTRESULT
compare 0x(Variable dinámica) 0x6
if 0x0 goto @Llueve 'Tienes un 60% de tener Llueve.
goto @Nublado 'Tienes un 40% de tener Nublado.


'--------------------------------- Los climas --------------------------------- 

' No hace falta poner los climas en cada estación, como con ellos acaba el script se pueden poner al final.

#org @Sol
setvar 0x(Variable 2) 0x0
setweather 0x0
nop
doweather
end

#org @Nublado 
setvar 0x(Variable 2) 0x1
setweather 0x0B
nop
doweather
end

#org @Llueve
setvar 0x(Variable 2) 0x2
setweather 0x3
nop
doweather
end



Espero que os guste esta actualización, aunque no muchos usen las estaciones, pero bueno, puede ser útil para los que las usen.






El Pulsatrón


El Pulsatrón


El Pulsatrón



Saludos usuarios de Wah, hoy os traigo un nuevo script base con muuuchas posibilidades, podréis usarlo para simular una captura en un script, para carreras, para minijuegos y mucho más.

No voy voy a enrollarme mucho, el script es muy sencillo, os lo dejo en base, solo tenéis que modificar unos parámetros.

Que mejor manera de empezar antes de todo el rollo de lineas, que mostraros como funciona en un vídeo, pues ahí va el vídeo con un gifs para los más vagos (el gifs no se ve..).







Personalización

Veamos, explicare como personalizar el script:
  • Para editar la dificultad, solo debéis ir a @Luchar, y añadir más chekeos de la tecla en cuestión, combinado con unos cuantos pauses.
  • Para la duración, solo debéis modificar la condificón para ganar o perder, junto con el valor inicial
  • Los tiles, esto es bien sencillo, debéis ir a la zona de los tiles y editarlo
  • El nº de intervalos, bueno, pues aun más sencillo, solo debéis modificar las comparaciones de la variable y ya esta.



Dicho todo esto, debo decir que el script solo necesita 1 variable, la cual puede tener cualquier valor al comenzar el script, puesto que el valor se le da en el.

Y sin más dilación, ¡el script!


El Pulsatrón!

Script "El Pulsatrón" - Dan_SR_17

Código:
#dynamic 0x800000

' Este es un script base para todo aquel que necesite un script para capturar un Poké, hacer una carrera, un choque entre Pokémons, etc.
' La cosa es que el jugador sea rápido pulsando una tecla, aunque la dificultad será ajustable.
' Si vais a usar tiles, la parte de abajo puede ser muy variada, en mi caso, voy a ponerla para que cada 5pts cambie, es decir, si tenemos una barra de 10 bloques de largo, cada 5pts haremos que se modifique medio tile.
' Ejemplo más claro: (0 -> pts máquina, 1 -> pts player), temeos 10 bloques, cada uno formado por 2 tiles. [0,0][0,0][0,0][0,0][0,0][1,1][1,1][1,1][1,1][1,1], como veis entre los 1 y los 0, tenemos 20 espacios, luego 20*5=100.
' Pues bien, en el ejemplo, la partida iría así: Máquina -> 45-49 pts, Jugador -> 50-54 pts. Pues, ¿qué ocurre si el jugador ahora consigue lleguar a 4pts? Muy sencillo, los tiles cambian y la tabla estaría así:
' [0,0][0,0][0,0][0,0][0,1][1,1][1,1][1,1][1,1][1,1], como pode´si ver ahora el player tiene otro fragmento más.
' Por último, aquí teneís los intervalos de los pts: [0-4,5-9][10-14,15-19][20-24,25-29][30-34,35-39][40-44,45-49][50-54,55-59][60-64,65-69][70-74,75-79][80-84,85-89][90-94,95-99]
' Como realmente, solo hay un marcador, lo que haré será poner los tiles de la máquina, en todos aquellos intervalos cuyos números seán menores que el contador, es decir, que si el marcador esta en un intervalo, ese intervalo y todos los posteriores tendrán el tile del player.
' Durante el script, asignaré a cada intervalo los siguientes números: [1][2][3][4][5][6][7][8][9][10][11][12][13][14][15][16][17][18][19][20]


' ----------------------- Base del script ----------------------- 

#org @Start
setvar 0x(Variable Contador) 0x32 'Si llega a 0 pierdes, si llega a 64 (100) ganas. Empieza en 32 (50), pero siempre es editable.
goto @Lucha

#org @Lucha 'Aquí es donde miramos si la máquina es más rápida que el jugador, la dificultad es fácilmente editable modificando el nº de pause y chekeos que hay y el tiempo de los pause.
pause 0x5
comparefarbytetobyte 0x4000130 0xFE 'Vamos a ver si pulsas "A", aunque podéis poner otra tecla.
if 0x1 goto @Player+1
pause 0x5
comparefarbytetobyte 0x4000130 0xFE 'Vamos a ver si pulsas "A", aunque podéis poner otra tecla.
if 0x1 goto @Player+1
pause 0x5
comparefarbytetobyte 0x4000130 0xFE 'Vamos a ver si pulsas "A", aunque podéis poner otra tecla.
if 0x1 goto @Player+1
pause 0x5
comparefarbytetobyte 0x4000130 0xFE 'Vamos a ver si pulsas "A", aunque podéis poner otra tecla.
if 0x1 goto @Player+1
goto @Máquina+1 'Si no pulsas "A" rápido, la máquina se anota el tanto.

' ----------------------- Sumar pts ----------------------- 

#org @Jugador+1 'Vamos a subarte un tanto.
addvar 0x(Variable Contador) 0x1
compare 0x(Variable Contador) 0x64 'Si llegas al máximo, ganas.
if 0x1 goto @Ganas
goto @Anim 'Aquí cambiaremos los tiles, en caso de querer poner una barrita.

#org @Máquina+1
subvar 0x(Variable Contador) 0x1
compare 0x(Variable Contador) 0x0 'Si llegas al mínimo, pierdes.
if 0x1 goto @Pierdes
goto @Anim 'Aquí cambiaremos los tiles, en caso de querer poner una barrita.

' ----------------------- Script terminado ----------------------- 

#org @Ganas 'Esto a vuestro gusto.
end

#org @Pierdes 'Esto a vuestro gusto.
end

' ----------------------- Veamos por donde va la barrita ----------------------- 

#org @Anim
compare 0x(Variable Contador) 0x5  'Si estas en el intervalo 0-4
if 0x0 goto @BarritaEn1
compare 0x(Variable Contador) 0xA  'Si estas en el intervalo 5-9
if 0x0 goto @BarritaEn2
compare 0x(Variable Contador) 0xF  'Si estas en el intervalo 10-14
if 0x0 goto @BarritaEn3
compare 0x(Variable Contador) 0x14 'Si estas en el intervalo 15-19
if 0x0 goto @BarritaEn4
compare 0x(Variable Contador) 0x19 'Si estas en el intervalo 20-24
if 0x0 goto @BarritaEn5
compare 0x(Variable Contador) 0x1E 'Si estas en el intervalo 25-29
if 0x0 goto @BarritaEn5
compare 0x(Variable Contador) 0x23 'Si estas en el intervalo 30-34
if 0x0 goto @BarritaEn5
compare 0x(Variable Contador) 0x28 'Si estas en el intervalo 35-39
if 0x0 goto @BarritaEn8
compare 0x(Variable Contador) 0x2D 'Si estas en el intervalo 40-44
if 0x0 goto @BarritaEn9
compare 0x(Variable Contador) 0x32 'Si estas en el intervalo 45-49
if 0x0 goto @BarritaEn10
compare 0x(Variable Contador) 0x37 'Si estas en el intervalo 50-54
if 0x0 goto @BarritaEn11
compare 0x(Variable Contador) 0x3C 'Si estas en el intervalo 55-59
if 0x0 goto @BarritaEn12
compare 0x(Variable Contador) 0x41 'Si estas en el intervalo 60-64
if 0x0 goto @BarritaEn13
compare 0x(Variable Contador) 0x46 'Si estas en el intervalo 65-69
if 0x0 goto @BarritaEn14
compare 0x(Variable Contador) 0x4B 'Si estas en el intervalo 70-74
if 0x0 goto @BarritaEn15
compare 0x(Variable Contador) 0x50 'Si estas en el intervalo 75-79
if 0x0 goto @BarritaEn16
compare 0x(Variable Contador) 0x55 'Si estas en el intervalo 80-84
if 0x0 goto @BarritaEn17
compare 0x(Variable Contador) 0x5A 'Si estas en el intervalo 85-89
if 0x0 goto @BarritaEn18
compare 0x(Variable Contador) 0x5F 'Si estas en el intervalo 90-94
if 0x0 goto @BarritaEn19
compare 0x(Variable Contador) 0x64 'Si estas en el intervalo 95-99
if 0x0 goto @BarritaEn20

' ----------------------- Vamos a cambiar los tiles ----------------------- 

#org @BarritaEn1
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn2
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn3
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn4
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn5
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn6
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn7
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn8
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn9
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn10
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn11
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn12
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn13
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn14
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn15
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn16
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn17
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn18
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn19
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha

#org @BarritaEn20
setmaptile 0x 0x 0x 0x
special 0x8E
goto @Lucha


Gracias al usuario [@]cosarara97 ; por darse cuenta de un bug del script anterior, bueno, más que un bug es un pequeño truco, pero bueno.
La cosa es que en el anterior script, si mantenéis pulsada la "A", siempre ganáis, pero bueno, aquí esta el script arreglado:

Script "El Pulsatrón" AntiTrampas - Dani_SR_17

Para no descargarlo de nuevo, si queréis podéis cambiar la parte del "@Jugador+1", por esto:

Código:
#org @Jugador+1 'Vamos a subarte un tanto.
pause 0x2
comparefarbytetobyte 0x4000130 0xFE 'Vamos a ver si haces trampas
if 0x1 goto @Máquina+1 'Si mantienes la A, le dan tu punto a la máquina.
goto @Jugador+1-2

#org @Jugador+1-2
addvar 0x(Variable Contador) 0x1
compare 0x(Variable Contador) 0x64 'Si llegas al máximo, ganas.
if 0x1 goto @Ganas
goto @Anim 'Aquí cambiaremos los tiles, en caso de querer poner una barrita.


Espero que os guste y os sea útil, cualquier duda sobre el script preguntadla





Restar y Dividir 2 Variables


Restar y Dividir 2 Varaibles


Restar y Dividir 2 Variables




Saludos usuarios de Wah, después de un tiempo sin hacer ningún script, traigo uno que prometí hace tiempo.
El script en cuestión es complejo, solo usa algo de bucles y poco más.

Es para algo muy básico y útil para lo que no existen comandos
Restar y dividir variables, muchos diréis, ¿y yo para que quiero restar y dividir variables?
Pues bueno, ahí es donde la imaginación entra en juego, con eso podéis hacer minijuegos que requiera el uso de estás operaciones y tal, o algún sistema que lo requiera, etc...


Bueno, al turrón, aquí tenéis unas Scans para que veáis que no miento:




Aquí tenéis los Scripts listos para descargar:



Y aquí tenéis los Scripts:


Resta de 2 Variables

Código:
#dynamic 0x800000

#org @start
setvar 0x40FF 0x4 'Nº al que se le resta 2
buffernumber 0x0 0x40FF
setvar 0x40FE 0x2 'Nº para restar a 1
buffernumber 0x1 0x40FE
goto @Paso0

'-------------------------------------------------------------------

#org @Paso0 'Compruebo si la 1º var es 0.
compare 0x40FF 0x0
if 0x1 goto @Restado 'El resultado es 0.
if 0x2 goto @Paso1 'No es 0, vamos a la 2º comprobación

#org @Paso1
compare 0x40FE 0x0
if 0x1 goto @Restado 'Ya esta restado.
if 0x2 goto @Resta1 'No es 0, vamos a sumar

#org @Resta1 'Resta 1 a la 1º y resta 1 a la 2º
subvar 0x40FF 0x1
subvar 0x40FE 0x1
goto @Paso0 'Vuelve a comprobar


'-------------------------------------------------------------------


#org @Restado 'Script acabado solución en la 2º var
buffernumber 0x2 0x40FF
msgbox @LaRestaEs 0x6
end


'-------------------------------------------------------------------


#org @LaRestaEs
= El resultado de restarle\n[buffer2] a [buffer1]\les [buffer3]

División de 2 Variables

Código:
#dynamic 0x800000

#org @start
setvar 0x40FF 0x5 'Dividendo
buffernumber 0x0 0x40FF
setvar 0x40FE 0x2 'Divisor
buffernumber 0x1 0x40FE
setvar 0x40FD 0x0 'Cociente
setvar 0x40FC 0x0 'Resto
goto @Paso0

'-------------------------------------------------------------------

#org @Paso0 'Compruebo si el divisor es 0.
compare 0x40FE 0x0
if 0x1 goto @NoPuedoDividir 'Si el divisor es 0.
if 0x2 goto @Paso1 'No es 0, vamos a la 2º comprobación.

#org @Paso1
compare 0x40FF 0x0
if 0x1 goto @Dividido 'El resultado es 0.
if 0x2 goto @Dividamos 'No es 0, vamos a dividir

#org @Dividamos
comparevars 0x40FF 0x40FE 'Si el divisor es mas grande que el dividendo, ya está listo.
if 0x0 goto @Dividido
copyvar 0x40FB 0x40FE 'Usemos una variable para "dividir".
addvar 0x40FD 0x1 'El cociente se incrementa en 1.
goto @Dividiendo1


#org @Dividiendo0
compare 0x40FB 0x0 'Si ya he dividido 1 vez entre el nº.
if 0x1 goto @Paso1
goto @Dividiendo1

#org @Dividiendo1 'Le restamos 1 la variable dinámica para dividir, y al dividendo.
subvar 0x40FF 0x1
subvar 0x40FB 0x1
goto @Dividiendo0 'Vuelve a comprobar


'-------------------------------------------------------------------

#org @Dividido 'Script acabado
copyvar 0x40FC 0x40FF 'Este es el resto
msgbox @LaDivisionEs1 0x6
buffernumber 0x0 0x40FD
buffernumber 0x1 0x40FC
msgbox @LaDivisionEs2 0x6
end

#org @NoPuedoDividir
msgbox @NoDivisible 0x6


'-------------------------------------------------------------------

#org @NoDivisible
= No Puedes dividir por 0.

#org @LaDivisionEs1
= El resultado de dividir:\n[buffer1] entre [buffer2], es:

#org @LaDivisionEs2
= Cociente: [buffer1]\nResto: [buffer2]


Espero que os guste y os sirva






En el día más brillante, en la noche más oscura


En el día más brillante, en la noche más oscura



En el día más brillante, en la noche más oscura


..., ningún script se me escapará, que los hacks faltos de jugabilidad usen: ¡Los scripts de Dani_SR_17!

Y después del chiste, paso a explicar el script.


Lo primero, requisitos:
  • Una Rom (Obvio xD)
  • Tener la rutina DNS insertada.
  • Poner el script, como script de típo 05 en los mapas en los que lo quieras usar.

El script debéis insertarlo como un script de nivel 05. Recomiendo este >>Manual<< de Javi

También como he dicho, debeís tener insertado el >>DNS<<, mas concrétamente la rutina de esta herramienta del "RTC".



Bueno al lío, el script lo que hace es comprobar la hora del día cada vez que entremos en un mapa, salgamos de un combate, cerremos algún menú, etc..., claro, siempre y cuando tengas en script en dicho mapa.
Según la hora del día, en el script base, uso las mismas horas que usa DNS para cambiar las paletas, pero podéis poner horas sueltas, añadir más franjas, etc...

La cosa es que según la hora varía tu rango de visión, lo cual puede dar mucho juego y realismo, por la noche verás poco.


Además, con un poco de imaginación, puedes conseguir buenos efectos, como por ejemplo:
Un bosque que por el día esté iluminado y tal, pero por la noche se vea poco, salga niebla y se produzca algún evento.

Y eso solo modificando un par de líneas del script.


Creo que ya más o menos podéis haceros una idea de como va el script, y como es sencillo, dudo que necesite explicar mucho más, así que aquí va el vídeo:





Aquí tenéis disponible, el script base, con un script ya listo y una rom lista:



Para los más vagos el:
Código del script

Código:
dynamic 0x800000

#org @Start
copybyte 0x20370D0 0x3005542 'Vamos a ver que hora es.
compare LASTRESULT 0x(Hora 1)
if 0x3 goto @Hora1 'Si la hora es menor o igual.
compare LASTRESULT 0x(Hora 2)
if 0x3 goto @Hora2 'Si la hora es menor o igual.
compare LASTRESULT 0x(Hora 3)
if 0x3 goto @Hora3 'Si la hora es menor o igual.
compare LASTRESULT 0x(Hora 4)
if 0x3 goto @Hora4 'Si la hora es menor o igual.
compare LASTRESULT 0x(Hora 5)
if 0x3 goto @Hora5 'Si la hora es menor o igual.
goto @Hora6 'La última franjita del DNS.


#org @Hora1
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora1)
end

#org @Hora2
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora2)
end

#org @Hora3
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora3)
end

#org @Hora4
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora4)
end

#org @Hora5
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora5)
end

#org @Hora6
darken 0x4 'Ponemos el rádio al mínimo
lighten 0x(Rango de visión en Hora6)
end






Shiny Pokémon everywhere


Shiny Pokémon everywhere



Shiny Pokémon everywhere


Saludos Wah, la verdad, este tutorial no tenía pensamiento ponerlo, porque me parece demasiado sencillo, pero visto lo visto en un post de dudas voy a ponerlo.
El script sencillamente permite modificar el % de que aparezcan los Pokémon shinys, tanto salvajes como de entrenadores.


No sé como aumentar la probabilidad en general, seguramente tirando de ASM o modificando algún dato de la rom se pueda, pero esté método funciona igualmente.


Necesitaréis:

------------------------------------ Explicación previa ------------------------------------



Veamos voy a explicar el comando random, "random 0xN", siendo N un nº, lo que hace darte un valor aleatorio (bueno, pseudoaleatorio, pero da igual) entre 0 y N-1.
Ojo, ese número, tiene que estar en Hexadecimal.
Lo cual viene de perlas para que al combinarlo junto al shinyzer, los shinys tenga la % de salir que queramos.


------------------------------------ El script en sí ------------------------------------



Luego ya es sencillo, tirar un poco de la lógica y poner la probabilidad que uno dese, si por ejemplo quieres tener un 10% de que sea shiny:
Código:
#dynamic 0x800000

#org @Start
random 0xA 'Creamos un nº entre 0 y 9.
compare LASTRESULT 0x0 'Si ese nº es 0, el Pokémon será shiny.
if 0x1 goto @EsShiny
end

#org @EsShiny 'Aquí usamos la rutina del shinyzer para que sea shiny.
setvar 0x8003 0x1
end
Que un 10% no os mola y preferís un 3%, no hay problema, ahora aumentamos un poco el rango del random, y ya está.
Código:
#dynamic 0x800000

#org @Start
random 0x64 'Creamos un nº entre 0 y 99.
compare LASTRESULT 0x3 'Si ese nº es 0,1 ó 2, el Pokémon será shiny.
if 0x0 goto @EsShiny
end

#org @EsShiny 'Aquí usamos la rutina del shinyzer para que sea shiny.
setvar 0x8003 0x1
end

------------------------------------ Como implementarlo ------------------------------------



Ahora bien, el como implementarlo para que funcione en todas las rutas que queráis es bien sencillo, doy una explicación rápida, pero recomiendo leer >>este tutorial<< de @Javi4315♪ , en concreto para esto su última entrega.


Veamos, para que funcione en los mapas que queráis, tenéis que añadir un script de nivel en cada uno de los mapas, y diréis ¿qué tipo de script de nivel? Puesto que hay varios.
Para esto, personalmente veo más adecuado este:
Dicho por Javi4315♪
05: Es igual que el script de tipo 03, pero si bien este último se ejecutaba cuando se cargaba el mapa (cuando entras en él), el de tipo 05 se ejecutará tanto cuando entres al mapa como cuando salgas de un menú (mochila, pokédex…), inicies la partida guardada en ese mapa o salgas de una batalla.
Solo debéis poner el script que he puesto arriba como script de nivel del tipo 05, en cada una de las rutas que queráis que los Pokémon tengan ese % de aparecer shinys.




Personalmente me parece algo muy sencillo por eso no lo había puesto antes, pero bueno, espero que le deis buen uso.



Gracias por leer el post, espero que os sea útil y os gusten los scripts, traeré más noticias en breve
¡¡VIVA EL STAFFMIGUISMO!!

"Aunque algunos se empeñen en que pierda.
Sé que mis fans me harán grande,
mis haters me harán LEYENDA."



Premios






Dicho por Sayer301!
Tener que asumir que el alumno supera al maestro, puto Dani_SR_17 como controla de scripts.

Mis Tutoriales, Aportes e Investigaciones

-Recopilación de Scripts de Dani_SR_17-
-Colores del menú de info de los Pokémon-
-Pasar scripts usando la Refactorización-
-Pasar mapas de una Rom a otra y copias de seguridad-
-Pack de TextBox de Dani_SR_17-
-Daani Translate, por una Rom totalmente en Español-
-[Parche FR] No más Flashback-



Cheve, no he podido resistirme xD


_____Sexy?Sex
____?Sexy?Sexy
___y?Sexy?Sexy?
___?Sexy?Sexy?S
___?Sexy?Sexy?S
__?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Sexy?
?Sexy?Sexy?Sexy?Sexy
?Sexy?Sexy?Sexy?Sexy?Se
?Sexy?Sexy?Sexy?Sexy?Sex
_?Sexy?__?Sexy?Sexy?Sex
___?Sex____?Sexy?Sexy?
___?Sex_____?Sexy?Sexy
___?Sex_____?Sexy?Sexy
____?Sex____?Sexy?Sexy
_____?Se____?Sexy?Sex
______?Se__?Sexy?Sexy
_______?Sexy?Sexy?Sex
________?Sexy?Sexy?sex
_______?Sexy?Sexy?Sexy?Se
_______?Sexy?Sexy?Sexy?Sexy?
_______?Sexy?Sexy?Sexy?Sexy?Sexy
_______?Sexy?Sexy?Sexy?Sexy?Sexy?S
________?Sexy?Sexy____?Sexy?Sexy?se
_________?Sexy?Se_______?Sexy?Sexy?
_________?Sexy?Se_____?Sexy?Sexy?
_________?Sexy?S____?Sexy?Sexy
_________?Sexy?S_?Sexy?Sexy
________?Sexy?Sexy?Sexy
________?Sexy?Sexy?S
________?Sexy?Sexy
_______?Sexy?Se
_______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy
______?Sexy
_______?Sex
_______?Sex
_______?Sex
______?Sexy
______?Sexy
_______Sexy
_______ Sexy?
________SexY

  #2  
13/06/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
¡Genial!
Ésta recopilación sera de gran ayuda ^_^
Muchas Gracias!
Tema Hecho Importante~
Gracias: Dani_SR_17


Premios 2012-2013~



EX - MODERADOR
  #3  
20/06/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Están geniales los scripts, te felicito, no sabía que tenían tantas líneas de código. Espero que me dejes usar algunos para mi hack, si es que lo empiezo algún día claro, que con lo vago que soy xDDD
Gracias: Dani_SR_17
  #4  
20/06/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Dicho por AlanSCB Ver mensaje
Están geniales los scripts, te felicito, no sabía que tenían tantas líneas de código. Espero que me dejes usar algunos para mi hack, si es que lo empiezo algún día claro, que con lo vago que soy xDDD


Gracias por comentar

Ya sabes que si necesitas algo, solo pideló, además si pongo el código es para que se usen, eso sí, con créditos.
Y más tu, que te pasas un rato por aquí y te los preparo como quieras
Gracias: Master Brock
¡¡VIVA EL STAFFMIGUISMO!!

"Aunque algunos se empeñen en que pierda.
Sé que mis fans me harán grande,
mis haters me harán LEYENDA."



Premios






Dicho por Sayer301!
Tener que asumir que el alumno supera al maestro, puto Dani_SR_17 como controla de scripts.

Mis Tutoriales, Aportes e Investigaciones

-Recopilación de Scripts de Dani_SR_17-
-Colores del menú de info de los Pokémon-
-Pasar scripts usando la Refactorización-
-Pasar mapas de una Rom a otra y copias de seguridad-
-Pack de TextBox de Dani_SR_17-
-Daani Translate, por una Rom totalmente en Español-
-[Parche FR] No más Flashback-



Cheve, no he podido resistirme xD


_____Sexy?Sex
____?Sexy?Sexy
___y?Sexy?Sexy?
___?Sexy?Sexy?S
___?Sexy?Sexy?S
__?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Sexy?
?Sexy?Sexy?Sexy?Sexy
?Sexy?Sexy?Sexy?Sexy?Se
?Sexy?Sexy?Sexy?Sexy?Sex
_?Sexy?__?Sexy?Sexy?Sex
___?Sex____?Sexy?Sexy?
___?Sex_____?Sexy?Sexy
___?Sex_____?Sexy?Sexy
____?Sex____?Sexy?Sexy
_____?Se____?Sexy?Sex
______?Se__?Sexy?Sexy
_______?Sexy?Sexy?Sex
________?Sexy?Sexy?sex
_______?Sexy?Sexy?Sexy?Se
_______?Sexy?Sexy?Sexy?Sexy?
_______?Sexy?Sexy?Sexy?Sexy?Sexy
_______?Sexy?Sexy?Sexy?Sexy?Sexy?S
________?Sexy?Sexy____?Sexy?Sexy?se
_________?Sexy?Se_______?Sexy?Sexy?
_________?Sexy?Se_____?Sexy?Sexy?
_________?Sexy?S____?Sexy?Sexy
_________?Sexy?S_?Sexy?Sexy
________?Sexy?Sexy?Sexy
________?Sexy?Sexy?S
________?Sexy?Sexy
_______?Sexy?Se
_______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy
______?Sexy
_______?Sex
_______?Sex
_______?Sex
______?Sexy
______?Sexy
_______Sexy
_______ Sexy?
________SexY

  #5  
02/07/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Son muy originales y muy prácticos aunque en el caso de la "Quimerización" ¿solo es posible usar a shellder y a slowpoke? porque me intereso mucho la idea de usarlo en mi hack (claro que dando creditos) para hacer tipos de "estaciones de fusion" y en cada una se podria fusionar un poke nuevo, por eso viene mi pregunta ¿se pueden cambiar los pokemon?


<br />

Zero for GMod
  #6  
02/07/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Dicho por Pedrito4427 Ver mensaje
Son muy originales y muy prácticos aunque en el caso de la "Quimerización" ¿solo es posible usar a shellder y a slowpoke? porque me intereso mucho la idea de usarlo en mi hack (claro que dando creditos) para hacer tipos de "estaciones de fusion" y en cada una se podria fusionar un poke nuevo, por eso viene mi pregunta ¿se pueden cambiar los pokemon?
Si, puedes cambiarlo a cualquier Pokémon, como si quieres combinar 3, 4 o más Pokémon.
Mira, para comprobar que Pokémon llevas es esto:

Código:
setvar 0x8004 0x004F 'El 0x004F es el nº en HEX del Pokémon en cuestión.
special2 LASTRESULT 0x17C 'Esto lo que haces es ver si llevas a ese Pokémon en el equipo.
compare LASTRESULT 0x1
if 0x1 goto @EstaShellder 'Si lo llevas te lleva a este puntero.
goto @NoLlevasSlowpoke 'Si no lo llevas te lleva a este otro.
Gracias por comentar y me alegro de que te guste
¡¡VIVA EL STAFFMIGUISMO!!

"Aunque algunos se empeñen en que pierda.
Sé que mis fans me harán grande,
mis haters me harán LEYENDA."



Premios






Dicho por Sayer301!
Tener que asumir que el alumno supera al maestro, puto Dani_SR_17 como controla de scripts.

Mis Tutoriales, Aportes e Investigaciones

-Recopilación de Scripts de Dani_SR_17-
-Colores del menú de info de los Pokémon-
-Pasar scripts usando la Refactorización-
-Pasar mapas de una Rom a otra y copias de seguridad-
-Pack de TextBox de Dani_SR_17-
-Daani Translate, por una Rom totalmente en Español-
-[Parche FR] No más Flashback-



Cheve, no he podido resistirme xD


_____Sexy?Sex
____?Sexy?Sexy
___y?Sexy?Sexy?
___?Sexy?Sexy?S
___?Sexy?Sexy?S
__?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Sexy?
?Sexy?Sexy?Sexy?Sexy
?Sexy?Sexy?Sexy?Sexy?Se
?Sexy?Sexy?Sexy?Sexy?Sex
_?Sexy?__?Sexy?Sexy?Sex
___?Sex____?Sexy?Sexy?
___?Sex_____?Sexy?Sexy
___?Sex_____?Sexy?Sexy
____?Sex____?Sexy?Sexy
_____?Se____?Sexy?Sex
______?Se__?Sexy?Sexy
_______?Sexy?Sexy?Sex
________?Sexy?Sexy?sex
_______?Sexy?Sexy?Sexy?Se
_______?Sexy?Sexy?Sexy?Sexy?
_______?Sexy?Sexy?Sexy?Sexy?Sexy
_______?Sexy?Sexy?Sexy?Sexy?Sexy?S
________?Sexy?Sexy____?Sexy?Sexy?se
_________?Sexy?Se_______?Sexy?Sexy?
_________?Sexy?Se_____?Sexy?Sexy?
_________?Sexy?S____?Sexy?Sexy
_________?Sexy?S_?Sexy?Sexy
________?Sexy?Sexy?Sexy
________?Sexy?Sexy?S
________?Sexy?Sexy
_______?Sexy?Se
_______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy
______?Sexy
_______?Sex
_______?Sex
_______?Sex
______?Sexy
______?Sexy
_______Sexy
_______ Sexy?
________SexY

  #7  
10/09/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Buenas! Bueno este es mi primer post en el foro xD soy nuevo aunque llevo unas semanas ojeando un poco todo. Primeramente decirte que me ha encantado tu post, me parece muy original e innovador y realmente a los que jugamos estas cosas nos llaman mucho la atención y nos gustan (al menos a nivel personal). De todos modos quería preguntarte una cosa... Tengo pensado crear mi propio hack room más adelante, pero de momento estoy probando cosas para ver que me van saliendo y tal para ir así poco a poco y cuando lo tenga un poco más por la mano entonces si empezar mi hack room. Lo que quería preguntarte es que he probado lo de la lotería pokémon en mi hack y me parece una pasada y muy curioso, pero encuentro un "fallo". He llegado a llenar como 4 cajas de pokémons y no ha salido ningún shiny, es normal? Es porqué a pesar de que la probabilidad sea más baja sigue siendo muy difícil conseguir uno? Podrías decirme dónde y cómo exactamente podría manipular la probabilidad de que salga shiny? Muchas gracias por tu atención y sigue así! Tus ideas son muy buenas!
  #8  
10/09/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Dicho por Birinyi Ver mensaje
Buenas! Bueno este es mi primer post en el foro xD soy nuevo aunque llevo unas semanas ojeando un poco todo. Primeramente decirte que me ha encantado tu post, me parece muy original e innovador y realmente a los que jugamos estas cosas nos llaman mucho la atención y nos gustan (al menos a nivel personal). De todos modos quería preguntarte una cosa... Tengo pensado crear mi propio hack room más adelante, pero de momento estoy probando cosas para ver que me van saliendo y tal para ir así poco a poco y cuando lo tenga un poco más por la mano entonces si empezar mi hack room. Lo que quería preguntarte es que he probado lo de la lotería pokémon en mi hack y me parece una pasada y muy curioso, pero encuentro un "fallo". He llegado a llenar como 4 cajas de pokémons y no ha salido ningún shiny, es normal? Es porqué a pesar de que la probabilidad sea más baja sigue siendo muy difícil conseguir uno? Podrías decirme dónde y cómo exactamente podría manipular la probabilidad de que salga shiny? Muchas gracias por tu atención y sigue así! Tus ideas son muy buenas!
Lo primero, gracias por comentar y a ver si algún día veo tu hack por aquí.

Sobre lo Shinys, tiene un sencillo motivo, debes insertar esta rutina en la rom para que funcione: Shinyzer, es muy sencillo insertarla, solo debes pulsar un botón, y ya debería funcionarte.

Pagando el extra, sale Shiny 1 de cada 2, y sin pagarlo 1 de cada 10.

Si tienes más dudas dimelo.


PD: Por si quieres presentarte y todos esos royos, en el foro hay una zona para eso: Zona de presentaciones
Gracias: Birinyi
¡¡VIVA EL STAFFMIGUISMO!!

"Aunque algunos se empeñen en que pierda.
Sé que mis fans me harán grande,
mis haters me harán LEYENDA."



Premios






Dicho por Sayer301!
Tener que asumir que el alumno supera al maestro, puto Dani_SR_17 como controla de scripts.

Mis Tutoriales, Aportes e Investigaciones

-Recopilación de Scripts de Dani_SR_17-
-Colores del menú de info de los Pokémon-
-Pasar scripts usando la Refactorización-
-Pasar mapas de una Rom a otra y copias de seguridad-
-Pack de TextBox de Dani_SR_17-
-Daani Translate, por una Rom totalmente en Español-
-[Parche FR] No más Flashback-



Cheve, no he podido resistirme xD


_____Sexy?Sex
____?Sexy?Sexy
___y?Sexy?Sexy?
___?Sexy?Sexy?S
___?Sexy?Sexy?S
__?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Se
_?Sexy?Sexy?Sexy?
?Sexy?Sexy?Sexy?Sexy
?Sexy?Sexy?Sexy?Sexy?Se
?Sexy?Sexy?Sexy?Sexy?Sex
_?Sexy?__?Sexy?Sexy?Sex
___?Sex____?Sexy?Sexy?
___?Sex_____?Sexy?Sexy
___?Sex_____?Sexy?Sexy
____?Sex____?Sexy?Sexy
_____?Se____?Sexy?Sex
______?Se__?Sexy?Sexy
_______?Sexy?Sexy?Sex
________?Sexy?Sexy?sex
_______?Sexy?Sexy?Sexy?Se
_______?Sexy?Sexy?Sexy?Sexy?
_______?Sexy?Sexy?Sexy?Sexy?Sexy
_______?Sexy?Sexy?Sexy?Sexy?Sexy?S
________?Sexy?Sexy____?Sexy?Sexy?se
_________?Sexy?Se_______?Sexy?Sexy?
_________?Sexy?Se_____?Sexy?Sexy?
_________?Sexy?S____?Sexy?Sexy
_________?Sexy?S_?Sexy?Sexy
________?Sexy?Sexy?Sexy
________?Sexy?Sexy?S
________?Sexy?Sexy
_______?Sexy?Se
_______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy?
______?Sexy
______?Sexy
_______?Sex
_______?Sex
_______?Sex
______?Sexy
______?Sexy
_______Sexy
_______ Sexy?
________SexY

  #9  
10/09/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Aunque digas que son sencillos a mi me seria imposible hacer esto, como pedirle a un niño que te haga una equación de segundo grado:s
Me gustaria usar alguno de esos scripts en mi futuro proyecto, me seria de gran ayuda sobre todo el de la pokéria ya que con unas modificaciones lo podria adaptar a lo que necesito si te parece bien
  #10  
10/09/2014
Predeterminado Respuesta: Recopilación de Scripts de Dani_SR_17
Guau, dudo que las pruebe, pero esto sí que es arte con el scripting
Respuesta

Herramientas
Desplegado

Permisos para publicar mensajes
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los BB code están Activado
Los Emoticones están Activado
El código [IMG] está Activado
El Código HTML está Desactivado
Trackbacks are Activado
Pingbacks are Activado
Refbacks are Desactivado



Extra
Estilo clásico
La franja horaria es GMT +1. Ahora son las 05:39.