MoundF1_MapScriptHeader;trigger count
	db 0
 ;callback count
	db 1

	dbw 5, .swap_map

.swap_map
	checkevent EVENT_BLEW_UP_DYNAMITE
	sif true
		changemap BANK(MoundF1_BlownUp_BlockData), MoundF1_BlownUp_BlockData
	return

MoundF1_Item_1:
	db MINING_PICK, 1

MoundF1_Item_2:
	db SUPER_POTION, 1

MoundF1Rock:
	jumpstd smashrock

MoundF1Rival:
	opentext
	writetext .during_phone_call_text
	closetext
	faceplayer
	showemote 3, 6, 32
	spriteface 6, 2
	opentext
	writetext .noticed_player_text
	playwaitsfx SFX_HANG_UP
	closetext

	faceplayer
	playmusic MUSIC_RIVAL_ENCOUNTER
	opentext
	writetext .engaged_player_text
	loadtrainer RIVAL1, RIVAL1_2
	winlosstext .battle_won_text, 0
	startbattle
	reloadmapafterbattle

	playmusic MUSIC_RIVAL_ENCOUNTER
	opentext
	writetext .after_battle_text
	closetext
	applymovement 6, .leave
	special RestartMapMusic
	disappear 6
	setevent EVENT_MOUND_CAVE_RIVAL
	end

.leave
	step_left
	step_left
	step_left
	step_left
	step_left
	step_down
	step_down
	step_down
	step_end

.during_phone_call_text
	ctxt "I can't hear you<...>"

	para "OK, now I get you."

	para "Alright, you want"
	line "me to go where?"
	sdone

.noticed_player_text
	ctxt "<...>"

	para "I'll call you back."
	done

.engaged_player_text
	ctxt "I told you to stay"
	line "out of my way."

	para "Can't you follow"
	line "the most basic"
	cont "instructions?"

	para "<...>"

	para "I guess it's time"
	line "to see if these"
	para "new #mon can"
	line "slice your team"
	cont "up real good!"
	sdone

.battle_won_text
	ctxt "What was that"
	line "for, huh?"
	done

.after_battle_text
	ctxt "These worthless"
	line "pests are just a"
	cont "waste of my time."

	para "Now I am off to"
	line "find new #mon"
	para "that suit my"
	line "specific needs."

	para "<...>"

	para "What those are?"

	para "Hah! That's not"
	line "your concern."
	sdone

MoundF1DynamiteGuy:
	opentext
	checkevent EVENT_SPOKE_DYNAMITE_GUY
	sif false, then
		writetext .intro_text
		setevent EVENT_SPOKE_DYNAMITE_GUY
	sendif
	takeitem DYNAMITE, 5
	sif false, then
		checkitem POKE_BALL
		sif true, then
			writetext .theres_dynamite_left_text
			jumptext .still_waiting_text
		selse
			writetext .no_balls_text
			verbosegiveitem POKE_BALL, 3
			closetext
			end
		sendif
	sendif
	giveitem DYNAMITE, 5
	writetext .need_fire_mon_text
	findpokemontype FIRE
	waitbutton
	sif false, then
		closetext
		end
	sendif
	callasm ReadScriptVarMonName
	writetext .try_mon_text
	addvar -1
	copyvartobyte wCurPartyMon
	yesorno
	closetext
	sif false
		end
	fieldmovepokepic
	opentext
	writetext .lit_the_fuse_text
	closetext
	applymovement 0, .player_steps_aside
	applymovement 3, .guy_steps_aside
	applymovement 3, .guy_moves_back
	showemote 0, 0, 32
	applymovement 0, .player_moves_back
	changemap BANK(MoundF1_BlownUp_BlockData), MoundF1_BlownUp_BlockData
	playsound SFX_EGG_BOMB
	earthquake 24
	playsound SFX_EGG_BOMB
	earthquake 24
	playsound SFX_EGG_BOMB
	earthquake 24
	playsound SFX_EGG_BOMB
	earthquake 24
	spriteface 3, 1
	spriteface PLAYER, LEFT
	loademote 2
	showemote 2, 3, 32
	opentext
	writetext .after_blowing_up_text
	closetext
	playsound SFX_JUMP_OVER_LEDGE
	applymovement 3, .guy_leaves
	takeitem DYNAMITE, 5
	setevent EVENT_BLEW_UP_DYNAMITE
	end

.player_steps_aside
	step_right
	step_end

.guy_steps_aside
	step_down
	step_end

