'---------------
#org 0xF01B8B
checkflag 0x270
if 0x0 call 0x8F01BD5
checkflag 0x271
if 0x0 call 0x8F01BEE
checkflag 0x272
if 0x0 call 0x8F01C07
checkflag 0x273
if 0x0 call 0x8F01C20
checkflag 0x274
if 0x0 call 0x8F01C39
checkflag 0x280
if 0x0 goto 0x8F01BCB
msgbox 0x8F01D24 MSG_FACE '"DOLLS are cozy, aren't they?"
end

'---------------
#org 0xF01BD5
checkflag 0x240
if 0x1 goto 0x8F01BE0
return

'---------------
#org 0xF01BEE
checkflag 0x241
if 0x1 goto 0x8F01BF9
return

'---------------
#org 0xF01C07
checkflag 0x242
if 0x1 goto 0x8F01C12
return

'---------------
#org 0xF01C20
checkflag 0x243
if 0x1 goto 0x8F01C2B
return

'---------------
#org 0xF01C39
checkflag 0x244
if 0x1 goto 0x8F01C44
return

'---------------
#org 0xF01BCB
msgbox 0x8260099 MSG_FACE '"Hah?\nWhat are you gawking at?\pI ..."
end

'---------------
#org 0xF01BE0
setflag 0x270
setvar 0x4001 0x83
goto 0x8F01C52

'---------------
#org 0xF01BF9
setflag 0x271
setvar 0x4001 0x8F
goto 0x8F01C52

'---------------
#org 0xF01C12
setflag 0x272
setvar 0x4001 0x3
goto 0x8F01C52

'---------------
#org 0xF01C2B
setflag 0x273
setvar 0x4001 0x6
goto 0x8F01C52

'---------------
#org 0xF01C44
setflag 0x274
setvar 0x4001 0x9
goto 0x8F01C52

'---------------
#org 0xF01C52
faceplayer
setflag 0x280
bufferpokemon 0x0 0x4001
msgbox 0x8F01C77 MSG_KEEPOPEN '"I saw that!\nYou bought a [buffer1..."
givepokemon 0x4001 0x28 0x0 0x0 0x0 0x0
call 0x8F00465
'---------------
#org 0xF00465
compare LASTRESULT 0x0
if 0x1 goto 0x8F01503
compare LASTRESULT 0x1
if 0x1 goto 0x8F0152B
goto 0x8273811

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

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

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

'---------------
#org 0xF0154E
bufferpokemon 0x1 0x4001
fanfare 0x172
preparemsg 0x8F01570 '"[player] received a [buffer2]!"
waitmsg
waitfanfare
bufferpokemon 0x0 0x4001
return

'---------------
#org 0xF01562
releaseall
end

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

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

'---------------
#org 0xF01565
call 0x82737A0
goto 0x8F01562

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

'---------------
#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 0xF01D24
= DOLLS are cozy, aren't they?

#org 0x260099
= Hah?\nWhat are you gawking at?\pI don't like you staring at my plush\ndoll like that.\pIf you want it, go get one yourself!\nIsn't that right, SMOOCHUM?

#org 0xF01C77
= I saw that!\nYou bought a [buffer1] DOLL!\pTo invest so much for a DOLL like\nthat[.]\pYou must have quite an interest in\nPOKéMON from the KANTO region.\lHere, I want you to have this.

#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 0xF01570
= [player] received a [buffer2]!

#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]."