Emerald: ProClifo's Give Pokémon Template

/*

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

This is meant to be called on by an earlier script. Remember to save the offsets when compiling, because this can be used more than once.
Before calling this script, you must do this beforehand:

setvar 0x4001 to Pokemon's ID

Call/goto this script on the next line after a 'givepokemon' command.
This doesn't return to the previous script, but you can modify the aftermath at @release.

*/

#freespace 0xFF
#dynamic 0xF00000

#org @start
compare LASTRESULT 0x0
if 0x1 goto @nick1
compare LASTRESULT 0x1
if 0x1 goto @nick2
goto 0x8273811

#org @nick1
call @received
msgbox 0x8273374 MSG_YESNO
compare LASTRESULT 0x0
if 0x1 goto @release
call 0x827378B
call 0x82723DD
goto @release

#org @nick2
call @received
msgbox 0x8273374 MSG_YESNO
compare LASTRESULT 0x0
if 0x1 goto @offset
call 0x8273797
goto @offset

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

#org @release
release
end

#org @offset
call 0x82737A0
goto @release

#org @received_msg
= [player] received a [buffer2]!