Alguien sabe cual es el script de intercambio de pokemon?

#org 0x16FD5C
lock
faceplayer
setvar 0x8008 0x4
call 0x81A8CAD
checkflag 0x251
if 0x1 goto 0x816FDCE
msgbox 0x81A597B MSG_YESNO '"I'm looking for the POKéMON\n[buff..."
compare LASTRESULT 0x0
if 0x1 goto 0x816FDB6
call 0x81A8CBD
compare 0x8004 0x6
if 0x4 goto 0x816FDB6
call 0x81A8CC9
comparevars LASTRESULT 0x8009
if 0x5 goto 0x816FDC0
call 0x81A8CD9
msgbox 0x81A59DA MSG_KEEPOPEN '"Hey, thanks!"
setflag 0x251
release
end

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

'---------------
#org 0x16FDCE
msgbox 0x81A59E7 MSG_KEEPOPEN '"Isn't my old [buffer2] great?"
release
end

'---------------
#org 0x16FDB6
msgbox 0x81A59B6 MSG_KEEPOPEN '"Awww!\nOh, well[.]"
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 0x16FDC0
bufferpokemon 0x0 0x8009
msgbox 0x81A59C6 MSG_KEEPOPEN '"What?\nThat's no [buffer1]!"
release
end

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


'---------
' Strings
'---------
#org 0x1A597B
= I'm looking for the POKéMON\n[buffer1]!\pWanna trade one for my\n[buffer2]?

#org 0x1A59DA
= Hey, thanks!

#org 0x1A59E7
= Isn't my old [buffer2] great?

#org 0x1A59B6
= Awww!\nOh, well[.]

#org 0x1A59C6
= What?\nThat's no [buffer1]!