#dynamic 0x800000
#org @start
lock
playsong2 0x012E
msgbox @message
callstd 6
applymovement 0xFF @exclm
applymovement 0x5 @movement
msgbox @message1
callstd 6
applymovement 0x5 @jump
msgbox @message2
callstd 6
applymovement 0x5 @jump1
msgbox @message3
callstd 5
compare LASTRESULT 0x0
if 0x1 call @no
msgbox @message4
callstd 6
call @multi
end
#org @multi
multichoice 0 0 15 0
copyvar LASTRESULT 0x2000
compare 0x2000 0x0
if 0x1 call @charmander
compare 0x2000 0x1
if 0x1 call @squirtle
compare 0x2000 0x2
if 0x1 call @bulbasaur
return
#org @exclm
#raw 0x63
#org @movement
#raw 0x13 0x13 0x13 0x13 0x13 0x11 0x13
#org @message
=Hey kid!
#org @message1
=Do you know anyone called [PLAYER]?\n...\lWhat? You're [PLAYER]!?
#org @jump
#raw 0x02
#org @message2
=Sir, are you sure he's called...\nHe...\lYessir, I will...\lRoger that.
#org @jump1
#raw 0x03
#org @message4
=(This is spoiler stuff from my hack so I'm not showing it)
#org @no
msgbox @nospeech
callstd 5
compare LASTRESULT 0x0
if 0x1 jump @no
return
#org @message3
= Well I'm glad to hear it. OK then,\nhave you got a pokémon of your own?\lNo... In that case I shall give you\lone. I have three with me. Which\lone would you like?
#org @charmander
msgbox @charmanderspeech
callstd 5
compare LASTRESULT 0x1
if 0x1 jump @getchar
compare LASTRESULT 0x0
if 0x1 call @nopoke
return
#org @squirtle
msgbox @squirtlespeech
callstd 5
compare LASTRESULT 0x1
if 0x1 jump @getsquirt
if 0x0 call @nopoke
return
#org @bulbasaur
msgbox @bulbasaurspeech
callstd 5
compare LASTRESULT 0x1
if 0x1 jump @getbulb
if 0x0 call @nopoke
return
#org @getchar
fanfare 0x010C
givepokemon 0x4 0x5 0x0 0x0 0x0 0x0
msgbox @receivechar
callstd 6
waitfanfare
call 0x1A74EB
msgbox @bye
callstd 6
applymovement 0x5 @byemove
hidesprite 0x5
fadedefault
end
#org @getbulb
fanfare 0x010C
givepokemon 0x1 0x5 0x0 0x0 0x0 0x0
msgbox @receivebulb
callstd 6
waitfanfare
call 0x1A74EB
msgbox @bye
callstd 6
applymovement 0x5 @byemove
hidesprite 0x5
fadedefault
end
#org @getsquirt
fanfare 0x010C
givepokemon 0x7 0x5 0x0 0x0 0x0 0x0
msgbox @receivesquirt
callstd 6
waitfanfare
call 0x1A74EB
msgbox @bye
callstd 6
applymovement 0x5 @byemove
hidesprite 0x5
fadedefault
end
#org @receivechar
=[PLAYER] received the charmander\nfrom the policeman!
#org @receivebulb
=[PLAYER] received the bulbasaur\nfrom the policeman!
#org @receivesquirt
=[PLAYER] received the squirtle\nfrom the policeman!
#org @byemove
#raw 0x12 0x10 0x12 0x12 0x12 0x12 0x12
#org @nopoke
msgbox @nopokespeech
callstd 6
return
#org @nopokespeech
=Oh? In that case what pokémon would\nyou like?
#org @nospeech
=[PLAYER]... He's your father.\nYou've got to help him. Are you\lwith me?
#org @charmanderspeech
=Ah! So I see you have chosen the\ncharmander, the fire pokémon! Is\lthat your final choice?
#org @bulbasaurspeech
=Ah! So I see you have chosen the\nbulbasaur, the grass pokémon! Is\lthat your final choice?
#org @squirtlespeech
=Ah! So I see you have chosen the\nsquirtle, the water pokémon! Is\lthat your final choice?
#org @bye
= Well I'll be seeing you very soon;\nin the meantime, start training up\lthat pokémon!