Guy gives you Kanto Pokémon after buying dolls

#include stdpoke.rbh
#freespace 0xFF
#dynamic 0xF00000

#org @start
checkflag 0x270
if 0x0 call @lapras_check
checkflag 0x271
if 0x0 call @snorlax_check
checkflag 0x272
if 0x0 call @venusaur_check
checkflag 0x273
if 0x0 call @charizard_check
checkflag 0x274
if 0x0 call @blastoise_check
checkflag 0x280
if 0x0 goto @normal
msgbox @cozy_msg MSG_FACE
end

#org @normal
msgbox 0x8260099 MSG_FACE
end

#org @lapras_check
checkflag 0x240
if 0x1 goto @lapras
return

#org @lapras
setflag 0x270
setvar 0x4001 PKMN_LAPRAS
goto @givepokemon

#org @SNORLAX_check
checkflag 0x241
if 0x1 goto @SNORLAX
return

#org @SNORLAX
setflag 0x271
setvar 0x4001 PKMN_SNORLAX
goto @givepokemon

#org @VENUSAUR_check
checkflag 0x242
if 0x1 goto @VENUSAUR
return

#org @VENUSAUR
setflag 0x272
setvar 0x4001 PKMN_VENUSAUR
goto @givepokemon

#org @CHARIZARD_check
checkflag 0x243
if 0x1 goto @CHARIZARD
return

#org @CHARIZARD
setflag 0x273
setvar 0x4001 PKMN_CHARIZARD
goto @givepokemon

#org @BLASTOISE_check
checkflag 0x244
if 0x1 goto @BLASTOISE
return

#org @BLASTOISE
setflag 0x274
setvar 0x4001 PKMN_BLASTOISE
goto @givepokemon

#org @givepokemon
lock
faceplayer
setflag 0x280
bufferpokemon 0x0 0x4001
msgbox @seen_msg MSG_KEEPOPEN
givepokemon 0x4001 40 0x0 0x0 0x0 0x0
goto 0x8F00465

#org @seen_msg
= 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 @cozy_msg
= DOLLS are cozy, aren't they?

#org @obtained_msg
= [player] obtained a [buffer1]!