'---------------
#org 0x2118F1
lock
faceplayer
compare 0x40C4 0x2
if 0x1 goto 0x8211A03
compare 0x40C4 0x1
if 0x1 goto 0x82119F9
msgbox 0x8211F48 MSG_KEEPOPEN '"I've been trying to develop a devi..."
checkitem 0x11E 0x1
compare LASTRESULT 0x1
if 0x1 goto 0x8211933
checkitem 0x11F 0x1
compare LASTRESULT 0x1
if 0x1 goto 0x8211991
release
end

'---------------
#org 0x211A03
compare 0x40C5 0x1
if 0x1 goto 0x8211A1A
compare 0x40C5 0x2
if 0x1 goto 0x8211A2C
end

'---------------
#org 0x2119F9
msgbox 0x82121A2 MSG_KEEPOPEN '"The FOSSIL REGENERATOR, which I ma..."
release
end

'---------------
#org 0x211933
closeonkeypress
sound 0x15
applymovement 0x5 0x8272598
waitmovement 0x0
applymovement 0x5 0x827259A
waitmovement 0x0
msgbox 0x8211FA6 MSG_YESNO '"Wait! That thing you have there[.]..."
compare LASTRESULT 0x0
if 0x1 goto 0x82119EF
checkitem 0x11F 0x1
compare LASTRESULT 0x1
if 0x1 goto 0x8211B84
goto 0x8211974

'---------------
#org 0x211991
closeonkeypress
sound 0x15
applymovement 0x5 0x8272598
waitmovement 0x0
applymovement 0x5 0x827259A
waitmovement 0x0
msgbox 0x8211FA6 MSG_YESNO '"Wait! That thing you have there[.]..."
compare LASTRESULT 0x0
if 0x1 goto 0x82119EF
checkitem 0x11E 0x1
compare LASTRESULT 0x1
if 0x1 goto 0x8211B84
goto 0x82119D2

'---------------
#org 0x211A1A
bufferpokemon 0x1 0x184
msgbox 0x8212251 MSG_KEEPOPEN '"Thanks for waiting!\pYour fossiliz..."
goto 0x8211A3E

'---------------
#org 0x211A2C
bufferpokemon 0x1 0x186
msgbox 0x8212251 MSG_KEEPOPEN '"Thanks for waiting!\pYour fossiliz..."
goto 0x8211AE1

'---------------
#org 0x2119EF
msgbox 0x8212046 MSG_KEEPOPEN '"Oh, is that so?\pDEVON's technolog..."
release
end

'---------------
#org 0x211B84
preparemsg 0x8212092 '"Oh, now that's a surprise!\nYou ha..."
waitmsg
multichoice 0x11 0x6 0x5D 0x0
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x8211BC1
compare 0x8000 0x1
if 0x1 goto 0x8211BC7
compare 0x8000 0x2
if 0x1 goto 0x8211BCD
compare 0x8000 0x7F
if 0x1 goto 0x8211BCD
end

'---------------
#org 0x211974
bufferitem 0x0 0x11E
msgbox 0x8212153 MSG_KEEPOPEN '"Excellent!\nLet's do this right aw..."
removeitem 0x11E 0x1
setvar 0x40C4 0x1
setvar 0x40C5 0x1
release
end

'---------------
#org 0x2119D2
bufferitem 0x0 0x11F
msgbox 0x8212153 MSG_KEEPOPEN '"Excellent!\nLet's do this right aw..."
removeitem 0x11F 0x1
setvar 0x40C4 0x1
setvar 0x40C5 0x2
release
end

'---------------
#org 0x211A3E
setvar 0x4001 0x184
givepokemon 0x184 0x14 0x0 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 goto 0x8211A6E
compare LASTRESULT 0x1
if 0x1 goto 0x8211A96
goto 0x8273811

'---------------
#org 0x211AE1
setvar 0x4001 0x186
givepokemon 0x186 0x14 0x0 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 goto 0x8211B11
compare LASTRESULT 0x1
if 0x1 goto 0x8211B39
goto 0x8273811

'---------------
#org 0x211BC1
goto 0x82119D2

'---------------
#org 0x211BC7
goto 0x8211974

'---------------
#org 0x211BCD
release
end

'---------------
#org 0x211A6E
call 0x8211AC4
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x8211AD7
call 0x827378B
call 0x82723DD
goto 0x8211AD7

'---------------
#org 0x211A96
call 0x8211AC4
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x8211AB9
call 0x8273797
goto 0x8211AB9

'---------------
#org 0x273811
msgbox 0x827331C MSG_KEEPOPEN '"There's no more room for POKéMON!\..."
release
end

