object_const_def
	;setflag GLOBALTERMINALOUTSIDE_ROCKET

DebugRoom_MapScripts:
	def_scene_scripts

	def_callbacks

DebugPokemon1Script:
	opentext
	getmonname STRING_BUFFER_3, LUXWAN
	writetext ReceivedDebugPokemonText
	playsound SFX_CAUGHT_MON
	waitsfx
	promptbutton
	givepoke LUXWAN, 24, POISON_STONE
	closetext
	end

DebugPokemon2Script:
	opentext
	getmonname STRING_BUFFER_3, MACHAMP
	writetext ReceivedDebugPokemonText
	playsound SFX_CAUGHT_MON
	waitsfx
	promptbutton
	givepoke MACHAMP, 31, TM_ROCK_SMASH
	closetext
	end

ReceivedDebugPokemonText:
	text "<PLAYER> received"
	line "@"
	text_ram wStringBuffer3
	text "!"
	done
	
DebugPokemon3Script:
	faceplayer
	opentext
	writetext DebugTextA
	cry DOKUROAR
	pause 15
	closetext
	loadvar VAR_BATTLETYPE, BATTLETYPE_SHINY
	loadwildmon DOKUROAR, 60
	startbattle
	reloadmapafterbattle
	end

DebugTextA:
	text "Sparkle..."
	line "Sparkle..."
	done
	
DebugPokemon4Script:
	faceplayer
	opentext
	writetext DebugTextB
	cry NIDORAN_M
	pause 15
	closetext
	loadvar VAR_BATTLETYPE, BATTLETYPE_NORMAL
	loadwildmon BIPULLA, 60
	startbattle
	reloadmapafterbattle
	end

DebugTextB:
	text "Do-ku-raaagh!"
	done

DebugFlyScript:
	faceplayer
	opentext
	writetext DebugTextC
	playsound SFX_GET_BADGE
	promptbutton
	setflag ENGINE_ZEPHYRBADGE
	setflag ENGINE_HIVEBADGE
	setflag ENGINE_PLAINBADGE
	setflag ENGINE_FOGBADGE
	setflag ENGINE_STORMBADGE
	setflag ENGINE_MINERALBADGE
	setflag ENGINE_GLACIERBADGE
	setflag ENGINE_RISINGBADGE
	setflag ENGINE_POKEDEX
	setflag ENGINE_MAP_CARD
	setflag ENGINE_POKEGEAR
	setflag ENGINE_PHONE_CARD
	
	setflag ENGINE_FLYPOINT_PLAYERS_HOUSE
	setflag ENGINE_FLYPOINT_DEBUG
	setflag ENGINE_FLYPOINT_PALLET
	setflag ENGINE_FLYPOINT_VIRIDIAN
	setflag ENGINE_FLYPOINT_PEWTER
	setflag ENGINE_FLYPOINT_CERULEAN
	setflag ENGINE_FLYPOINT_ROCK_TUNNEL
	setflag ENGINE_FLYPOINT_VERMILION
	setflag ENGINE_FLYPOINT_LAVENDER
	setflag ENGINE_FLYPOINT_SAFFRON
	setflag ENGINE_FLYPOINT_CELADON
	setflag ENGINE_FLYPOINT_FUCHSIA
	setflag ENGINE_FLYPOINT_CINNABAR
	setflag ENGINE_FLYPOINT_INDIGO_PLATEAU
	setflag ENGINE_FLYPOINT_NEW_BARK
	setflag ENGINE_FLYPOINT_CHERRYGROVE
	setflag ENGINE_FLYPOINT_VIOLET
	setflag ENGINE_FLYPOINT_AZALEA
	setflag ENGINE_FLYPOINT_CIANWOOD
	setflag ENGINE_FLYPOINT_GOLDENROD
	setflag ENGINE_FLYPOINT_OLIVINE
	setflag ENGINE_FLYPOINT_ECRUTEAK
	setflag ENGINE_FLYPOINT_MAHOGANY
	setflag ENGINE_FLYPOINT_LAKE_OF_RAGE
	setflag ENGINE_FLYPOINT_BLACKTHORN
	setflag ENGINE_FLYPOINT_SILVER_CAVE
	setflag ENGINE_FLYPOINT_SILENT_HILLS
	
	setevent EVENT_BEAT_ELITE_FOUR
	
	addcellnum PHONE_MOM
	readvar VAR_BADGES
	givepoke SHI_SHI, 70
	closetext
	end
	
DebugTextC:
	text "I believe I can" 
	line "FLY!"
	done

DebugDexScript:
	faceplayer
	opentext
	writetext DebugTextD
	playsound SFX_FANFARE
	promptbutton
	callasm CheatFillPokedex
	givepoke FURRET, 100 ; gets all the hms
	closetext
	end

DebugTextD:
	text "Your #DEX is" 
	line "fully complete!"
	done

CheatFillPokedex:
	ld hl, wPokedexSeen
	call .Fill
	ld hl, wPokedexCaught
	.Fill:
	ld a, %11111111
	ld bc, 31 ; 001-248
	call ByteFill
	ld a, %11111111
	ld bc, 18 ; 249-392
	call ByteFill
	ret

