sovereignx/data/maps/IslandCave/scripts.inc

IslandCave_MapScripts:: @ 8238E2A
	map_script MAP_SCRIPT_ON_RESUME, IslandCave_MapScript1_238E3A
	map_script MAP_SCRIPT_ON_LOAD, IslandCave_MapScript1_238E58
	map_script MAP_SCRIPT_ON_TRANSITION, IslandCave_OnTransition
	.byte 0

IslandCave_MapScript1_238E3A: @ 8238E3A
	call_if_set FLAG_SYS_CTRL_OBJ_DELETE, IslandCave_EventScript_238E44
	end

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

IslandCave_MapScript1_238E58: @ 8238E58
	call_if_unset FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238E62
	end

IslandCave_EventScript_238E62:: @ 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_238F45
	call_if_unset FLAG_DEFEATED_REGICE, IslandCave_EventScript_238EAB
	end

IslandCave_EventScript_238EAB:: @ 8238EAB
	clearflag FLAG_HIDE_REGICE
	return

IslandCave_EventScript_238EAF:: @ 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_BAN
	setflag FLAG_SYS_BRAILLE_REGICE_COMPLETED
	end

IslandCave_EventScript_238EEF:: @ 8238EEF
	lockall
	call_if_set FLAG_TEMP_3, IslandCave_EventScript_238F45
	goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238F13
	braillemessage IslandCave_Braille_2A6CD4
	setflag FLAG_TEMP_2
	special ShouldDoBrailleRegicePuzzle
	goto IslandCave_EventScript_238F41
	end

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

IslandCave_EventScript_238F1D:: @ 8238F1D
	lockall
	call_if_set FLAG_TEMP_3, IslandCave_EventScript_238F45
	braillemessage IslandCave_Braille_2A6CD4
	goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238F41
	setflag FLAG_TEMP_2
	special ShouldDoBrailleRegicePuzzle
	goto IslandCave_EventScript_238F41
	end

IslandCave_EventScript_238F41:: @ 8238F41
	waitbuttonpress
	hidebox2
	releaseall
	end

IslandCave_EventScript_238F45:: @ 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_238F58:: @ 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_238F9F
	compare VAR_RESULT, B_OUTCOME_RAN
	goto_if_eq IslandCave_EventScript_238FA8
	compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if_eq IslandCave_EventScript_238FA8
	setflag FLAG_DEFEATED_REGICE
	release
	end

IslandCave_EventScript_238F9F:: @ 8238F9F
	setflag FLAG_DEFEATED_REGICE
	goto Common_EventScript_RemoveStaticPokemon
	end

IslandCave_EventScript_238FA8:: @ 8238FA8
	setvar VAR_0x8004, SPECIES_REGICE
	goto Common_EventScript_LegendaryFlewAway
	end
Dump maps 2017-11-10 01:21:31 +00:00			`IslandCave_MapScripts:: @ 8238E2A`
Update map script files 2019-02-22 07:28:32 +00:00			`map_script MAP_SCRIPT_ON_RESUME, IslandCave_MapScript1_238E3A`
			`map_script MAP_SCRIPT_ON_LOAD, IslandCave_MapScript1_238E58`
Fix labels, label more scripts 2019-04-05 00:28:37 +01:00			`map_script MAP_SCRIPT_ON_TRANSITION, IslandCave_OnTransition`
Dump maps 2017-11-10 01:21:31 +00:00			`.byte 0`

			`IslandCave_MapScript1_238E3A: @ 8238E3A`
improve call_if macros 2018-12-22 02:32:45 +00:00			`call_if_set FLAG_SYS_CTRL_OBJ_DELETE, IslandCave_EventScript_238E44`
Dump maps 2017-11-10 01:21:31 +00:00			`end`

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

			`IslandCave_MapScript1_238E58: @ 8238E58`
Make flag names more consistent 2019-02-18 19:17:02 +00:00			`call_if_unset FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238E62`
Dump maps 2017-11-10 01:21:31 +00:00			`end`

			`IslandCave_EventScript_238E62:: @ 8238E62`
continue labeling metatiles for scripts 2019-06-12 20:07:32 +01: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 01:21:31 +00:00			`return`

Fix labels, label more scripts 2019-04-05 00:28:37 +01:00			`IslandCave_OnTransition: @ 8238E99`
Split/extract/port landmark 2017-12-27 03:20:29 +00:00			`setflag FLAG_LANDMARK_ISLAND_CAVE`
Dump maps 2017-11-10 01:21:31 +00:00			`call IslandCave_EventScript_238F45`
Finish off labelling flags 2019-01-02 21:12:43 +00:00			`call_if_unset FLAG_DEFEATED_REGICE, IslandCave_EventScript_238EAB`
Dump maps 2017-11-10 01:21:31 +00:00			`end`

			`IslandCave_EventScript_238EAB:: @ 8238EAB`
