pokeemerald/data/maps/IslandCave/scripts.inc

IslandCave_MapScripts:: @ 8238E2A
	map_script MAP_SCRIPT_ON_RESUME, IslandCave_OnResume
	map_script MAP_SCRIPT_ON_LOAD, IslandCave_OnLoad
	map_script MAP_SCRIPT_ON_TRANSITION, IslandCave_OnTransition
	.byte 0

IslandCave_OnResume: @ 8238E3A
	call_if_set FLAG_SYS_CTRL_OBJ_DELETE, IslandCave_EventScript_TryRemoveRegice
	end

IslandCave_EventScript_TryRemoveRegice:: @ 8238E44
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, B_OUTCOME_CAUGHT
	goto_if_ne Common_EventScript_NopReturn
	removeobject VAR_LAST_TALKED
	return

IslandCave_OnLoad: @ 8238E58
	call_if_unset FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_HideRegiEntrance
	end

IslandCave_EventScript_HideRegiEntrance:: @ 8238E62
	setmetatile 7, 19, METATILE_Cave_EntranceCover, 1
	setmetatile 8, 19, METATILE_Cave_EntranceCover, 1
	setmetatile 9, 19, METATILE_Cave_EntranceCover, 1
	setmetatile 7, 20, METATILE_Cave_SealedChamberBraille_Mid, 1
	setmetatile 8, 20, METATILE_Cave_SealedChamberBraille_Mid, 1
	setmetatile 9, 20, METATILE_Cave_SealedChamberBraille_Mid, 1
	return

IslandCave_OnTransition: @ 8238E99
	setflag FLAG_LANDMARK_ISLAND_CAVE
	call IslandCave_EventScript_ClearSteps
	call_if_unset FLAG_DEFEATED_REGICE, IslandCave_EventScript_ShowRegice
	end

IslandCave_EventScript_ShowRegice:: @ 8238EAB
	clearflag FLAG_HIDE_REGICE
	return

IslandCave_EventScript_OpenRegiEntrance:: @ 8238EAF
	setmetatile 7, 19, METATILE_Cave_SealedChamberEntrance_TopLeft, 1
	setmetatile 8, 19, METATILE_Cave_SealedChamberEntrance_TopMid, 1
	setmetatile 9, 19, METATILE_Cave_SealedChamberEntrance_TopRight, 1
	setmetatile 7, 20, METATILE_Cave_SealedChamberEntrance_BottomLeft, 1
	setmetatile 8, 20, METATILE_Cave_SealedChamberEntrance_BottomMid, 0
	setmetatile 9, 20, METATILE_Cave_SealedChamberEntrance_BottomRight, 1
	special DrawWholeMapView
	playse SE_BANG
	setflag FLAG_SYS_BRAILLE_REGICE_COMPLETED
	end

IslandCave_EventScript_CaveEntranceMiddle:: @ 8238EEF
	lockall
	call_if_set FLAG_TEMP_3, IslandCave_EventScript_ClearSteps
	goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_BigHoleInWall
	braillemessage IslandCave_Braille_RunLapAroundWall
	setflag FLAG_TEMP_2
	special ShouldDoBrailleRegicePuzzle
	goto IslandCave_EventScript_CloseBrailleMsg
	end

IslandCave_EventScript_BigHoleInWall:: @ 8238F13
	msgbox gText_BigHoleInTheWall, MSGBOX_DEFAULT
	releaseall
	end

IslandCave_EventScript_CaveEntranceSide:: @ 8238F1D
	lockall
	call_if_set FLAG_TEMP_3, IslandCave_EventScript_ClearSteps
	braillemessage IslandCave_Braille_RunLapAroundWall
	goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_CloseBrailleMsg
	setflag FLAG_TEMP_2
	special ShouldDoBrailleRegicePuzzle
	goto IslandCave_EventScript_CloseBrailleMsg
	end

IslandCave_EventScript_CloseBrailleMsg:: @ 8238F41
	waitbuttonpress
	closebraillemessage
	releaseall
	end

IslandCave_EventScript_ClearSteps:: @ 8238F45
	setvar VAR_REGICE_STEPS_1, 0
	setvar VAR_REGICE_STEPS_2, 0
	setvar VAR_REGICE_STEPS_3, 0
	clearflag FLAG_TEMP_3
	return

