pokeemerald/data/maps/IslandCave/scripts.inc

IslandCave_MapScripts:: @ 8238E2A
	map_script 5, IslandCave_MapScript1_238E3A
	map_script 1, IslandCave_MapScript1_238E58
	map_script 3, IslandCave_MapScript1_238E99
	.byte 0

IslandCave_MapScript1_238E3A: @ 8238E3A
	checkflag FLAG_SYS_CTRL_OBJ_DELETE
	call_if 1, IslandCave_EventScript_238E44
	end

IslandCave_EventScript_238E44:: @ 8238E44
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, 7
	goto_if 5, IslandCave_EventScript_27374E
	removeobject VAR_LAST_TALKED
	return

IslandCave_MapScript1_238E58: @ 8238E58
	checkflag FLAG_SYS_BRAILLE_WAIT
	call_if 0, IslandCave_EventScript_238E62
	end

IslandCave_EventScript_238E62:: @ 8238E62
	setmetatile 7, 19, 553, 1
	setmetatile 8, 19, 553, 1
	setmetatile 9, 19, 553, 1
	setmetatile 7, 20, 565, 1
	setmetatile 8, 20, 565, 1
	setmetatile 9, 20, 565, 1
	return

IslandCave_MapScript1_238E99: @ 8238E99
	setflag FLAG_LANDMARK_ISLAND_CAVE
	call IslandCave_EventScript_238F45
	checkflag FLAG_0x1BC
	call_if 0, IslandCave_EventScript_238EAB
	end

IslandCave_EventScript_238EAB:: @ 8238EAB
	clearflag FLAG_HIDE_REGICE
	return

IslandCave_EventScript_238EAF:: @ 8238EAF
	setmetatile 7, 19, 554, 1
	setmetatile 8, 19, 555, 1
	setmetatile 9, 19, 556, 1
	setmetatile 7, 20, 562, 1
	setmetatile 8, 20, 563, 0
	setmetatile 9, 20, 564, 1
	special DrawWholeMapView
	playse SE_BAN
	setflag FLAG_SYS_BRAILLE_WAIT
	end

IslandCave_EventScript_238EEF:: @ 8238EEF
	lockall
	checkflag FLAG_TEMP_3
	call_if 1, IslandCave_EventScript_238F45
	checkflag FLAG_SYS_BRAILLE_WAIT
	goto_eq IslandCave_EventScript_238F13
	braillemessage IslandCave_Braille_2A6CD4
	setflag FLAG_TEMP_2
	special ShouldDoBrailleRegicePuzzle
	goto IslandCave_EventScript_238F41
	end

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

IslandCave_EventScript_238F1D:: @ 8238F1D
	lockall
	checkflag FLAG_TEMP_3
	call_if 1, IslandCave_EventScript_238F45
	braillemessage IslandCave_Braille_2A6CD4
	checkflag FLAG_SYS_BRAILLE_WAIT
	goto_eq 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_0x403B, 0
	setvar VAR_0x403C, 0
	setvar VAR_0x403D, 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, 1
	goto_eq IslandCave_EventScript_238F9F
	compare VAR_RESULT, 4
	goto_eq IslandCave_EventScript_238FA8
	compare VAR_RESULT, 5
	goto_eq IslandCave_EventScript_238FA8
	setflag FLAG_0x1BC
	release
	end

IslandCave_EventScript_238F9F:: @ 8238F9F
	setflag FLAG_0x1BC
	goto IslandCave_EventScript_27376D
	end

IslandCave_EventScript_238FA8:: @ 8238FA8
	setvar VAR_0x8004, 402
	goto IslandCave_EventScript_273776
	end
Dump maps 2017-11-10 02:21:31 +01:00			`IslandCave_MapScripts:: @ 8238E2A`
			`map_script 5, IslandCave_MapScript1_238E3A`
			`map_script 1, IslandCave_MapScript1_238E58`
			`map_script 3, IslandCave_MapScript1_238E99`
			`.byte 0`

			`IslandCave_MapScript1_238E3A: @ 8238E3A`
			`checkflag FLAG_SYS_CTRL_OBJ_DELETE`
			`call_if 1, IslandCave_EventScript_238E44`
			`end`

			`IslandCave_EventScript_238E44:: @ 8238E44`