'---------------
#org 0x211B11
call 0x8211B67
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x8211B7A
call 0x827378B
call 0x82723DD
goto 0x8211B7A

'---------------
#org 0x211B39
call 0x8211B67
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x8211B5C
call 0x8273797
goto 0x8211B5C

'---------------
#org 0x211AC4
bufferpokemon 0x1 0x184
fanfare 0x172
preparemsg 0x82122CB '"[player] received [buffer2] from\n..."
waitmsg
waitfanfare
bufferpokemon 0x0 0x184
return

'---------------
#org 0x211AD7
setvar 0x40C4 0x0
setflag 0x10B
release
end

'---------------
#org 0x27378B
countpokemon
subvar LASTRESULT 0x1
copyvar 0x8004 LASTRESULT
return

'---------------
#org 0x2723DD
fadescreen 0x1
special 0xA1
waitstate
return

'---------------
#org 0x211AB9
call 0x82737A0
goto 0x8211AD7

'---------------
#org 0x273797
fadescreen 0x1
special 0x1E6
waitstate
lock
faceplayer
return

'---------------
#org 0x211B67
bufferpokemon 0x1 0x186
fanfare 0x172
preparemsg 0x82122CB '"[player] received [buffer2] from\n..."
waitmsg
waitfanfare
bufferpokemon 0x0 0x186
return

'---------------
#org 0x211B7A
setvar 0x40C4 0x0
setflag 0x10B
release
end

'---------------
#org 0x211B5C
call 0x82737A0
goto 0x8211B7A

'---------------
#org 0x2737A0
bufferboxname 0x0 0x4036
bufferpokemon 0x1 0x4001
checkflag 0x8AB
if 0x0 call 0x82737BB
checkflag 0x8AB
if 0x1 call 0x82737E6
return

'---------------
#org 0x2737BB
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737D4
msgbox 0x8273216 MSG_KEEPOPEN '"[buffer2] was transferred to\nSOME..."
return

'---------------
#org 0x2737E6
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737FF
msgbox 0x8273256 MSG_KEEPOPEN '"[buffer2] was transferred to\nLANE..."
return

'---------------
#org 0x2737D4
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x8273296 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nSOMEONE'S PC..."
return

'---------------
#org 0x2737FF
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x82732D9 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nLANETTE'S PC..."
return


'---------
' Strings
'---------
#org 0x211F48
= I've been trying to develop a device\nthat resurrects POKéMON from fossils[.]\pAnd, it's working!

#org 0x2121A2
= The FOSSIL REGENERATOR, which I made,\nis incredible.\pBut it has one drawback--it takes\na long time to work.\pSo, uh[.] How about you go for a stroll\nand look around for a while?

#org 0x211FA6
= Wait! That thing you have there[.]\nIs that a POKéMON fossil?\pWould you like to bring that POKéMON\nback to life?\pI can with my newly developed\nFOSSIL REGENERATOR.

#org 0x212251
= Thanks for waiting!\pYour fossilized POKéMON has been\nbrought back to life!\pThe fossil was an ancient POKéMON.\n[buffer2], it was!

#org 0x212046
= Oh, is that so?\pDEVON's technological expertise\nis outstanding, I tell you.

#org 0x212092
= Oh, now that's a surprise!\nYou have not one, but two, fossils?\pUnfortunately, my machine can only\nregenerate one POKéMON at a time.\pWould you like to pick one of your\nfossils for regeneration?

#org 0x212153
= Excellent!\nLet's do this right away.\p[player] handed the [buffer1] to\nthe DEVON RESEARCHER.

#org 0x273374
= Do you want to give a nickname to\nthis [buffer1]?

#org 0x27331C
= There's no more room for POKéMON!\pThe POKéMON BOXES are full and\ncan't accept any more!

#org 0x2122CB
= [player] received [buffer2] from\nthe DEVON RESEARCHER.

#org 0x273216
= [buffer2] was transferred to\nSOMEONE'S PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x273256
= [buffer2] was transferred to\nLANETTE'S PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x273296
= BOX ["][buffer3]" on\nSOMEONE'S PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."

#org 0x2732D9
= BOX ["][buffer3]" on\nLANETTE'S PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."


'-----------
' Movements
'-----------
#org 0x272598
#raw 0x56 'Exclamation Mark (!)
#raw 0xFE 'End of Movements

#org 0x27259A
#raw 0x14 'Delay5
#raw 0x14 'Delay5
#raw 0x14 'Delay5
#raw 0xFE 'End of Movements