pokeemerald/data/maps/AncientTomb/scripts.inc

AncientTomb_MapScripts:: @ 8238FB3
	map_script 5, AncientTomb_MapScript1_238FC3
	map_script 1, AncientTomb_MapScript1_238FF2
	map_script 3, AncientTomb_MapScript1_238FE1
	.byte 0

AncientTomb_MapScript1_238FC3: @ 8238FC3
	call_if_set FLAG_SYS_CTRL_OBJ_DELETE, AncientTomb_EventScript_238FCD
	end

AncientTomb_EventScript_238FCD:: @ 8238FCD
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, 7
	goto_if_ne AncientTomb_EventScript_27374E
	removeobject VAR_LAST_TALKED
	return

AncientTomb_MapScript1_238FE1: @ 8238FE1
	setflag FLAG_LANDMARK_ANCIENT_TOMB
	call_if_unset FLAG_DEFEATED_REGISTEEL, AncientTomb_EventScript_238FEE
	end

AncientTomb_EventScript_238FEE:: @ 8238FEE
	clearflag FLAG_HIDE_REGISTEEL
	return

AncientTomb_MapScript1_238FF2: @ 8238FF2
	call_if_unset FLAG_SYS_REGISTEEL_PUZZLE_COMPLETED, AncientTomb_EventScript_238FFC
	end

AncientTomb_EventScript_238FFC:: @ 8238FFC
	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

AncientTomb_EventScript_239033:: @ 8239033
	lockall
	goto_if_set FLAG_SYS_REGISTEEL_PUZZLE_COMPLETED, AncientTomb_EventScript_239046
	braillemessage AncientTomb_Braille_2A6D06
	waitbuttonpress
	hidebox2
	releaseall
	end

AncientTomb_EventScript_239046:: @ 8239046
	msgbox gUnknown_0827304E, MSGBOX_DEFAULT
	releaseall
	end

AncientTomb_EventScript_239050:: @ 8239050
	lockall
	braillemessage AncientTomb_Braille_2A6D06
	waitbuttonpress
	hidebox2
	releaseall
	end

AncientTomb_EventScript_23905A:: @ 823905A
	lock
	faceplayer
	waitse
	playmoncry SPECIES_REGISTEEL, 2
	delay 40
	waitmoncry
	setwildbattle SPECIES_REGISTEEL, 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_if_eq AncientTomb_EventScript_2390A1
	compare VAR_RESULT, 4
	goto_if_eq AncientTomb_EventScript_2390AA
	compare VAR_RESULT, 5
	goto_if_eq AncientTomb_EventScript_2390AA
	setflag FLAG_DEFEATED_REGISTEEL
	release
	end

AncientTomb_EventScript_2390A1:: @ 82390A1
	setflag FLAG_DEFEATED_REGISTEEL
	goto AncientTomb_EventScript_27376D
	end

AncientTomb_EventScript_2390AA:: @ 82390AA
	setvar VAR_0x8004, 403
	goto AncientTomb_EventScript_273776
	end
Dump maps 2017-11-10 02:21:31 +01:00			`AncientTomb_MapScripts:: @ 8238FB3`
			`map_script 5, AncientTomb_MapScript1_238FC3`
			`map_script 1, AncientTomb_MapScript1_238FF2`
			`map_script 3, AncientTomb_MapScript1_238FE1`
			`.byte 0`

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

			`AncientTomb_EventScript_238FCD:: @ 8238FCD`
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`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_ne AncientTomb_EventScript_27374E`
Dump maps 2017-11-10 02:21:31 +01:00			`removeobject VAR_LAST_TALKED`
			`return`

			`AncientTomb_MapScript1_238FE1: @ 8238FE1`
Split/extract/port landmark 2017-12-27 04:20:29 +01:00			`setflag FLAG_LANDMARK_ANCIENT_TOMB`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`call_if_unset FLAG_DEFEATED_REGISTEEL, AncientTomb_EventScript_238FEE`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`AncientTomb_EventScript_238FEE:: @ 8238FEE`
begin event flag names, add temporary hidden item macro 2018-10-18 04:07:23 +02:00			`clearflag FLAG_HIDE_REGISTEEL`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

			`AncientTomb_MapScript1_238FF2: @ 8238FF2`
Rename some flags, and use map ID macros 2019-02-18 08:02:20 +01:00			`call_if_unset FLAG_SYS_REGISTEEL_PUZZLE_COMPLETED, AncientTomb_EventScript_238FFC`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`AncientTomb_EventScript_238FFC:: @ 8238FFC`
			`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`

			`AncientTomb_EventScript_239033:: @ 8239033`
			`lockall`
Rename some flags, and use map ID macros 2019-02-18 08:02:20 +01:00			`goto_if_set FLAG_SYS_REGISTEEL_PUZZLE_COMPLETED, AncientTomb_EventScript_239046`
Dump maps 2017-11-10 02:21:31 +01:00			`braillemessage AncientTomb_Braille_2A6D06`
			`waitbuttonpress`
			`hidebox2`
			`releaseall`
			`end`

			`AncientTomb_EventScript_239046:: @ 8239046`
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 maps 2017-11-10 02:21:31 +01:00			`releaseall`
			`end`

			`AncientTomb_EventScript_239050:: @ 8239050`
			`lockall`
			`braillemessage AncientTomb_Braille_2A6D06`
			`waitbuttonpress`
			`hidebox2`
			`releaseall`
			`end`

			`AncientTomb_EventScript_23905A:: @ 823905A`
			`lock`
			`faceplayer`
			`waitse`
			`playmoncry SPECIES_REGISTEEL, 2`
			`delay 40`
			`waitmoncry`
			`setwildbattle SPECIES_REGISTEEL, 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 maps 2017-11-10 02:21:31 +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`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq AncientTomb_EventScript_2390A1`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 4`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq AncientTomb_EventScript_2390AA`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 5`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq AncientTomb_EventScript_2390AA`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_DEFEATED_REGISTEEL`
Dump maps 2017-11-10 02:21:31 +01:00			`release`
			`end`

			`AncientTomb_EventScript_2390A1:: @ 82390A1`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_DEFEATED_REGISTEEL`
Dump maps 2017-11-10 02:21:31 +01:00			`goto AncientTomb_EventScript_27376D`
			`end`

			`AncientTomb_EventScript_2390AA:: @ 82390AA`
			`setvar VAR_0x8004, 403`
			`goto AncientTomb_EventScript_273776`
			`end`