Ayer encontre una manera de aserlo! Aqui esta, pero en ingles.
Voy a traducir las partes mas importantes de el script :)

Aqui esta un script que sirve
#dynamic 0xE41046
#org @start
lock
faceplayer
special 0x28 -necesita estar ahi
fadescreen 0x1
special 0x2A -escojer
waitstate - wait
compare LASTRESULT 0x0
if 0x5 goto @it -si escojistes ve ahi
special 0x29 - no se
goto @no - si no escojistes

#org @no
msgbox @1 0x6
release
end

#org @1
= hurry

#org @it
special 0xFB
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x8
setvar 0x8005 0x0
special 0xEF
waitstate
setvar 0x8004 0x6
special 0xEA
special 0x29
copyvar 0x8000 LASTRESULT
compare 0x8000 0x1
if 0x1 goto @after - lo que pasa despues
fadescreen 0x1
special 0xCB
waitstate
release
end

^todo eso estaba en el script de Steven, no tengo idea lo que hace, pero sirve :)

#org @after
msgbox @2 0x6
release
end

#org @2
= thanks :^D
Obiamente si quieres que el jugador tenga que escojer tienes que cambiar unas cosas, pero ese script solamente era para ver si servia.

Aqui esta el script sin mis comentarios
[SPOILER]#dynamic 0xE41046
#org @start
lock
faceplayer
special 0x28
fadescreen 0x1
special 0x2A
waitstate
compare LASTRESULT 0x0
if 0x5 goto @it
special 0x29
goto @no

#org @no
msgbox @1 0x6
release
end

#org @1
= hurry

#org @it
special 0xFB
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x8
setvar 0x8005 0x0
special 0xEF
waitstate
setvar 0x8004 0x6
special 0xEA
special 0x29
copyvar 0x8000 LASTRESULT
compare 0x8000 0x1
if 0x1 goto @after
fadescreen 0x1
special 0xCB
waitstate
release
end

#org @after
msgbox @2 0x6
release
end

#org @2
= thanks :^D

Para hacer cosas mas facil, descarga esto y esto.
Eso es Nightmare Table Editor y sus modules. Muchas gracias a Agastya por darme eso.
Habre tu rom, y las modula necesaria de Steven y puedes cambiar pokemones, niveles, y mas. Despues para cambiar los pokemon de Maxie y Tabitha, navega a 0x202 y 0x2DE en cualquier trainer editor y puedes cambiar las cosas.

Despues de cambiar cosas, esto es mi resultado :)