'---------------
#org 0x222841
lockall
msgbox 0x8222B9E MSG_YESNO '"[player] checked the POKé BALL.\pI..."
compare LASTRESULT 0x0
if 0x1 goto 0x822285B
goto 0x8222865

'---------------
#org 0x22285B
msgbox 0x8222C2A MSG_KEEPOPEN '"[player] left the POKé BALL where\..."
releaseall
end

'---------------
#org 0x222865
setvar 0x4001 0x18E
givepokemon 0x18E 0x5 0x0 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 goto 0x8222895
compare LASTRESULT 0x1
if 0x1 goto 0x82228BD
goto 0x8273811

'---------------
#org 0x222895
call 0x82228EB
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x8222901
call 0x827378B
call 0x82723DD
goto 0x8222901

'---------------
#org 0x2228BD
call 0x82228EB
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x82228E0
call 0x8273797
goto 0x82228E0

'---------------
#org 0x273811
msgbox 0x827331C MSG_KEEPOPEN '"There's no more room for POKéMON!\..."
release
end

'---------------
#org 0x2228EB
bufferpokemon 0x1 0x18E
hidesprite 0x2
fanfare 0x172
preparemsg 0x8222BED '"[player] obtained a BELDUM."
waitmsg
waitfanfare
bufferpokemon 0x0 0x18E
return

'---------------
#org 0x222901
setflag 0x3C8
setflag 0x12A
releaseall
end

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

'---------------
#org 0x2723DD
fadescreen 0x1
special 0xA1
waitstate
return

'---------------
#org 0x2228E0
call 0x82737A0
goto 0x8222901

'---------------
#org 0x273797
fadescreen 0x1
special 0x1E6
waitstate
lock
faceplayer
return

'---------------
#org 0x2737A0
bufferboxname 0x0 0x4036
bufferpokemon 0x1 0x4001
checkflag 0x8AB
if 0x0 call 0x82737BB
checkflag 0x8AB
if 0x1 call 0x82737E6
return

'---------------
#org 0x2737BB
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737D4
msgbox 0x8273216 MSG_KEEPOPEN '"[buffer2] was transferred to\nSOME..."
return

'---------------
#org 0x2737E6
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737FF
msgbox 0x8273256 MSG_KEEPOPEN '"[buffer2] was transferred to\nLANE..."
return

'---------------
#org 0x2737D4
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x8273296 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nSOMEONE'S PC..."
return

'---------------
#org 0x2737FF
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x82732D9 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nLANETTE'S PC..."
return


'---------
' Strings
'---------
#org 0x222B9E
= [player] checked the POKé BALL.\pIt contained the POKéMON\nBELDUM.\pTake the POKé BALL?

#org 0x222C2A
= [player] left the POKé BALL where\nit was.

#org 0x273374
= Do you want to give a nickname to\nthis [buffer1]?

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

#org 0x222BED
= [player] obtained a BELDUM.

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

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

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

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