#dynamic 0x80082B
#org @start
applymovement 0x2 @move
waitmovement 0x0
msgbox @1 0x6
applymovement 0xFF @move0
waitmovement 0x0
msgbox @2 0x6
call @pokemon
msgbox @3 0x6
setvar 0x5000 0x0001
release
end
#org @1
= [blue_fr]Dad: Oh! \v\h01! Come here please!
#org @2
= [blue_fr]Alright, I caught three Pok\h1Bmon\nfrom three different regions.\pHere, Kanto, Johto, and Hoenn.\nChoose a Pok\h1Bmon that you want\lto train.
#org @pokemon
msgbox @one 0x5
compare LASTRESULT 0x1
if 0x1 goto @pokemon1
msgbox @two 0x5
compare LASTRESULT 0x1
if 0x1 goto @pokemon2
msgbox @three 0x5
compare LASTRESULT 0x1
if 0x1 goto @pokemon3
goto @pokemon
return
#org @one
= [blue_fr]Do you want the Kanto Pok\h1Bmon\nSHELLDER?
#org @two
= [blue_fr]Do you want the Johto Pok\h1Bmon\nPHANPY?
#org @three
= [blue_fr]Do you want the Hoenn Pok\h1Bmon\nSHROOMISH?
#org @pokemon1
givepokemon 0x5A 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @3 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @4 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name
msgbox @5 0x6
release
end
#org @3
= [black_fr]\v\h01 recieved a SHELLDER!
#org @4
= [black_fr]Would you like to give a nickname\nto SHELLDER?
#org @5
= [blue_fr]Dad: Alright then, have fun with\nthat Pok\h1Bmon.\pOh, and stop by Prof. Oak's lab.\nHe has two things to give you.
#org @pokemon2
givepokemon 0xE7 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @6 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @7 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name
msgbox @8 0x6
release
end
#org @6
= [black_fr]\v\h01 recieved a PHANPY!
#org @7
= [black_fr]Would you like to give a nickname\nto PHANPY?
#org @8
= [blue_fr]Dad: Alright then, have fun with\nthat Pok\h1Bmon.\pOh, and stop by Prof. Oak's lab.\nHe has two things to give you.
#org @pokemon3
givepokemon 0x132 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @9 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @10 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name
msgbox @11 0x6
release
end
#org @9
= [black_fr]\v\h01 recieved a SHROOMISH!
#org @10
= [black_fr]Would you like to give a nickname\nto SHROOMISH?
#org @11
= [blue_fr]Dad: Alright then, have fun with\nthat Pok\h1Bmon.\pOh, and stop by Prof. Oak's lab.\nHe has two things to give you.
#org @name
call 0x1A74EB
return
#org @move
#raw 0x62
#raw 0x1
#raw 0xFE
#org @move0
#raw 0x12
#raw 0x12
#raw 0x10
#raw 0xFE