/*
ProClifo's template for giving Pokémon with intergrated nicknaming and boxing.

Before calling this script, you must do these things:

setvar 0x4001 to Pokemon's ID
setvar 0x8002 to Pokemon's level
setvar 0x8003 to Pokemon's held item

*/

#org @start
givepokemon 0x4001 0x8002 0x8003 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 goto @nick1
compare LASTRESULT 0x1
if 0x1 goto @nick2
goto 0x8273811

#org @nick1
call @received
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto @release_all
call 0x827378B
call 0x82723DD
goto @release_all

#org @nick2
call @received
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto @offset
call 0x8273797
goto @offset

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

#org @received
bufferpokemon 0x1 0x4001
hidesprite 0x2
fanfare 0x172
preparemsg @received_msg
waitmsg
waitfanfare
bufferpokemon 0x0 0x4001
return

#org @release_all
releaseall
end

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

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

#org @offset
call 0x82737A0
goto @release_all

#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

#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 @received_msg
= [player] received a [buffer2]!

#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]."