The script executes perfectly, unless the player decides to give their pokemon a nickname.
In that case, it calls the nickname script and comes up with a screen asking if I want
to give a nickname to question mark. Completing this results in the pokeball never disappearing,
and the real pokemon is not given a nickname.
msgbox @notakey 0x2
givepokemon 0x42 0xA 0x0 0x0 0x0 0x0
addvar 0x4055 0x1
msgbox @received 0x4
msgbox @nick 0x5
compare LASTRESULT 0x1
if 0x1 goto @name
= Would you like Machop, the\nmartial arts pokemon?
= [player] received a Machop!
= Would you like to nickname your\nMachop?
= It's best to leave the rest alone.