#dynamic 0x800000
#org @start
lock
faceplayer
countpokemon
compare 0x800D 0x6
if 0x1 goto @yespoke
[B]msgbox @yespoke 0x[B]5[/B]
compare LASTRESULT 0x1
if 0x0 goto @nopoke
msgbox @nopoke 0x6
release
end[/B]
#org @yespoke
= Oh hello again [player]!\pKeep training hard with your\npokemon okay?
#org @nopoke
= Lets begin okay?
[B]
if 0x1 goto @yesno1
if 0x0 goto @yesno1
msgbox @yesno1 0x5
closeonkeypress
fadescreen 0x1
fanfare 0x100
special 0x9C
waitfanfare
fadescreen 0x0
release
end[/B]
[B]#org @yesno1
= I'm going to ask you a\nseries of questions to determine\nwhat pokemon you get.\pAlright, here we go!\pDo you like ugliness?
if 0x1 goto @yes0
msgbox @yes1 0x6
compare LASTRESULT 0x1
if 0x0 goto @no0
msgbox @no1 0x5
release
end[/B]
[B]#org @yes0
= You like ugly things?\pWell this is ugly, here!
givepokemon 0x1 0xDC 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @27 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @28 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name7
msgbox @29 0x6
release
end
#org @no0
= Good taste kid, good taste.\pDo you like power?
if 0x1 goto @yes1
msgbox @yes1 0x6
compare LASTRESULT 0x1
if 0x0 goto @no1
msgbox @no1 0x5
release
end
#org @yes1
= Ah you do, that's\nreally good!\p Well here you go!
givepokemon 0x1 0x6F 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 @no1
= You don't?\nAre you sure?
if 0x1 goto @yes4
msgbox @yes4 0x5
if 0x0 goto @no4
msgbox @no4 0x6
release
end
#org @yes4
= Wow, you hate power!\nYou'd like this pokemon.\pHere you go I guess...
givepokemon 0x1 0xAF 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @19 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @20 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name5
msgbox @21 0x6
release
end
#org @no4
= Ah you were playing with me!\pDo you like speed?
if 0x1 goto @yes2
msgbox @yes3 0x6
if 0x0 goto @no2
msgbox @no3 0x6
release
end
#org @no2
= You don't like speed eh?\nI know what to give you!\pHere you go!
givepokemon 0x1 0x163 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @7 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @8 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name2
msgbox @9 0x6
release
end
#org @yes2
= You like speed eh? Do you\nalso like beauty?
if 0x1 goto @yes3
msgbox @yes3 0x6
if 0x0 goto @no3
msgbox @no3 0x6
release
end
#org @yes3
= Beauty and speed? Well, here\nyou go then kid!
givepokemon 0xF0 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @11 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @12 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name3
msgbox @13 0x6
release
end
#org @no3
= You don't huh? Well I\nguess you deserve this.\pHere you go kid!
givepokemon 0x1 0x51 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @15 0x4
waitfanfare
closeonkeypress
setflag 0x828
msgbox @16 0x5
compare LASTRESULT 0x1
if 0x1 gosub @name4
msgbox @17 0x6
release
end
[/B]
#org @name
call 0x1A74EB
return
#org @done
msgbox @6 0x6
release
end
#org @name2
call 0x1A74EB
return
#org @done2
msgbox @10 0x6
release
end
#org @name3
call 0x1A74EB
return
#org @done3
msgbox @14 0x6
release
end
#org @name4
call 0x1A74EB
return
#org @done4
msgbox @18 0x6
release
end
#org @name5
call 0x1A74EB
return
#org @done5
msgbox @22 0x6
release
end
#org @name6
call 0x1A74EB
return
#org @done6
msgbox @26 0x6
release
end
#org @name7
call 0x1A74EB
return
#org @done7
msgbox @26 0x6
release
end
#org @3
= [black_fr]You received a Rhyhorn!
#org @4
= [black_fr]Would you like to give a\nnickname to Rhyhorn?
#org @5
= Please take care of\nRhyhorn.
#org @6
= Are you taking good care\nof your pokemon?
#org @7
= [black_fr]You received a Duskull!
#org @8
= [black_fr]Would you like to give a\nnickname to Duskull?
#org @9
= Please take care of\nDuskull.
#org @10
= Are you taking good care\nof your pokemon?
#org @11
= [black_fr]You received a Magby!
#org @12
= [black_fr]Would you like to give a\nnickname to Magby?
#org @13
= Please take care of\nMagby.
#org @14
= Are you taking good care\nof your pokemon?
#org @15
= [black_fr]You received a Magnemite!
#org @16
= [black_fr]Would you like to give a\nnickname to Magnemite?
#org @17
= Please take care of\nMagnemite.
#org @18
= Are you taking good care\nof your pokemon?
#org @19
= [black_fr]You received a Togepi!
#org @20
= [black_fr]Would you like to give a\nnickname to Togepi?
#org @21
= Please take care of\nTogepi.
#org @22
= Are you taking good care\nof your pokemon?
#org @27
= [black_fr]You received a Swinub!
#org @28
= [black_fr]Would you like to give a\nnickname to Swinub?
#org @29
= Please take care of\nSwinub.
#org @30
= Are you taking good care\nof your pokemon?