IslandCave_EventScript_Regice:: @ 8238F58
	lock
	faceplayer
	waitse
	playmoncry SPECIES_REGICE, 2
	delay 40
	waitmoncry
	setwildbattle SPECIES_REGICE, 40, ITEM_NONE
	setflag FLAG_SYS_CTRL_OBJ_DELETE
	special StartRegiBattle
	waitstate
	clearflag FLAG_SYS_CTRL_OBJ_DELETE
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, B_OUTCOME_WON
	goto_if_eq IslandCave_EventScript_DefeatedRegice
	compare VAR_RESULT, B_OUTCOME_RAN
	goto_if_eq IslandCave_EventScript_RanFromRegice
	compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if_eq IslandCave_EventScript_RanFromRegice
	setflag FLAG_DEFEATED_REGICE
	release
	end

IslandCave_EventScript_DefeatedRegice:: @ 8238F9F
	setflag FLAG_DEFEATED_REGICE
	goto Common_EventScript_RemoveStaticPokemon
	end

IslandCave_EventScript_RanFromRegice:: @ 8238FA8
	setvar VAR_0x8004, SPECIES_REGICE
	goto Common_EventScript_LegendaryFlewAway
	end
Dump maps 2017-11-10 02:21:31 +01:00			`IslandCave_MapScripts:: @ 8238E2A`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`map_script MAP_SCRIPT_ON_RESUME, IslandCave_OnResume`
			`map_script MAP_SCRIPT_ON_LOAD, IslandCave_OnLoad`
Fix labels, label more scripts 2019-04-05 01:28:37 +02:00			`map_script MAP_SCRIPT_ON_TRANSITION, IslandCave_OnTransition`
Dump maps 2017-11-10 02:21:31 +01:00			`.byte 0`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_OnResume: @ 8238E3A`
			`call_if_set FLAG_SYS_CTRL_OBJ_DELETE, IslandCave_EventScript_TryRemoveRegice`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_TryRemoveRegice:: @ 8238E44`
Begin porting/decompiling field_specials 2018-08-08 10:37:12 +02:00			`specialvar VAR_RESULT, GetBattleOutcome`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_CAUGHT`
More misc event names 2019-02-23 02:21:26 +01:00			`goto_if_ne Common_EventScript_NopReturn`
Dump maps 2017-11-10 02:21:31 +01:00			`removeobject VAR_LAST_TALKED`
			`return`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_OnLoad: @ 8238E58`
			`call_if_unset FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_HideRegiEntrance`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_HideRegiEntrance:: @ 8238E62`
continue labeling metatiles for scripts 2019-06-12 21:07:32 +02:00			`setmetatile 7, 19, METATILE_Cave_EntranceCover, 1`
			`setmetatile 8, 19, METATILE_Cave_EntranceCover, 1`
			`setmetatile 9, 19, METATILE_Cave_EntranceCover, 1`
			`setmetatile 7, 20, METATILE_Cave_SealedChamberBraille_Mid, 1`
			`setmetatile 8, 20, METATILE_Cave_SealedChamberBraille_Mid, 1`
			`setmetatile 9, 20, METATILE_Cave_SealedChamberBraille_Mid, 1`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

Fix labels, label more scripts 2019-04-05 01:28:37 +02:00			`IslandCave_OnTransition: @ 8238E99`
Split/extract/port landmark 2017-12-27 04:20:29 +01:00			`setflag FLAG_LANDMARK_ISLAND_CAVE`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`call IslandCave_EventScript_ClearSteps`
			`call_if_unset FLAG_DEFEATED_REGICE, IslandCave_EventScript_ShowRegice`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_ShowRegice:: @ 8238EAB`
