Ahora si

#dynamic 0x800000

#org @comienzo
checkflag 0x
if 0x1 goto @goto1
msgbox @msg1
callstd 0x6
if 0x1 goto @goto2
compare LASTRESULT 0x1
if 0x1 goto @goto3
setflag 0x
release
end

#org @goto1
msgbox @msg2
callstd 0x6
release
end

#org @goto3
msgbox @msg3
callstd 0x2
givepokemon 0x 0x 0x 0x 0x
if 0x1 call @call1
setflag 0x800
release
end

#org @goto4
msgbox @msg4
callstd 0x2
if 0x1 goto @goto2
compare LASTRESULT 0x1
if 0x1 goto @goto3
release
end


#org @call1
release
end

'---------
' Strings
'---------
#org @msg1
= Hola Entrenador Pokemon, tengo a Charizard en mi equipo, pero no podré tenerlo más. ¿Quieres cuidarlo por mi?

#org @msg2
= ¿Como va charizard? ¿Ha aprendido nuevos trucos?

#org @msg3
= Muchas gracias, Cuida Bien de Charizard

#org @msg4
= ¿Por qué no? Piensalo de nuevo.