R | [Finalizada] Crianza de Pokémon Shiny en la guardería

Notifiquese: Que el Grupo POSITRON, en persona de su representante @Juanjo considere que esta investigación sea abierta al público debido a que el grupo POSITRON no se encuentra en su mejor momento ni sus miembros están completamente enfocados en su subforo y al mismo tiempo incitar a la generación de nuevos miembros.



PRESENTA:​

​

• Estudiar el script de la guardería.
• Lograr que el huevo que entregue sea shiny, aún cuando no existe un giveegg.
• Controlar la probabilidad del 15 mediante vars y flags.
• Que al recibir un pokemon en la guardería se permita analizarlo.
• Identificar que un Pokémon sea Shiny.

#org 0x1B22B2
preparemsg 0x81B27A2 '"[player] received the EGG from\nth..."
fanfare 0x16F
waitfanfare
waitmsg
waitkeypress
msgbox 0x81B27CD MSG_KEEPOPEN '"Take good care of it."
special 0xB8
clearflag 0x86
release
end

#org 0x71234A
checkflag 0x1234
if 0x1 call 0x871243C
preparemsg 0x81B27A2 '"[player] received the EGG from\nth..."
fanfare 0x16F
waitfanfare
waitmsg
waitkeypress
msgbox 0x81B27CD MSG_KEEPOPEN '"Take good care of it."
special 0xB8
clearflag 0x86
clearflag 0x1234
release
end

'---------------
#org 0x71243C
setvar 0x8003 0x1
return

'---------------
#org 0x712393
random 0x14
copyvar 0x50FE LASTRESULT
buffernumber 0x2 0x50FE
compare 0x50FE 0x0
if 0x1 goto 0x8712457
compare 0x50FE 0x1
if 0x1 goto 0x8712457
compare 0x50FE 0x2
if 0x1 goto 0x8712457
msgbox 0x87123EF MSG_FACE '"[buffer3] No hay huevos shiny."
end

'---------------
#org 0x712457
msgbox 0x8170CA7 MSG_FACE '"[buffer3] Hay huevos shiny."
setflag 0x1234
end


'---------
' Strings
'---------
#org 0x7123EF
= [buffer3] No hay huevos shiny.

#org 0x170CA7
= [buffer3] Hay huevos shiny.

Cheve_X dijo:

Código:

.text
.align 2
.thumb
.thumb_func
.global lesson1

