#dynamic 0x800000
'---------------
#org @start
lock
faceplayer
call @snippet1
release
end
'---------------
#org @snippet1
special 0x187
compare LASTRESULT 0x2
if 0x1 goto @snippet2
preparemsg @string1 '"Welcome to our POKéMON CENTER!\pWo..."
waitmsg
multichoice 0x13 0x8 0x0 0x2
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto @snippet3
compare 0x8000 0x1
if 0x1 goto @snippet4
compare 0x8000 0x7F
if 0x1 goto @snippet4
end
'---------------
#org @snippet2
release
end
'---------------
#org @snippet3
cmdc3 0xF
preparemsg @string2 '"Okay, I'll take your POKéMON for a..."
waitmsg
call @snippet5
special 0x169
goto @snippet6
'---------------
#org @snippet4
msgbox @string3 MSG_KEEPOPEN '"We hope to see you again!"
return
'---------------
#org @snippet5
applymovement LASTTALKED @move1
waitmovement 0x0
doanimation 0x19
checkanimation 0x19
applymovement LASTTALKED @move2
waitmovement 0x0
special 0x0
return
'---------------
#org @snippet6
special2 LASTRESULT 0x1B1
compare LASTRESULT 0x0
if 0x1 goto @snippet7
special2 LASTRESULT 0x183
copyvar 0x8008 LASTRESULT
compare 0x8008 0x0
if 0x1 goto @snippet7
compare 0x8008 0x1
if 0x1 goto @snippet8
end
'---------------
#org @snippet7
preparemsg @string4 '"Thank you for waiting.\nWe've rest..."
waitmsg
applymovement LASTTALKED @move3
waitmovement 0x0
msgbox @string3 MSG_KEEPOPEN '"We hope to see you again!"
return
'---------------
#org @snippet8
checkflag 0x842
if 0x1 goto @snippet7
msgbox @string4 MSG_KEEPOPEN '"Thank you for waiting.\nWe've rest..."
setflag 0x842
preparemsg @string5 '"It appears as if [buffer1] is play..."
waitmsg
applymovement LASTTALKED @move3
waitmovement 0x0
msgbox @string3 MSG_KEEPOPEN '"We hope to see you again!"
return
'---------
' Strings
'---------
#org @string1
= Welcome to our POKéMON CENTER!\pWould you like me to heal your\nPOKéMON back to perfect health?
#org @string2
= Okay, I'll take your POKéMON for a\nfew seconds.
#org @string3
= We hope to see you again!
#org @string4
= Thank you for waiting.\nWe've restored your POKéMON to\lfull health.
#org @string5
= It appears as if [buffer1] is playing\nright now.\lGo for it!
'-----------
' Movements
'-----------
#org @move1
#raw 0x2F 'Face Left (Delayed)
#raw 0xFE 'End of Movements
#org @move2
#raw 0x2D 'Face Down (Delayed)
#raw 0xFE 'End of Movements
#org @move3
#raw 0x5B 'mov5B
#raw 0x1A 'Delay3
#raw 0xFE 'End of Movements