FR - Spearow for Farfetch'd script

'---------------
#org 0x16B5D7
lock
faceplayer
setvar 0x8008 0x3
call 0x81A8CAD
checkflag 0x24D
if 0x1 goto 0x816B649
msgbox 0x81949CB MSG_YESNO '"Hi!\nDo you have a [buffer1]?\pWan..."
compare LASTRESULT 0x0
if 0x1 goto 0x816B631
call 0x81A8CBD
compare 0x8004 0x6
if 0x4 goto 0x816B631
call 0x81A8CC9
comparevars LASTRESULT 0x8009
if 0x5 goto 0x816B63B
call 0x81A8CD9
msgbox 0x8194A44 MSG_KEEPOPEN '"Thank you!"
setflag 0x24D
release
end

'---------------
#org 0x1A8CAD
copyvar 0x8004 0x8008
special2 LASTRESULT 0xFC
copyvar 0x8009 LASTRESULT
return

'---------------
#org 0x16B649
msgbox 0x8194A4F MSG_KEEPOPEN '"How is my old [buffer2]?\pMy [buff..."
release
end

'---------------
#org 0x16B631
msgbox 0x81949FD MSG_KEEPOPEN '"That's too bad."
release
end

'---------------
#org 0x1A8CBD
special 0x9F
waitstate
lock
faceplayer
copyvar 0x800A 0x8004
return

'---------------
#org 0x1A8CC9
copyvar 0x8005 0x800A
special2 LASTRESULT 0xFF
copyvar 0x800B LASTRESULT
return

'---------------
#org 0x16B63B
bufferpokemon 0x0 0x8009
msgbox 0x8194A0D MSG_KEEPOPEN '"[.]This is no [buffer1].\pIf you g..."
release
end

'---------------
#org 0x1A8CD9
copyvar 0x8004 0x8008
copyvar 0x8005 0x800A
special 0xFD
special 0xFE
waitstate
lock
faceplayer
return


'---------
' Strings
'---------
#org 0x1949CB
= Hi!\nDo you have a [buffer1]?\pWant to trade it for my\n[buffer2]?

#org 0x194A44
= Thank you!

#org 0x194A4F
= How is my old [buffer2]?\pMy [buffer1] is doing great!

#org 0x1949FD
= That's too bad.

#org 0x194A0D
= [.]This is no [buffer1].\pIf you get one, please trade it\nto me!