main:
	push {r0-r4, lr}
	ldr r4, .PKMN_DATA
	ldrh r0, [r4]
	ldrh r2, [r4, #0X2]
	EOR r0, r2
	ldr r4, .PKMN_DATA2
	ldrh r3, [r4]
	ldr r4, .PKMN_DATA3
	ldrh r2, [r4]
	EOR r3, r2
	EOR r0,r3
	ldr r1, .VAR
	strh r0, [r1]
	pop {r0-r1, pc}


.align 2
.PKMN_DATA:
	.word 0x20286D0

.PKMN_DATA2:
	.word 0x2024EB0

.PKMN_DATA3:
	.word 0x2024EAE

.VAR:
	.word 0x0201E8C2 + (0x800D * 2)

Para aquellos con problemas en pasarla a HEX...

Código:

1F B5 06 4C 20 88 62 88 50 40 05 4C 23 88 05 4C 22 88 53 40 58 40 04 49 08 80 03 BD D0 86 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02

Deben copiar ese código en un Offset vacío que termine en 0, 4, 8 o C, luego deberan usar un callasm a esa direccion+1

Si por ejemplo lo ponen en 0x700000 un script simple con ésto funcionando sería así:

Código:

#include std.rbh
#DYNAMIC 0x800000

#org @Inicio
callasm 0x700001
compare LASTRESULT 0x8
if B_> call @NoShiny
msgbox @sms1 MSG_NORMAL
end


#org @NoShiny
msgbox @sms2 MSG_NORMAL '"o hay un Shiny"
end



#org @sms1
= Hay un Shiny

#org @sms2
= No hay un Shiny

Hacer clic para expandir...

88 53 40 58 40 04 49 08 80 03 BD D0 86 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02 FF 1F B5 06 4C 20 88 62 88 50 40 05 4C 23 88 05 4C 22 88 53 40 58 40 04 49 08 80 03 BD 20 87 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02

'---------------
#include std.rbh
#dynamic 0x712345

#org @Inicio
callasm 0x700001
compare LASTRESULT 0x8
if B_< call [MENTION=31325]Sis[/MENTION]hiny
callasm 0x70000D
compare LASTRESULT 0x8
if B_< call [MENTION=31325]Sis[/MENTION]hiny
msgbox @sms2 MSG_NORMAL
end


#org [MENTION=31325]Sis[/MENTION]hiny
msgbox @sms1 MSG_NORMAL
goto @Proba
end



#org @sms1
= Hay un Shiny

#org @sms2
= No hay un Shiny

#org @Proba
random 0x14
copyvar 0x50FE LASTRESULT
buffernumber 0x2 0x50FE
compare 0x50FE 0x0
if 0x1 goto 0x8712457
compare 0x50FE 0x1
if 0x1 goto 0x8712457
compare 0x50FE 0x2
if 0x1 goto 0x8712457
msgbox 0x87123EF MSG_FACE '"[buffer3] No hay huevos shiny."
end

'---------------
#org 0x712457
msgbox 0x8170CA7 MSG_FACE '"[buffer3] Hay huevos shiny."
setflag 0x1234
end


'---------
' Strings
'---------
#org 0x7123EF
= [buffer3] No hay huevos shiny.

#org 0x170CA7
= [buffer3] Hay huevos shiny.

'---------------
#include std.rbh
#dynamic 0x712345

#org 0x1B222D
lock
faceplayer
special 0xB5
special2 LASTRESULT 0xB6
compare LASTRESULT 0x1
if 0x1 goto 0x81B2262
compare LASTRESULT 0x2
if 0x1 goto 0x81B22E7
compare LASTRESULT 0x3
if 0x1 goto 0x81B22FE
msgbox 0x81B25CB MSG_KEEPOPEN '"I'm the DAY-CARE MAN.\pI help take..."
release
end

'---------------
#org 0x1B2262
msgbox 0x81B2659 MSG_YESNO '"Ah, it's you!\pWe were raising you..."
compare LASTRESULT 0x1
if 0x1 goto 0x81B2298
msgbox 0x81B28C4 MSG_YESNO '"ine."
compare LASTRESULT 0x1
if 0x1 goto 0x81B2298
msgbox 0x81B2745 MSG_KEEPOPEN '" ell then, I'll keep it.\nThanks!"
clearflag 0x86
special 0xB7
release
end

'---------------
#org 0x1B22E7
special 0xB5
msgbox 0x81B2710 MSG_KEEPOPEN '"Ah, it's you! Good to see you.\nYo..."
setvar 0x8004 0x0
call 0x81B22CD
release
end

'---------------
#org 0x1B22FE
special 0xB5
msgbox 0x81B2897 MSG_KEEPOPEN '"Ah, it's you! Your [buffer1] and\n..."
special 0xB9
special 0x8D
waitmsg
waitkeypress
setvar 0x8004 0x0
call 0x81B22CD
setvar 0x8004 0x1
call 0x81B22CD
release
end

'---------------
#org 0x1B2298
special2 LASTRESULT 0x83
compare LASTRESULT 0x6
if 0x5 goto 0x871234A
msgbox 0x81B2766 MSG_KEEPOPEN '"You have no room for it...\nCome b..."
release
end

'---------------
#org 0x1B22CD
clearflag 0x86
release
end

'---------------
#org 0x71234A
call @BusqueShiny
preparemsg 0x81B27A2 '"[player] received the EGG from\nth..."
fanfare 0x16F
waitfanfare
waitmsg
waitkeypress
msgbox 0x81B27CD MSG_KEEPOPEN '"Take good care of it."
special 0xB8
clearflag 0x86
clearflag 0x1234
release
end

'---------------
#org @BusqueShiny
callasm 0x700001
compare LASTRESULT 0x8
if B_< call [MENTION=31325]Sis[/MENTION]hiny
callasm 0x70000D
compare LASTRESULT 0x8
if B_< call [MENTION=31325]Sis[/MENTION]hiny
return

#org [MENTION=31325]Sis[/MENTION]hiny
random 0x40
compare LASTRESULT 0x0
if 0x1 goto @NaceShiny
return

#org @NaceShiny
setvar 0x8003 0x1
return



'---------
' Strings
'---------
#org 0x1B25CB
= I'm the DAY-CARE MAN.\pI help take care of the precious\nPOKéMON of TRAINERS.\pIf you'd like me to raise your POKéMON,\nhave a word with my wife.

#org 0x1B2659
= Ah, it's you!\pWe were raising your POKéMON, and my\ngoodness, were we surprised!\pYour POKéMON had an EGG!\pWe don't know how it got there,\nbut your POKéMON had it.\pYou do want it, yes?

#org 0x1B28C4
= ine.

#org 0x1B2745
=  ell then, I'll keep it.\nThanks!

#org 0x1B2710
= Ah, it's you! Good to see you.\nYour [buffer1]'s doing fine.

#org 0x1B2897
= Ah, it's you! Your [buffer1] and\n[buffer2] are doing fine.

#org 0x1B2766
= You have no room for it...\nCome back when you've made room.

#org 0x1B27A2
= [player] received the EGG from\nthe DAY-CARE MAN.

#org 0x1B27CD
= Take good care of it.

BLAx dijo:

Se me ocurre una idea para solucionar la parte del 15%

La cosa sería que ese mismo script que has usado con la chica para que te diga un número aleatorio y sepas si el Pokémon es shiny o no, se introdujese en el script de la guardería, justo después de haber dicho SI a la pregunta de si quieres coger el huevo o no.

PROS del método:
- El porcentaje de "mutación genética" es real, ya que da la manera que lo tienes puesto ahora (aunque es provisional, imagino) puedes hablar con la mujer hasta que salga que si hay huevo shiny.
- Había pensado otro más, pero se me ha olvidado xD, si lo recuerdo edito y lo pongo.

CONTRAS del método:
- No estoy seguro de si se puede introducir el script de que el Pokémon sea shiny en el momento que yo digo. Creo que si, pero por si acaso lo pongo como CONTRA.
- Igual que antes, había sacado otro CONTRA, pero se me ha olvidado xD

Hacer clic para expandir...

• Trainer ID: Se encuentra en el offset 0x02024EAE (2 bytes).
• Secret ID: Se encuentra en el offset 0x02024EB0 (2 bytes).
• Personalidad del pokémon: Los datos del equipo se encuentran en el offset 0x03004360. La personalidad del pokémon son los 4 primeros bytes, pero la posición depende de la posición de cada pokémon. Si se tratara, por ejemplo, del primer pokémon del equipo, se encontrarían en la propia dirección 0x03004360 (4 bytes).

• Trainer ID: A1DF
• Secret ID: 5E9C
• Personalidad: CA5C3BC9

• Trainer ID: DFA1
• Secret ID: 9C5E
• Personalidad: C93B5CCA

• Trainer ID: A1DF
• Secret ID: 5E9C
• Personalidad: D29F28DC

• Trainer ID: DFA1
• Secret ID: 9C5E
• Personalidad: DC289FD2

Javi4315♪;224081 dijo:

[NOTA: Esto es para Ruby, como dice el título de la investigación]

Spoiler: SPOILER

Bueno, se puede determinar si un pokémon es o no shiny a partir de algunos datos de la ram. El problema es que de manera externa al rom se puede hacer, pero hacerlo en el rom es más complicado (aunque quizás existan rutinas). El problema viene porque hay que hacer operaciones XOR. Y digo que se puede porque hay una rutina para Fire Red, pero el caso es que se pudiera insertar una rutina con la misma función en Ruby.

Como sea, vamos a ver cómo determinar si el pokémon es shiny. Necesitamos los siguientes datos de la ram:

• Trainer ID: Se encuentra en el offset 0x02024EAE (2 bytes).
• Secret ID: Se encuentra en el offset 0x02024EB0 (2 bytes).
• Personalidad del pokémon: Los datos del equipo se encuentran en el offset 0x03004360. La personalidad del pokémon son los 4 primeros bytes, pero la posición depende de la posición de cada pokémon. Si se tratara, por ejemplo, del primer pokémon del equipo, se encontrarían en la propia dirección 0x03004360 (4 bytes).

Es importante saber que estos datos están permutados, por lo que, a la hora de manipularlos, hay que tener esto en cuenta.

EJEMPLOS​

Voy a hacer dos pruebas. Una con un pokémon normal y otra con uno shiny. Para las operaciones XOR utilizaré esta calculadora, ¿Por qué esta calculadora? Efectivamente, porque es la primera que he encontrado en Google.

EJEMPLO 1 - Pokémon no shiny

Obtenemos de la RAM los datos que necesitamos:

• Trainer ID: A1DF
• Secret ID: 5E9C
• Personalidad: CA5C3BC9

Pero recordemos que los datos está permutados. Así que vamos a ponerlos bien:

• Trainer ID: DFA1
• Secret ID: 9C5E
• Personalidad: C93B5CCA

El Trainer ID y el Secret ID tienen 2 bytes, pero la personalidad tiene 4. Así que vamos a partirla en dos partes:

C93B5CCA: P1 = C93B; P2 = 5CCA.

Ahora tenemos vamos a nuestra calculadora XOR para hacer los cálculos. La fórmula es previsible:

Trainer ID ⊕ Secret ID ⊕ P1 ⊕ P2

O lo que es lo mismo (sustituyendo por los valores):

DFA1 ⊕ 9C5E ⊕ C93B ⊕ 5CCA

Y esta preciosa operación nos da como resultado: D60E

CONCLUSIÓN: El pokémon no es shiny.

EJEMPLO 2 - Pokémon shiny

(Copio el ejemplo 1 y le cambio los datos)

Obtenemos de la RAM los datos que necesitamos:

• Trainer ID: A1DF
• Secret ID: 5E9C
• Personalidad: D29F28DC

*Obviamente los valores de Trainer ID y Secret ID son los mismos porque es la misma partida. Si iniciáramos otra partida, estos datos cambiarían.

Pero recordemos que los datos está permutados. Así que vamos a ponerlos bien:

• Trainer ID: DFA1
• Secret ID: 9C5E
• Personalidad: DC289FD2

El Trainer ID y el Secret ID tienen 2 bytes, pero la personalidad tiene 4. Así que vamos a partirla en dos partes:

DC289FD2: P1 = DC28; P2 = 9FD2.

Ahora tenemos vamos a nuestra calculadora XOR para hacer los cálculos. La fórmula es previsible:

Trainer ID ⊕ Secret ID ⊕ P1 ⊕ P2

O lo que es lo mismo (sustituyendo por los valores):

DFA1 ⊕ 9C5E ⊕ DC28 ⊕ 9FD2

Y esta preciosa operación nos da como resultado: 5

CONCLUSIÓN: El pokémon sí es shiny.

Vale, ¿Y eso por qué?

Claro, os estaréis prguntando, ¿Por qué si el resultado es D60E no es shiny? ¿Y por qué si es 5 sí lo es?

Bueno, pues esto es lo más sencillo de todo. Siempre que el resultado sea menor que 8, el pokémon será shiny.

¿Entonces qué nos quedas?

Bueno. Sabemos dónde están los tres datos que necesitamos y podemos determinar si el resultado es menor que 8. Lo que necesitamos sería hacer las operaciones (XOR) de manera interna. A ver que se puede hacer.

Hacer clic para expandir...

Cheve_X dijo:

¿Que tal chicos? Bueno, pues no trabajo mucho con ruby, pero aquí vá mi granito de arena...

Spoiler

Código:

.align 2
.thumb

/*Special 0x44 is the Logical XOR operation. 
returns 1st ^^ 2nd. Doesn't change the originals*/
special_44: 	push {r1-r4, lr}
		ldr r3, pointer7
		ldrh r0, [r3]
		ldrh r4, [r3, #0x2]
		bl call_var_decrypt
		add r3, r0, #0x0
		add r0, r4, #0x0
		add r4, r3, #0x0
		bl call_var_decrypt
		ldrh r0, [r0]
		ldrh r2, [r4]
		EOR r0, r2
		pop {r1-r4, pc}
.hword 0x0000
pointer7: .word 0x0203f4d8

call_var_decrypt: ldr r1, var_decrypt
		  bx r1
var_decrypt:	.word 0x0806E455

Ésta rutina actualmente, carga dos variables que hayamos puesto en 0x0203f4d8 de la siguiente manera:

Writebytetooffset 0x50 0x0203f4d8
Writebytetooffset 0x60 0x0203f4d9
Writebytetooffset 0x06 0x0203f4da
Writebytetooffset 0x80 0x0203f4db

aqui cargamos la variable 6050 y 8008


Pero hay un problema, ésta rutina fue hecha para reemplazar un Special (El 0x44) en FireRed, y ser usada con un special2 de forma que pueda devolver el valor a una variable que nosotros le digamos... Mañana con tiempo veré si usando el IDA PRO, IPS y algun que otro truco me doy cuenta como funciona, o, miro otras rutinas para intentar lograr que carge el resultado en la primer variable que seteamos

Hacer clic para expandir...

Cheve_X dijo:

¡Hola Chicos! Al fin pude hacer algo útil en ASM :3 Me siento muy bien!

Bueno, miren, les diré como funciona la rutina (Lo unico malo que tiene, por ahora, es que solo chequea el Primer Pokémon que Guardamos si guardamos el shiny segundo, será como que no haya ninguno (Cuando pueda lo arreglo, que ahora estoy emocionado)

Funciona así:

Carga los valores de la OTID1 y la OTID2 y hace XOR, y guarda el resultado.
Carga los valores de la ID y SID y hace XOR, y guarda el resultado.
Hace XOR entre los resultados guardados y guarda ese resultado en la variable LASTRESULT :3

Bueno, aquí la rutina:

Código:

.text
.align 2
.thumb
.thumb_func
.global lesson1

main:
	push {r0-r4, lr}
	ldr r4, .PKMN_DATA
	ldrh r0, [r4]
	ldrh r2, [r4, #0X2]
	EOR r0, r2
	ldr r4, .PKMN_DATA2
	ldrh r3, [r4]
	ldr r4, .PKMN_DATA3
	ldrh r2, [r4]
	EOR r3, r2
	EOR r0,r3
	ldr r1, .VAR
	strh r0, [r1]
	pop {r0-r1, pc}


.align 2
.PKMN_DATA:
	.word 0x20286D0

.PKMN_DATA2:
	.word 0x2024EB0

.PKMN_DATA3:
	.word 0x2024EAE

.VAR:
	.word 0x0201E8C2 + (0x800D * 2)

Para aquellos con problemas en pasarla a HEX...

Código:

1F B5 06 4C 20 88 62 88 50 40 05 4C 23 88 05 4C 22 88 53 40 58 40 04 49 08 80 03 BD D0 86 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02

Deben copiar ese código en un Offset vacío que termine en 0, 4, 8 o C, luego deberan usar un callasm a esa direccion+1

Si por ejemplo lo ponen en 0x700000 un script simple con ésto funcionando sería así:

Código:

#include std.rbh
#DYNAMIC 0x800000

#org @Inicio
callasm 0x700001
compare LASTRESULT 0x8
if B_> call @NoShiny
msgbox @sms1 MSG_NORMAL
end


#org @NoShiny
msgbox @sms2 MSG_NORMAL '"o hay un Shiny"
end



#org @sms1
= Hay un Shiny

#org @sms2
= No hay un Shiny

RECUERDEN QUE ES SOLO PARA RUBY

Hacer clic para expandir...

Juanjo dijo:

.

Chevesito lo hiciste. ¡Eres fantástico! Cuando llegue a mi casa lo probaré y te digo. ¡Eres genial! Aunque la pregunta es que el resultado son 2 bytes. ¿Eso está incluído?

Hacer clic para expandir...

Cheve_X dijo:

No entiendo muy bien a lo que te refieres... El resultado de toda la operación puede ser cualquiera de entre 0000 a 7FFF que son los valores que entran en la variable

Hacer clic para expandir...

Javi4315♪;224273 dijo:

Bueno, ¿Pero ahora la cuestión no sería algo así como seleccionar un pokémon del equipo y que se determine si es shiny? Es decir, no que te diga si es shiny el primer pokémon, o el segundo, sino el que tú selecciones, me refiero.

Hacer clic para expandir...

88 53 40 58 40 04 49 08 80 03 BD D0 86 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02 FF 1F B5 06 4C 20 88 62 88 50 40 05 4C 23 88 05 4C 22 88 53 40 58 40 04 49 08 80 03 BD 20 87 02 02 B0 4E 02 02 AE 4E 02 02 DC E8 02 02

'---------------
#include std.rbh
#dynamic 0x712345

#org @Inicio
callasm 0x700001
compare LASTRESULT 0x8
if B_< call @SiShiny
callasm 0x70000D
compare LASTRESULT 0x8
if B_< call @SiShiny
msgbox @sms2 MSG_NORMAL
end


#org @SiShiny
msgbox @sms1 MSG_NORMAL
goto @Proba
end



#org @sms1
= Hay un Shiny

#org @sms2
= No hay un Shiny

#org @Proba
random 0x14
copyvar 0x50FE LASTRESULT
buffernumber 0x2 0x50FE
compare 0x50FE 0x0
if 0x1 goto 0x8712457
compare 0x50FE 0x1
if 0x1 goto 0x8712457
compare 0x50FE 0x2
if 0x1 goto 0x8712457
msgbox 0x87123EF MSG_FACE '"[buffer3] No hay huevos shiny."
end

'---------------
#org 0x712457
msgbox 0x8170CA7 MSG_FACE '"[buffer3] Hay huevos shiny."
end


'---------
' Strings
'---------
#org 0x7123EF
= [buffer3] No hay huevos shiny.

#org 0x170CA7
= [buffer3] Hay huevos shiny.

'---------------
#include std.rbh
#dynamic 0x712345

#org 0x1B222D
lock
faceplayer
special 0xB5
special2 LASTRESULT 0xB6
compare LASTRESULT 0x1
if 0x1 goto 0x81B2262
compare LASTRESULT 0x2
if 0x1 goto 0x81B22E7
compare LASTRESULT 0x3
if 0x1 goto 0x81B22FE
msgbox 0x81B25CB MSG_KEEPOPEN '"I'm the DAY-CARE MAN.\pI help take..."
release
end

'---------------
#org 0x1B2262
msgbox 0x81B2659 MSG_YESNO '"Ah, it's you!\pWe were raising you..."
compare LASTRESULT 0x1
if 0x1 goto 0x81B2298
msgbox 0x81B28C4 MSG_YESNO '"ine."
compare LASTRESULT 0x1
if 0x1 goto 0x81B2298
msgbox 0x81B2745 MSG_KEEPOPEN '" ell then, I'll keep it.\nThanks!"
clearflag 0x86
special 0xB7
release
end

'---------------
#org 0x1B22E7
special 0xB5
msgbox 0x81B2710 MSG_KEEPOPEN '"Ah, it's you! Good to see you.\nYo..."
setvar 0x8004 0x0
call 0x81B22CD
release
end

'---------------
#org 0x1B22FE
special 0xB5
msgbox 0x81B2897 MSG_KEEPOPEN '"Ah, it's you! Your [buffer1] and\n..."
special 0xB9
special 0x8D
waitmsg
waitkeypress
setvar 0x8004 0x0
call 0x81B22CD
setvar 0x8004 0x1
call 0x81B22CD
release
end

'---------------
#org 0x1B2298
special2 LASTRESULT 0x83
compare LASTRESULT 0x6
if 0x5 goto 0x871234A
msgbox 0x81B2766 MSG_KEEPOPEN '"You have no room for it...\nCome b..."
release
end

'---------------
#org 0x1B22CD
clearflag 0x86
release
end

'---------------
#org 0x71234A
call @BusqueShiny
preparemsg 0x81B27A2 '"[player] received the EGG from\nth..."
fanfare 0x16F
waitfanfare
waitmsg
waitkeypress
msgbox 0x81B27CD MSG_KEEPOPEN '"Take good care of it."
special 0xB8
clearflag 0x86
clearflag 0x1234
release
end

'---------------
#org @BusqueShiny
callasm 0x700001
compare LASTRESULT 0x8
if B_< call @SiShiny
callasm 0x70000D
compare LASTRESULT 0x8
if B_< call @SiShiny
return

#org @SiShiny
random 0x14
copyvar 0x50FE LASTRESULT
buffernumber 0x2 0x50FE
compare 0x50FE 0x0
if 0x1 goto @NaceShiny
compare 0x50FE 0x1
if 0x1 goto @NaceShiny
compare 0x50FE 0x2
if 0x1 goto @NaceShiny
return

#org @NaceShiny
setvar 0x8003 0x1
return



'---------
' Strings
'---------
#org 0x1B25CB
= I'm the DAY-CARE MAN.\pI help take care of the precious\nPOKéMON of TRAINERS.\pIf you'd like me to raise your POKéMON,\nhave a word with my wife.

#org 0x1B2659
= Ah, it's you!\pWe were raising your POKéMON, and my\ngoodness, were we surprised!\pYour POKéMON had an EGG!\pWe don't know how it got there,\nbut your POKéMON had it.\pYou do want it, yes?

#org 0x1B28C4
= ine.

#org 0x1B2745
=  ell then, I'll keep it.\nThanks!

#org 0x1B2710
= Ah, it's you! Good to see you.\nYour [buffer1]'s doing fine.

#org 0x1B2897
= Ah, it's you! Your [buffer1] and\n[buffer2] are doing fine.

#org 0x1B2766
= You have no room for it...\nCome back when you've made room.

#org 0x1B27A2
= [player] received the EGG from\nthe DAY-CARE MAN.

#org 0x1B27CD
= Take good care of it.

Chamber dijo:

Felicidades muchachos, una buena manera de incentivar el breeding en los RH!!

@Crystal_ Seria posible que hicieramos algo similar en GBC? y digo similar por que en Crystal ya existe la rutina del odd egg, solo haria falta que leyera si alguno de los padres es shiny y de ahi saltar a esa rutina u otra similar pero mas corta.

Seria relativamente sencillo no?? aunque ya vez que en GBC nada facil jaja

Hacer clic para expandir...