Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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
- bufferpokemon 0x0 PKMN_LAPRAS
- setvar 0x8000 PKMN_LAPRAS
- goto @givepokemon
- #org @SNORLAX_check
- checkflag 0x241
- if 0x1 goto @SNORLAX
- return
- #org @SNORLAX
- setflag 0x271
- bufferpokemon 0x0 PKMN_SNORLAX
- setvar 0x8000 PKMN_SNORLAX
- goto @givepokemon
- #org @VENUSAUR_check
- checkflag 0x242
- if 0x1 goto @VENUSAUR
- return
- #org @VENUSAUR
- setflag 0x272
- bufferpokemon 0x0 PKMN_VENUSAUR
- setvar 0x8000 PKMN_VENUSAUR
- goto @givepokemon
- #org @CHARIZARD_check
- checkflag 0x243
- if 0x1 goto @CHARIZARD
- return
- #org @CHARIZARD
- setflag 0x273
- bufferpokemon 0x0 PKMN_CHARIZARD
- setvar 0x8000 PKMN_CHARIZARD
- goto @givepokemon
- #org @BLASTOISE_check
- checkflag 0x244
- if 0x1 goto @BLASTOISE
- return
- #org @BLASTOISE
- setflag 0x274
- bufferpokemon 0x0 PKMN_BLASTOISE
- setvar 0x8000 PKMN_BLASTOISE
- goto @givepokemon
- #org @givepokemon
- lock
- faceplayer
- setflag 0x280
- msgbox @seen_msg MSG_KEEPOPEN
- givepokemon 0x8000 40 0 0 0 0
- fanfare 0x172
- preparemsg @obtained_msg
- waitmsg
- waitfanfare
- release
- end
- #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]!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement