#dynamic 0x800000
#org @start
lock
faceplayer
checkflag 0x829
compare LASTRESULT 0x1
if 0x0 goto @pokéranch
checkflag 0x824
compare LASTRESULT 0x1
if 0x0 goto @pokédex
checkflag 0x12C
compare LASTRESULT 0x1
if 0x1 goto @howisit
msgbox @litter 0x5
compare LASTRESULT 0x1
if 0x0 goto @oh
countpokemon
compare 0x800D 0x6
if 0x1 goto @depositsome
givepokemon 0x1 0x5 0x0
msgbox @rename 0x5
compare LASTRESULT 0x1
if 0x1 gosub @nameit
msgbox @thanks 0x2
setflag 0x12C
release
end
#org @pokéranch
msgbox @iwant 0x2
release
end
#org @pokédex
msgbox @fancy 0x2
release
end
#org @howisit
msgbox @howsbulba 0x2
release
end
#org @litter
= My two Ivysaurs just had a litter\nof Bulbasaurs! Would you like to\lhave one, [player_name]?
#org @oh
msgbox @okaythen 0x2
release
end
#org @depositsome
msgbox @deposit 0x2
release
end
#org @rename
= [black_fr]Would you like to rename\nthe Bulbasaur you have received?
#org @nameit
countpokemon
subvar 0x800D 0x1
copyvar 0x8004 0x800D
fadescreen 0x1
special 0x166
waitspecial
fadescreen 0x0
return
#org @thanks
= You've done us a big favor by\ntaking it.
#org @iwant
= Ever since I was a child, I always\nwanted to own a Pokémon Ranch out\lwest\l...\lBut now I only have my two\lIvysaurs.
#org @fancy
= You've got one of those fancy\nPokémon encyclopedias made by Prof.\lHemlock? That's pretty nifty.
#org @howsbulba
= How is that Bulbasaur I gave you?
#org @okaythen
= Okay then. If you change your mind,\nyou know where to find us.
#org @deposit
= You need to deposit one of your\nPokémon before I can give you a\lBulbasaur.