DebugItemScript:
	faceplayer
	opentext
	writetext DebugTextE
	playsound SFX_FANFARE_2
	promptbutton
	giveitem MASTER_BALL, 99
	giveitem LEVEL_BALL, 99
	giveitem MOON_BALL, 99
	giveitem FRIEND_BALL, 99
	giveitem LURE_BALL, 99
	giveitem LOVE_BALL, 99
	giveitem FAST_BALL, 99
	giveitem HEAVY_BALL, 99
	giveitem HM_CUT, 1
	giveitem HM_FLY, 1
	giveitem HM_SURF, 1
	giveitem HM_STRENGTH, 1
	giveitem HM_WHIRLPOOL, 1
	giveitem HM_WATERFALL, 1
	giveitem FULL_RESTORE, 99
	giveitem MAX_REVIVE, 99
	giveitem MAX_REPEL, 99
	giveitem RARE_CANDY, 99
	giveitem BICYCLE, 1
	giveitem SUPER_ROD, 1
	giveitem CLUB_FOSSIL, 2
	giveitem WING_FOSSIL, 2
	giveitem DOME_FOSSIL, 2
	giveitem HELIX_FOSSIL, 2
	giveitem OLD_AMBER, 2
	closetext
	end

DebugTextE:
	text "<PLAYER> received" 
	line "many items!"
	done

; Honey Tree script (to be put in Old City)
HoneyGrannyScript:
	faceplayer

	opentext
	writetext .IntroText

	waitbutton
	checkitem HONEY_POT
	iffalse .no_pot

	checkflag ENGINE_SWEET_HONEY
	iftrue .just_given

	special CheckSweetHoneyTimer
	ifequal 1, .waited_a_day
	ifequal 2, .just_used

	writetext .UsedHoneyText
.give_honey
	setflag ENGINE_SWEET_HONEY
	waitbutton

	writetext .ReceivedSweetHoneyText
	playsound SFX_ITEM
	pause 60
	waitbutton
	
	writetext .TryUsingText
	waitbutton
	
	closetext
	end

.just_used
	writetext .DidYouPutText
	waitbutton
	closetext
	end

.no_pot
	writetext .NoPotText
	waitbutton
	verbosegiveitem HONEY_POT
	writetext .AfterPotGivenText
	sjump .give_honey

.just_given
	writetext .TryUsingText
	waitbutton
	closetext
	end

.waited_a_day
	writetext .DidYouPutText2
	waitbutton
	closetext
	end

.IntroText:
	text "Hello, hello!"
	line "I'm the HONEY"
	cont "GRANDMA!"
	done

.UsedHoneyText:
	text "I see you have a"
	line "HONEY POT with"
	para "you. You can use"
	line "it to collect"
	cont "SWEET HONEY."
	para "I know! I'll share"
	line "some with you."
	done

.ReceivedSweetHoneyText:
	text "<PLAYER> received"
	line "SWEET HONEY."
	done

.DidYouPutText:
	text "Did you put SWEET"
	line "HONEY on a tree?"

	para "It takes about a"
	line "day for #MON to"
	cont "be drawn to it."
	done

.NoPotText:
	text "You don't have a"
	line "HONEY POT?"
	
	para "Not to worry!"
	line "I've got just the"
	cont "thing for you."
	done

.AfterPotGivenText:
	text "A HONEY POT can"
	line "store SWEET HONEY."
	para "You can use it to"
	line "attract rare wild"
	cont "#MON."
	
	para "In fact, I'll give"
	line "you some to try"
	cont "it out!"
	done

.TryUsingText:
	text "Try spreading some"
	line "HONEY on a tree!"
	done

.DidYouPutText2:
	text "Did you put SWEET"
	line "HONEY on a tree?"

	para "What happened to"
	line "it?"
	done

DebugRoom_MapEvents:
	db 0, 0 ; filler

	def_warp_events
	warp_event 23, 14, PLAYERS_HOUSE_1F, 1
	warp_event  3, 20, SILENT_HILLS, 1
	warp_event 11, 15, LAKE_OF_RAGE, 3
	warp_event 27,  5, PEWTER_CITY, 2
	warp_event 15,  2, GOLDENROD_CITY, 1 ; city warp
	warp_event  4,  9, PALLET_TOWN, 1 ; left lab/league warp
	warp_event  5,  9, PALLET_TOWN, 1 ; right lab/league warp
	warp_event 35, 17, BLUE_FOREST, 1 ; east warp
	warp_event  5, 35, BLUE_FOREST, 1 ; southwest warp
	warp_event 19, 34, BLUE_FOREST, 1 ; southern warp
	warp_event 33, 33, BLUE_FOREST, 1 ; southeast warp
	warp_event  5,  3, AZALEA_TOWN, 1
	warp_event 34, 11, WINNERS_PATH, 3

	def_coord_events

	def_bg_events

	def_object_events
	object_event 22, 21, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DebugPokemon1Script, -1
	object_event 27, 21, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DebugPokemon2Script, -1
	object_event 23, 27, SPRITE_MONSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_RED, OBJECTTYPE_SCRIPT, 0, DebugPokemon3Script, -1
	object_event 26, 27, SPRITE_MONSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_BROWN, OBJECTTYPE_SCRIPT, 0, DebugPokemon4Script, -1
	object_event 17, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugFlyScript, -1
	object_event 16, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugDexScript, -1
	object_event 19, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugItemScript, -1
	object_event 18, 13, SPRITE_NURSE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, HoneyGrannyScript, -1