View Single Post
  #6343    
Old December 29th, 2011 (11:29 PM).
Megiddo-san's Avatar
Megiddo-san Megiddo-san is offline
Barium - Summer '12 Return?
 
Join Date: Dec 2007
Location: Where you least expect it
Age: 23
Gender: Male
Nature: Relaxed
Posts: 1,331
Send a message via Windows Live Messenger to Megiddo-san
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.
Spoiler:
#org @begin
compare 0x4055 0x3
if 0x4 goto @done
cry 0x42 0x0
showpokepic 0x42 0xA 0x3
waitcry
msgbox @question 0x5
compare LASTRESULT 0x1
if 0x1 goto @take
hidepokepic
release
end

#org @done
msgbox @notakey 0x2
release
end

#org @take
givepokemon 0x42 0xA 0x0 0x0 0x0 0x0
hidepokepic
addvar 0x4055 0x1
fanfare 0x13E
msgbox @received 0x4
waitfanfare
closeonkeypress
msgbox @nick 0x5
compare LASTRESULT 0x1
if 0x1 goto @name
hidesprite 0x5
setflag 0x206

release
end

#org @name
call 0x1A74EB
return


#org @question
= Would you like Machop, the\nmartial arts pokemon?

#org @received
= [player] received a Machop!

#org @nick
= Would you like to nickname your\nMachop?

#org @notakey
= It's best to leave the rest alone.
__________________

Hashire! Asu e tsudzuku shinka no micha wa