.guy_moves_back
	run_step_down
	run_step_down
	run_step_right
	run_step_right
	run_step_right
	run_step_right
	run_step_right
	run_step_right
	run_step_up
	run_step_right
	run_step_right
	run_step_down
	step_end

.player_moves_back
	run_step_down
	run_step_down
	run_step_right
	run_step_right
	run_step_right
	run_step_right
	run_step_right
	run_step_up
	run_step_right
	run_step_right
	run_step_right
	step_end

.guy_leaves
	jump_step_left
	run_step_left
	run_step_left
	hide_person
	step_down
	step_down
	step_down
	step_down
	step_end

.intro_text
	ctxt "Ah, hello there!"

	para "I'd like to leave"
	line "this place."

	para "However<...>"

	para "These rocks are"
	line "blocking the exit."

	para "I almost have"
	line "enough dynamite"
	cont "to get rid of"
	cont "these darn things,"

	para "but I'd need about"
	line "5 more to get them"
	cont "out of my way<...>"

	para "Forever. Hehe."
	sdone

.theres_dynamite_left_text
	ctxt "Hmm. If I'm not"
	line "mistaken, there"
	cont "should be some"
	cont "dynamite left."

	para "It should be"
	line "spread out on the"
	cont "bottom floor."

	para "However, I saw"
	line "a bunch of multi-"
	cont "colored freaks"
	cont "hang around there."

	para "If you want to"
	line "help me out and"
	cont "deal with them,"
	cont "be my guest."
	sdone

.still_waiting_text
	ctxt "I'm still waiting"
	line "for the dynamite."

	para "I need 5 sticks to"
	line "blast us through."
	done

.no_balls_text
	ctxt "You don't have any"
	line "#balls?"

	para "Well<...>"

	para "To get through the"
	line "cave, you're going"

	para "to need Electric"
	line "and Fire #mon."

	para "Here."

	para "Have a couple of"
	line "#balls!"
	sdone

.need_fire_mon_text
	ctxt "Great, you got all"
	line "of the sticks!"

	para "However, we need"
	line "some real fire to"
	cont "light the fuse."

	para "Maybe a Fire-type"
	line "#mon or move"
	cont "could do it<...>"
	done

.try_mon_text
	ctxt "Try with"
	line "<STRBF2>?"
	done

.lit_the_fuse_text
	ctxt "Great, it lit"
	line "the fuse, let's"
	cont "stand back!"
	sdone

.after_blowing_up_text
	ctxt "Whoo hoo!"

	para "I'm free!"

	para "Thanks kid."
	sdone

MoundF1_BlownUp_BlockData: INCBIN "./maps/MoundF1_BlownUp_BlockData.blk.lz"

MoundF1_MapEventHeader:: db 0, 0

.Warps: db 7
	warp_def 25, 17, 3, ROUTE_73
	warp_def 43, 3, 3, MOUND_F1
	warp_def 89, 3, 2, MOUND_F1
	warp_def 59, 17, 5, MOUND_F1
	warp_def 5, 15, 4, MOUND_F1
	warp_def 13, 17, 1, MOUND_B3F
	warp_def 49, 9, 1, MOUND_B1F

.CoordEvents: db 0

.BGEvents: db 0

.ObjectEvents: db 7
	person_event SPRITE_POKE_BALL, 31, 15, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, PAL_OW_YELLOW, PERSONTYPE_TMHMBALL, TM_AERIAL_ACE, 0, EVENT_MOUND_CAVE_TM43
	person_event SPRITE_R_HIKER, 2, 6, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_RED, PERSONTYPE_SCRIPT, 0, MoundF1DynamiteGuy, EVENT_BLEW_UP_DYNAMITE
	person_event SPRITE_POKE_BALL, 73, 14, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, PAL_OW_RED, PERSONTYPE_ITEMBALL, 0, MoundF1_Item_1, EVENT_MOUND_F1_ITEM_1
	person_event SPRITE_ROCK, 37, 11, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, MoundF1Rock, -1
	person_event SPRITE_SILVER, 27, 11, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_OW_RED, PERSONTYPE_SCRIPT, 0, MoundF1Rival, EVENT_MOUND_CAVE_RIVAL
	person_event SPRITE_POKE_BALL, 60, 4, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, PAL_OW_RED, PERSONTYPE_TMHMBALL, TM_PROTECT, 0, EVENT_MOUND_CAVE_TM17
	person_event SPRITE_POKE_BALL, 87, 8, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, PAL_OW_RED, PERSONTYPE_ITEMBALL, 0, MoundF1_Item_2, EVENT_MOUND_F1_ITEM_2