begin event flag names, add temporary hidden item macro 2018-10-18 04:07:23 +02:00			`clearflag FLAG_HIDE_REGICE`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_OpenRegiEntrance:: @ 8238EAF`
continue labeling metatiles for scripts 2019-06-12 21:07:32 +02:00			`setmetatile 7, 19, METATILE_Cave_SealedChamberEntrance_TopLeft, 1`
			`setmetatile 8, 19, METATILE_Cave_SealedChamberEntrance_TopMid, 1`
			`setmetatile 9, 19, METATILE_Cave_SealedChamberEntrance_TopRight, 1`
			`setmetatile 7, 20, METATILE_Cave_SealedChamberEntrance_BottomLeft, 1`
			`setmetatile 8, 20, METATILE_Cave_SealedChamberEntrance_BottomMid, 0`
			`setmetatile 9, 20, METATILE_Cave_SealedChamberEntrance_BottomRight, 1`
Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`special DrawWholeMapView`
Give songs meaningful english names 2020-08-21 00:02:00 +02:00			`playse SE_BANG`
Make flag names more consistent 2019-02-18 20:17:02 +01:00			`setflag FLAG_SYS_BRAILLE_REGICE_COMPLETED`
Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`end`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00
Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_CaveEntranceMiddle:: @ 8238EEF`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`lockall`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`call_if_set FLAG_TEMP_3, IslandCave_EventScript_ClearSteps`
			`goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_BigHoleInWall`
			`braillemessage IslandCave_Braille_RunLapAroundWall`
label temp flags, test replace script 2018-10-17 18:25:12 +02:00			`setflag FLAG_TEMP_2`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`special ShouldDoBrailleRegicePuzzle`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`goto IslandCave_EventScript_CloseBrailleMsg`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_BigHoleInWall:: @ 8238F13`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`msgbox gText_BigHoleInTheWall, MSGBOX_DEFAULT`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`releaseall`
			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_CaveEntranceSide:: @ 8238F1D`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`lockall`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`call_if_set FLAG_TEMP_3, IslandCave_EventScript_ClearSteps`
			`braillemessage IslandCave_Braille_RunLapAroundWall`
			`goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_CloseBrailleMsg`
label temp flags, test replace script 2018-10-17 18:25:12 +02:00			`setflag FLAG_TEMP_2`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`special ShouldDoBrailleRegicePuzzle`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`goto IslandCave_EventScript_CloseBrailleMsg`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_CloseBrailleMsg:: @ 8238F41`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`waitbuttonpress`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`closebraillemessage`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`releaseall`
			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_ClearSteps:: @ 8238F45`
Document the regi* code more Fixed some confusing naming, named some unknown symbols, and fixed the names of some flags. 2019-02-16 00:24:55 +01:00			`setvar VAR_REGICE_STEPS_1, 0`
			`setvar VAR_REGICE_STEPS_2, 0`
			`setvar VAR_REGICE_STEPS_3, 0`
label temp flags, test replace script 2018-10-17 18:25:12 +02:00			`clearflag FLAG_TEMP_3`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`return`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_Regice:: @ 8238F58`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`lock`
			`faceplayer`
			`waitse`
			`playmoncry SPECIES_REGICE, 2`
			`delay 40`
			`waitmoncry`
			`setwildbattle SPECIES_REGICE, 40, ITEM_NONE`
			`setflag FLAG_SYS_CTRL_OBJ_DELETE`
start working on battle setup 2017-11-28 23:02:09 +01:00			`special StartRegiBattle`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`waitstate`
			`clearflag FLAG_SYS_CTRL_OBJ_DELETE`
Begin porting/decompiling field_specials 2018-08-08 10:37:12 +02:00			`specialvar VAR_RESULT, GetBattleOutcome`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_WON`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`goto_if_eq IslandCave_EventScript_DefeatedRegice`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_RAN`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`goto_if_eq IslandCave_EventScript_RanFromRegice`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED`
Document legendary scripts 2019-10-31 22:00:37 +01:00			`goto_if_eq IslandCave_EventScript_RanFromRegice`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_DEFEATED_REGICE`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`release`
			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_DefeatedRegice:: @ 8238F9F`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_DEFEATED_REGICE`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`goto Common_EventScript_RemoveStaticPokemon`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`end`

Document legendary scripts 2019-10-31 22:00:37 +01:00			`IslandCave_EventScript_RanFromRegice:: @ 8238FA8`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`setvar VAR_0x8004, SPECIES_REGICE`
			`goto Common_EventScript_LegendaryFlewAway`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`end`