Begin porting/decompiling field_specials 2018-08-08 10:37:12 +02:00			`specialvar VAR_RESULT, GetBattleOutcome`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 7`
Dump maps 2017-11-10 02:21:31 +01:00			`goto_if 5, IslandCave_EventScript_27374E`
			`removeobject VAR_LAST_TALKED`
			`return`

			`IslandCave_MapScript1_238E58: @ 8238E58`
			`checkflag FLAG_SYS_BRAILLE_WAIT`
			`call_if 0, IslandCave_EventScript_238E62`
			`end`

			`IslandCave_EventScript_238E62:: @ 8238E62`
			`setmetatile 7, 19, 553, 1`
			`setmetatile 8, 19, 553, 1`
			`setmetatile 9, 19, 553, 1`
			`setmetatile 7, 20, 565, 1`
			`setmetatile 8, 20, 565, 1`
			`setmetatile 9, 20, 565, 1`
			`return`

			`IslandCave_MapScript1_238E99: @ 8238E99`
Split/extract/port landmark 2017-12-27 04:20:29 +01:00			`setflag FLAG_LANDMARK_ISLAND_CAVE`
Dump maps 2017-11-10 02:21:31 +01:00			`call IslandCave_EventScript_238F45`
			`checkflag FLAG_0x1BC`
			`call_if 0, IslandCave_EventScript_238EAB`
			`end`

			`IslandCave_EventScript_238EAB:: @ 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`

Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`IslandCave_EventScript_238EAF:: @ 8238EAF`
			`setmetatile 7, 19, 554, 1`
			`setmetatile 8, 19, 555, 1`
			`setmetatile 9, 19, 556, 1`
			`setmetatile 7, 20, 562, 1`
			`setmetatile 8, 20, 563, 0`
			`setmetatile 9, 20, 564, 1`
			`special DrawWholeMapView`
			`playse SE_BAN`
			`setflag FLAG_SYS_BRAILLE_WAIT`
			`end`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00
			`IslandCave_EventScript_238EEF:: @ 8238EEF`
			`lockall`
label temp flags, test replace script 2018-10-17 18:25:12 +02:00			`checkflag FLAG_TEMP_3`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`call_if 1, IslandCave_EventScript_238F45`
			`checkflag FLAG_SYS_BRAILLE_WAIT`
			`goto_eq IslandCave_EventScript_238F13`
			`braillemessage IslandCave_Braille_2A6CD4`
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`
			`goto IslandCave_EventScript_238F41`
			`end`

			`IslandCave_EventScript_238F13:: @ 8238F13`
adds constants, cleans up callstd and msgbox code * adds some constants for standard script names and messagebox types * replaces some callstd calls with msgbox calls where equivalent * replaces msgbox and callstd calls using raw digits with versions that use the constants 2018-12-02 09:37:46 +01:00			`msgbox gUnknown_0827304E, MSGBOX_DEFAULT`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`releaseall`
			`end`

			`IslandCave_EventScript_238F1D:: @ 8238F1D`
			`lockall`
label temp flags, test replace script 2018-10-17 18:25:12 +02:00			`checkflag FLAG_TEMP_3`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`call_if 1, IslandCave_EventScript_238F45`
			`braillemessage IslandCave_Braille_2A6CD4`
			`checkflag FLAG_SYS_BRAILLE_WAIT`
			`goto_eq IslandCave_EventScript_238F41`
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`
			`goto IslandCave_EventScript_238F41`
			`end`

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

			`IslandCave_EventScript_238F45:: @ 8238F45`
			`setvar VAR_0x403B, 0`
			`setvar VAR_0x403C, 0`
			`setvar VAR_0x403D, 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`

			`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 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`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 1`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`goto_eq IslandCave_EventScript_238F9F`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 4`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`goto_eq IslandCave_EventScript_238FA8`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 5`
Dump numerous baseroms, begin moving data to proper files 2017-11-10 08:36:41 +01:00			`goto_eq IslandCave_EventScript_238FA8`
			`setflag FLAG_0x1BC`
			`release`
			`end`

			`IslandCave_EventScript_238F9F:: @ 8238F9F`
			`setflag FLAG_0x1BC`
			`goto IslandCave_EventScript_27376D`
			`end`

			`IslandCave_EventScript_238FA8:: @ 8238FA8`
			`setvar VAR_0x8004, 402`
			`goto IslandCave_EventScript_273776`
			`end`