begin event flag names, add temporary hidden item macro 2018-10-18 03:07:23 +01:00			`clearflag FLAG_HIDE_REGICE`
Dump maps 2017-11-10 01:21:31 +00:00			`return`

Extract more baseroms from maps 2017-11-10 08:24:21 +00:00			`IslandCave_EventScript_238EAF:: @ 8238EAF`
continue labeling metatiles for scripts 2019-06-12 20:07:32 +01: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 08:24:21 +00:00			`special DrawWholeMapView`
			`playse SE_BAN`
Make flag names more consistent 2019-02-18 19:17:02 +00:00			`setflag FLAG_SYS_BRAILLE_REGICE_COMPLETED`
Extract more baseroms from maps 2017-11-10 08:24:21 +00:00			`end`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00
			`IslandCave_EventScript_238EEF:: @ 8238EEF`
			`lockall`
improve call_if macros 2018-12-22 02:32:45 +00:00			`call_if_set FLAG_TEMP_3, IslandCave_EventScript_238F45`
Make flag names more consistent 2019-02-18 19:17:02 +00:00			`goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238F13`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`braillemessage IslandCave_Braille_2A6CD4`
label temp flags, test replace script 2018-10-17 17:25:12 +01:00			`setflag FLAG_TEMP_2`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`special ShouldDoBrailleRegicePuzzle`
			`goto IslandCave_EventScript_238F41`
			`end`

			`IslandCave_EventScript_238F13:: @ 8238F13`
initial event_scripts documentation 2019-08-15 04:38:42 +01:00			`msgbox gText_BigHoleInTheWall, MSGBOX_DEFAULT`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`releaseall`
			`end`

			`IslandCave_EventScript_238F1D:: @ 8238F1D`
			`lockall`
improve call_if macros 2018-12-22 02:32:45 +00:00			`call_if_set FLAG_TEMP_3, IslandCave_EventScript_238F45`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`braillemessage IslandCave_Braille_2A6CD4`
Make flag names more consistent 2019-02-18 19:17:02 +00:00			`goto_if_set FLAG_SYS_BRAILLE_REGICE_COMPLETED, IslandCave_EventScript_238F41`
label temp flags, test replace script 2018-10-17 17:25:12 +01:00			`setflag FLAG_TEMP_2`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`special ShouldDoBrailleRegicePuzzle`
			`goto IslandCave_EventScript_238F41`
			`end`

			`IslandCave_EventScript_238F41:: @ 8238F41`
			`waitbuttonpress`
			`hidebox2`
			`releaseall`
			`end`

			`IslandCave_EventScript_238F45:: @ 8238F45`
Document the regi* code more Fixed some confusing naming, named some unknown symbols, and fixed the names of some flags. 2019-02-15 23:24:55 +00: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 17:25:12 +01:00			`clearflag FLAG_TEMP_3`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`return`

			`IslandCave_EventScript_238F58:: @ 8238F58`
			`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 22:02:09 +00:00			`special StartRegiBattle`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`waitstate`
			`clearflag FLAG_SYS_CTRL_OBJ_DELETE`
Begin porting/decompiling field_specials 2018-08-08 09:37:12 +01:00			`specialvar VAR_RESULT, GetBattleOutcome`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 04:07:59 +01:00			`compare VAR_RESULT, B_OUTCOME_WON`
improve goto_if macros 2018-12-22 01:28:24 +00:00			`goto_if_eq IslandCave_EventScript_238F9F`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 04:07:59 +01:00			`compare VAR_RESULT, B_OUTCOME_RAN`
improve goto_if macros 2018-12-22 01:28:24 +00:00			`goto_if_eq IslandCave_EventScript_238FA8`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 04:07:59 +01:00			`compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED`
improve goto_if macros 2018-12-22 01:28:24 +00:00			`goto_if_eq IslandCave_EventScript_238FA8`
Finish off labelling flags 2019-01-02 21:12:43 +00:00			`setflag FLAG_DEFEATED_REGICE`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`release`
			`end`

			`IslandCave_EventScript_238F9F:: @ 8238F9F`
Finish off labelling flags 2019-01-02 21:12:43 +00:00			`setflag FLAG_DEFEATED_REGICE`
initial event_scripts documentation 2019-08-15 04:38:42 +01:00			`goto Common_EventScript_RemoveStaticPokemon`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`end`

			`IslandCave_EventScript_238FA8:: @ 8238FA8`
initial event_scripts documentation 2019-08-15 04:38:42 +01:00			`setvar VAR_0x8004, SPECIES_REGICE`
			`goto Common_EventScript_LegendaryFlewAway`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 07:36:41 +00:00			`end`