Pokemon Garnet

#dynamic 0x800000
 
#org @start
lockall
checkflag 0x807
if 0x0 goto @slice
checkitem 0x105 0x1
compare LASTRESULT 0x6
if 0x1 goto @slice
setanimation 0x0 LASTRESULT
msgbox @would 0x5
compare LASTRESULT 0x0
if 0x1 goto @end
msgbox @sword MSG_KEEPOPEN
closeonkeypress
doanimation 0x2
waitstate
setflag 0x1654
goto @finish
 
#org @slice
msgbox @cut MSG_SIGN
releaseall
end
 
#org @cut
= If you had a sword, you\ncould probably Cut this\ltree down...
 
#org @would
= There is a tree blocking the way.\pWould you like to cut it down?
 
#org @end
closeonkeypress
releaseall
end
 
#org @sword
= [player] cut the tree down.
 
#org @finish
applymovement LASTTALKED @ok
waitmovement 0x0
hidesprite LASTTALKED
releaseall
end
 
#org @ok
#raw 0x5B 0xFE

#include std.rbh
 
#dynamic 0x800000
 
#org @start
checkflag 0x3110
if 0x1 goto @left
lockall
applymovement 0x8 @whoa
waitmovement 0x0
msgbox @you 0x5
compare LASTRESULT 0x0
if 0x1 goto @tobad
msgbox @home MSG_FACE
givepokemon 0x98 0xF 0x0 0x0 0x0 0x0
bufferpokemon 0x0 0x98
fanfare 0x13E
lockall
msgbox @got MSG_KEEPOPEN
lockall
closeonkeypress
waitfanfare
lockall
msgbox @nick 0x5
compare LASTRESULT 0x1
if 0x1 call @name
setflag 0x3110
goto @done
release
end
 
#org @tobad
msgbox @ohwel MSG_FACE
release
end
 
#org @ohwel
= Oh... That's alright too.
 
#org @left
msgbox @ich MSG_FACE
release
end
 
#org @name
fadescreen 0x1
special 0x9E
waitstate
return
 
#org @ich
= Hello, how are you?
 
#org @done
msgbox @take MSG_FACE
release
end
 
#org @take
= Take good care of [buffer1]!
 
#org @whoa
#raw 0x56
#raw 0xFE
 
#org @you
= Hey!\nYou're the one who saved\lLord Fir from that parasite.\pHe kept us locked up here for\nso long... now we can be free!\pTell you what...\pA couple people down here are\ntrainers like yourself, only we\lhave no use for our POKéMON anymore.\pWere giving them away, but be warned:\nyou can only get one.\pMy POKéMON is a Chikorita.\nDo you want it?
 
#org @home
= Thanks!\nI hope you can give it a good home.
 
#org @got
= You recieved a [buffer1]!
 
#org @nick
= Would you like to give a\nnickname to this [buffer1]?

#dynamic 0x800000
 
#org @start
setvar 0x5000 0x1
checkflag 0x905
if 0x0 goto @stop
release
end
 
#org @stop
lockall
msgbox @wait MSG_NORMAL
applymovement 0xFF @whoa
waitmovement 0x0
showsprite 0x5
applymovement 0x5 @walking
waitmovement 0x0
msgbox @poke MSG_NORMAL
giveitem 0x4 0x5 MSG_OBTAIN
fanfare 0x13E
waitfanfare
setflag 0x905
msgbox @luck MSG_NORMAL
applymovement 0x5 @goback
waitmovement 0x0
releaseall
end
 
#org @wait
= Wait, [PLAYER]!
 
#org @whoa
#raw 0x56 0x02 0xFE
 
#org @walking
#raw 0x07 0x07 0x05 0x05 0x07 0x07 0x05 0x03 0xFE
 
#org @poke
= [PLAYER]!\pHow has that Ponyta been working\nout for you?\p... ... ...\n... ... ...\pWell, that's good.\nListen, before you go to\pthe next town, there is\nsomething you should know.\pPonyta won't be your only POKéMON.\pI know, it's crazy, but you can catch\nothers with a tool called aPOKéBALL.\pI have some for you here.\nTry it!
 
#org @luck
= Just throw one when a POKéMON\nyou want to catch is weak.\pThe ball releases a spell that\nensnares the POKéMON's sprit.\pIf all goes well, the POKéMON\nwill be under your command!\p... ... ...\nAnd a word of advice...\pThe next town is the middle-ground\nbetween Terracasa and Crescent.\pIt might be rough.\pBut, good luck anyways.\nIf you were able to defeat Lord Aspen,\pthis should not be a problem for you.
 
#org @goback
#raw 0x4 0x6 0x6 0x6 0x4 0x4 0x6 0x6 0xFE