FireRed hack: Pokemon Clear Diamond

'-----------------------
#org 0x71AA80
lock
faceplayer
checkflag 0x246
if 0x1 call 0x8161B8D
msgbox 0x871AAE0 '"Do you want a BULBASAUR?"
callstd 0x5
compare LASTRESULT 0x0
if 0x1 call 0x871AB00
setvar 0x4001 0x1
givepokemon 0x1 0xA 0x0 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 call 0x8161B12
compare LASTRESULT 0x1
if 0x1 call 0x8161B45
compare LASTRESULT 0x2
if 0x1 call 0x81A927C
release
end

'-----------------------
#org 0x161B8D
msgbox 0x81763DD '"How's BULBASAUR doing?"
callstd 0x4
release
end

'-----------------------
#org 0x71AB00
msgbox 0x871AB10 '"Nevermind, then."
callstd 0x2
end

'-----------------------
#org 0x161B12
textcolor 0x3
fanfare 0x101
msgbox2 0x81762D7 '"[player] obtained a BULBASAUR from\..."
waitmsgbox
waitfanfare
bufferpokemon 0x0 0x83
msgbox 0x81A56A7 '"Do you want to give a nickname to\n..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto 0x8161B7E
call 0x81A8C27
call 0x81A74EB
goto 0x8161B7E
end

'-----------------------
#org 0x161B45
textcolor 0x3
fanfare 0x101
msgbox2 0x81762D7 '"[player] obtained a BULBASAUR from\..."
waitmsgbox
waitfanfare
bufferpokemon 0x0 0x83
msgbox 0x81A56A7 '"Do you want to give a nickname to\n..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto 0x8161B73
call 0x81A8C33
goto 0x8161B73
end

'-----------------------
#org 0x1A927C
textcolor 0x3
msgbox 0x81A5E31 '"There's no more room for POKéMON!\p..."
callstd 0x4
release
end

'-----------------------
#org 0x161B7E
textcolor 0x0
msgbox 0x8176305 '"It's a BULBASAUR.\nIt's a very cute..."
callstd 0x4
setflag 0x246
release
end

'-----------------------
#org 0x1A8C27
countpokemon
subvar LASTRESULT 0x1
copyvar 0x8004 LASTRESULT
return

'-----------------------
#org 0x1A74EB
fadescreen 0x1
special 0x9E
waitstate
return

'-----------------------
#org 0x161B73
call 0x81A8C3C
goto 0x8161B7E
end

'-----------------------
#org 0x1A8C33
fadescreen 0x1
special 0x166
waitstate
lock
faceplayer
return

'-----------------------
#org 0x1A8C3C
bufferboxname 0x0 0x4037
bufferpokemon 0x1 0x4001
checkflag 0x834
if 0x0 call 0x81A8C57
checkflag 0x834
if 0x1 call 0x81A8C82
return

'-----------------------
#org 0x1A8C57
special2 LASTRESULT 0x165
compare LASTRESULT 0x1
if 0x1 goto 0x81A8C70
msgbox 0x81A5CF1 '"[buffer2] was transferred to\nSomeo..."
callstd 0x4
return

'-----------------------
#org 0x1A8C82
special2 LASTRESULT 0x165
compare LASTRESULT 0x1
if 0x1 goto 0x81A8C9B
msgbox 0x81A5D31 '"[buffer2] was transferred to\nBILL'..."
callstd 0x4
return

'-----------------------
#org 0x1A8C70
special2 LASTRESULT 0x18A
bufferboxname 0x2 LASTRESULT
msgbox 0x81A5D6E '"BOX ["][buffer3]" on\nSomeone's PC ..."
callstd 0x4
return

'-----------------------
#org 0x1A8C9B
special2 LASTRESULT 0x18A
bufferboxname 0x2 LASTRESULT
msgbox 0x81A5DB1 '"BOX ["][buffer3]" on\nBILL'S PC was..."
callstd 0x4
return


'---------
' Strings
'---------
#org 0x71AAE0
= Do you want a BULBASAUR?

#org 0x1763DD
= How's BULBASAUR doing?

#org 0x71AB10
= Nevermind, then.

#org 0x1762D7
= [player] obtained a BULBASAUR from\nthe girl!

#org 0x1A56A7
= Do you want to give a nickname to\nthis BULBASAUR?

#org 0x1A5E31
= There's no more room for POKéMON!\pThe POKéMON BOXES are full and\ncan't accept any more!

#org 0x176305
= It's a BULBASAUR.\nIt's a very cute POKéMON.\pWe took care of it, but it will\nbe much better off with you.\pI think you will be a good TRAINER\nfor BULBASAUR!\pIt's a cute plant.\nIt'll poison enemies!

#org 0x1A5CF1
= [buffer2] was transferred to\nSomeone's PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x1A5D31
= [buffer2] was transferred to\nBILL'S PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x1A5D6E
= BOX ["][buffer3]" on\nSomeone's PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."

#org 0x1A5DB1
= BOX ["][buffer3]" on\nBILL'S PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."