pokeemerald/data/maps/FarawayIsland_Interior/scripts.inc

FarawayIsland_Interior_MapScripts:: @ 8267CFA
	map_script MAP_SCRIPT_ON_RESUME, FarawayIsland_Interior_MapScript1_267D54
	map_script MAP_SCRIPT_ON_TRANSITION, FarawayIsland_Interior_OnTransition
	map_script MAP_SCRIPT_ON_FRAME_TABLE, FarawayIsland_Interior_MapScript2_267D98
	map_script MAP_SCRIPT_ON_RETURN_TO_FIELD, FarawayIsland_Interior_MapScript1_267D0F
	.byte 0

FarawayIsland_Interior_MapScript1_267D0F: @ 8267D0F
	call_if_set FLAG_SYS_CTRL_OBJ_DELETE, FarawayIsland_Interior_EventScript_267D19
	end

FarawayIsland_Interior_EventScript_267D19:: @ 8267D19
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, B_OUTCOME_WON
	goto_if_eq FarawayIsland_Interior_EventScript_267D4B
	compare VAR_RESULT, B_OUTCOME_RAN
	goto_if_eq FarawayIsland_Interior_EventScript_267D4B
	compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if_eq FarawayIsland_Interior_EventScript_267D4B
	compare VAR_RESULT, B_OUTCOME_MON_TELEPORTED
	goto_if_eq FarawayIsland_Interior_EventScript_267D4B
	return

FarawayIsland_Interior_EventScript_267D4B:: @ 8267D4B
	setvar VAR_0x8004, 1
	special sub_81D4A90
	return

FarawayIsland_Interior_MapScript1_267D54: @ 8267D54
	call_if_set FLAG_SYS_CTRL_OBJ_DELETE, FarawayIsland_Interior_EventScript_267D5E
	end

FarawayIsland_Interior_EventScript_267D5E:: @ 8267D5E
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, B_OUTCOME_CAUGHT
	goto_if_ne Common_EventScript_NopReturn
	removeobject VAR_LAST_TALKED
	return

FarawayIsland_Interior_OnTransition: @ 8267D72
	setvar VAR_FARAWAY_ISLAND_STEP_COUNTER, 0
	setvar VAR_TEMP_1, 1
	call_if_unset FLAG_CAUGHT_MEW, FarawayIsland_Interior_EventScript_267D86
	end

FarawayIsland_Interior_EventScript_267D86:: @ 8267D86
	goto_if_set FLAG_DEFEATED_MEW, Common_EventScript_NopReturn
	clearflag FLAG_HIDE_MEW
	setvar VAR_TEMP_1, 0
	return

FarawayIsland_Interior_MapScript2_267D98: @ 8267D98
	map_script_2 VAR_TEMP_1, 0, FarawayIsland_Interior_EventScript_267DA2
	.2byte 0

FarawayIsland_Interior_EventScript_267DA2:: @ 8267DA2
	lockall
	playse SE_PIN
	applymovement 1, Common_Movement_ExclamationMark
	waitmovement 0
	applymovement 1, Common_Movement_Delay48
	waitmovement 0
	applymovement 1, FarawayIsland_Interior_Movement_267DCE
	waitmovement 0
	copyobjectxytoperm 1
	setvar VAR_TEMP_1, 1
	releaseall
	end

FarawayIsland_Interior_Movement_267DCE: @ 8267DCE
	walk_up
	walk_up
	walk_up
	walk_in_place_fastest_down
	set_invisible
	step_end

FarawayIsland_Interior_Movement_267DD4: @ 8267DD4
	set_visible
	step_end

FarawayIsland_Interior_Movement_267DD6: @ 8267DD6
	lock_facing_direction
	walk_fast_up
	walk_fast_up
	unlock_facing_direction
	walk_in_place_down
	walk_in_place_down
	step_end

FarawayIsland_Interior_Movement_267DDD: @ 8267DDD
	lock_facing_direction
	walk_fast_up
	walk_fast_up
	unlock_facing_direction
	walk_in_place_up
	walk_in_place_up
	step_end

FarawayIsland_Interior_Movement_267DE4: @ 8267DE4
	lock_facing_direction
	walk_fast_up
	walk_fast_up
	unlock_facing_direction
	walk_in_place_right
	walk_in_place_right
	step_end

FarawayIsland_Interior_Movement_267DEB: @ 8267DEB
	lock_facing_direction
	walk_fast_up
	walk_fast_up
	unlock_facing_direction
	walk_in_place_left
	walk_in_place_left
	step_end

FarawayIsland_Interior_EventScript_267DF2:: @ 8267DF2
	lock
	faceplayer
	applymovement 1, FarawayIsland_Interior_Movement_267DD4
	waitmovement 0
	setvar VAR_0x8004, 0
	special sub_81D4A90
	message FarawayIsland_Interior_Text_Mew
	waitse
	playmoncry SPECIES_MEW, 2
	compare VAR_FACING, DIR_NORTH
	call_if_eq FarawayIsland_Interior_EventScript_267EAF
	compare VAR_FACING, DIR_SOUTH
	call_if_eq FarawayIsland_Interior_EventScript_267EBA
	compare VAR_FACING, DIR_WEST
	call_if_eq FarawayIsland_Interior_EventScript_267EC5
	compare VAR_FACING, DIR_EAST
	call_if_eq FarawayIsland_Interior_EventScript_267ED0
	special sub_81D4BEC
	delay 40
	waitmoncry
	setvar VAR_0x8004, SPECIES_MEW
	setvar VAR_0x8005, 30 @level
	setvar VAR_0x8006, ITEM_NONE
	special CreateObedientEnemyMon
	setflag FLAG_SYS_CTRL_OBJ_DELETE
	special BattleSetup_StartLegendaryBattle
	waitstate
	clearflag FLAG_SYS_CTRL_OBJ_DELETE
	specialvar VAR_RESULT, GetBattleOutcome
	compare VAR_RESULT, B_OUTCOME_WON
	goto_if_eq FarawayIsland_Interior_EventScript_267E96
	compare VAR_RESULT, B_OUTCOME_RAN
	goto_if_eq FarawayIsland_Interior_EventScript_267EA4
	compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if_eq FarawayIsland_Interior_EventScript_267EA4
	compare VAR_RESULT, B_OUTCOME_MON_TELEPORTED
	goto_if_eq FarawayIsland_Interior_EventScript_267EA4
	setflag FLAG_CAUGHT_MEW
	release
	end

FarawayIsland_Interior_EventScript_267E96:: @ 8267E96
	setflag FLAG_DEFEATED_MEW
	setvar VAR_0x8004, SPECIES_MEW
	goto Common_EventScript_LegendaryFlewAway
	end

FarawayIsland_Interior_EventScript_267EA4:: @ 8267EA4
	setvar VAR_0x8004, SPECIES_MEW
	goto Common_EventScript_LegendaryFlewAway
	end

FarawayIsland_Interior_EventScript_267EAF:: @ 8267EAF
	applymovement 1, FarawayIsland_Interior_Movement_267DD6
	waitmovement 0
	return

FarawayIsland_Interior_EventScript_267EBA:: @ 8267EBA
	applymovement 1, FarawayIsland_Interior_Movement_267DDD
	waitmovement 0
	return

FarawayIsland_Interior_EventScript_267EC5:: @ 8267EC5
	applymovement 1, FarawayIsland_Interior_Movement_267DE4
	waitmovement 0
	return

FarawayIsland_Interior_EventScript_267ED0:: @ 8267ED0
	applymovement 1, FarawayIsland_Interior_Movement_267DEB
	waitmovement 0
	return

FarawayIsland_Interior_EventScript_267EDB:: @ 8267EDB
	lockall
	fadescreenswapbuffers 1
	setflag FLAG_HIDE_MEW
	removeobject 1
	fadescreenswapbuffers 0
	msgbox FarawayIsland_Interior_Text_267EF1, MSGBOX_DEFAULT
	closemessage
	releaseall
	end

FarawayIsland_Interior_Text_267EF1: @ 8267EF1
	.string "The feeling of being watched faded…$"
Dump maps 2017-11-10 02:21:31 +01:00			`FarawayIsland_Interior_MapScripts:: @ 8267CFA`
Update map script files 2019-02-22 08:28:32 +01:00			`map_script MAP_SCRIPT_ON_RESUME, FarawayIsland_Interior_MapScript1_267D54`
Fix some labels and include decorations.h Include decorations.h in shop.c Include decorations.h in event_scripts.s 2019-04-22 22:31:51 +02:00			`map_script MAP_SCRIPT_ON_TRANSITION, FarawayIsland_Interior_OnTransition`
Update map script files 2019-02-22 08:28:32 +01:00			`map_script MAP_SCRIPT_ON_FRAME_TABLE, FarawayIsland_Interior_MapScript2_267D98`
			`map_script MAP_SCRIPT_ON_RETURN_TO_FIELD, FarawayIsland_Interior_MapScript1_267D0F`
Dump maps 2017-11-10 02:21:31 +01:00			`.byte 0`

			`FarawayIsland_Interior_MapScript1_267D0F: @ 8267D0F`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_set FLAG_SYS_CTRL_OBJ_DELETE, FarawayIsland_Interior_EventScript_267D19`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`FarawayIsland_Interior_EventScript_267D19:: @ 8267D19`
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`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267D4B`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_RAN`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267D4B`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267D4B`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_MON_TELEPORTED`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267D4B`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

			`FarawayIsland_Interior_EventScript_267D4B:: @ 8267D4B`
			`setvar VAR_0x8004, 1`
			`special sub_81D4A90`
			`return`

			`FarawayIsland_Interior_MapScript1_267D54: @ 8267D54`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_set FLAG_SYS_CTRL_OBJ_DELETE, FarawayIsland_Interior_EventScript_267D5E`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`FarawayIsland_Interior_EventScript_267D5E:: @ 8267D5E`
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`

Fix some labels and include decorations.h Include decorations.h in shop.c Include decorations.h in event_scripts.s 2019-04-22 22:31:51 +02:00			`FarawayIsland_Interior_OnTransition: @ 8267D72`
Finish decompiling ereader.c 2019-03-22 19:36:06 +01:00			`setvar VAR_FARAWAY_ISLAND_STEP_COUNTER, 0`
decompile field tasks 2018-05-19 18:02:43 +02:00			`setvar VAR_TEMP_1, 1`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`call_if_unset FLAG_CAUGHT_MEW, FarawayIsland_Interior_EventScript_267D86`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`FarawayIsland_Interior_EventScript_267D86:: @ 8267D86`
More misc event names 2019-02-23 02:21:26 +01:00			`goto_if_set FLAG_DEFEATED_MEW, Common_EventScript_NopReturn`
begin event flag names, add temporary hidden item macro 2018-10-18 04:07:23 +02:00			`clearflag FLAG_HIDE_MEW`
decompile field tasks 2018-05-19 18:02:43 +02:00			`setvar VAR_TEMP_1, 0`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

			`FarawayIsland_Interior_MapScript2_267D98: @ 8267D98`
decompile field tasks 2018-05-19 18:02:43 +02:00			`map_script_2 VAR_TEMP_1, 0, FarawayIsland_Interior_EventScript_267DA2`
Dump maps 2017-11-10 02:21:31 +01:00			`.2byte 0`

			`FarawayIsland_Interior_EventScript_267DA2:: @ 8267DA2`
			`lockall`
			`playse SE_PIN`
Name some common single-entry movements 2019-02-23 02:09:14 +01:00			`applymovement 1, Common_Movement_ExclamationMark`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
Name some common single-entry movements 2019-02-23 02:09:14 +01:00			`applymovement 1, Common_Movement_Delay48`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
			`applymovement 1, FarawayIsland_Interior_Movement_267DCE`
			`waitmovement 0`
Rename movobjectoffscreen to copyobjectxytoperm Renaming the command to something that makes more sense as to what the command actually does. The command copies the current xy of the instantiated object back to its template, so that the object remains in the same place if the player walks away and despawns the object, and then comes back. "moveobjectoffscreen" implies that it might be taking the object and moving it physically to an off-screen location somehow. 2019-08-17 16:38:02 +02:00			`copyobjectxytoperm 1`
decompile field tasks 2018-05-19 18:02:43 +02:00			`setvar VAR_TEMP_1, 1`
Dump maps 2017-11-10 02:21:31 +01:00			`releaseall`
			`end`

			`FarawayIsland_Interior_Movement_267DCE: @ 8267DCE`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`walk_up`
			`walk_up`
			`walk_up`
			`walk_in_place_fastest_down`
			`set_invisible`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_Movement_267DD4: @ 8267DD4`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`set_visible`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_Movement_267DD6: @ 8267DD6`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`lock_facing_direction`
			`walk_fast_up`
			`walk_fast_up`
			`unlock_facing_direction`
			`walk_in_place_down`
			`walk_in_place_down`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_Movement_267DDD: @ 8267DDD`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`lock_facing_direction`
			`walk_fast_up`
			`walk_fast_up`
			`unlock_facing_direction`
			`walk_in_place_up`
			`walk_in_place_up`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_Movement_267DE4: @ 8267DE4`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`lock_facing_direction`
			`walk_fast_up`
			`walk_fast_up`
			`unlock_facing_direction`
			`walk_in_place_right`
			`walk_in_place_right`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_Movement_267DEB: @ 8267DEB`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`lock_facing_direction`
			`walk_fast_up`
			`walk_fast_up`
			`unlock_facing_direction`
			`walk_in_place_left`
			`walk_in_place_left`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

			`FarawayIsland_Interior_EventScript_267DF2:: @ 8267DF2`
			`lock`
			`faceplayer`
			`applymovement 1, FarawayIsland_Interior_Movement_267DD4`
			`waitmovement 0`
			`setvar VAR_0x8004, 0`
			`special sub_81D4A90`
Document more script_menu, lilycove harbor 2019-09-19 23:26:25 +02:00			`message FarawayIsland_Interior_Text_Mew`
Dump maps 2017-11-10 02:21:31 +01:00			`waitse`
			`playmoncry SPECIES_MEW, 2`
Use VAR_FACING constants 2019-10-07 06:14:10 +02:00			`compare VAR_FACING, DIR_NORTH`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_eq FarawayIsland_Interior_EventScript_267EAF`
Use VAR_FACING constants 2019-10-07 06:14:10 +02:00			`compare VAR_FACING, DIR_SOUTH`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_eq FarawayIsland_Interior_EventScript_267EBA`
Use VAR_FACING constants 2019-10-07 06:14:10 +02:00			`compare VAR_FACING, DIR_WEST`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_eq FarawayIsland_Interior_EventScript_267EC5`
Use VAR_FACING constants 2019-10-07 06:14:10 +02:00			`compare VAR_FACING, DIR_EAST`
improve call_if macros 2018-12-22 03:32:45 +01:00			`call_if_eq FarawayIsland_Interior_EventScript_267ED0`
Dump maps 2017-11-10 02:21:31 +01:00			`special sub_81D4BEC`
			`delay 40`
			`waitmoncry`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`setvar VAR_0x8004, SPECIES_MEW`
			`setvar VAR_0x8005, 30 @level`
			`setvar VAR_0x8006, ITEM_NONE`
decompile pokemon1 2018-02-09 15:55:12 +01:00			`special CreateObedientEnemyMon`
Dump maps 2017-11-10 02:21:31 +01:00			`setflag FLAG_SYS_CTRL_OBJ_DELETE`
start working on battle setup 2017-11-28 23:02:09 +01:00			`special BattleSetup_StartLegendaryBattle`
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`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_WON`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267E96`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_RAN`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267EA4`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267EA4`
Use B_OUTCOME constants for GetBattleOutcome 2019-10-07 05:07:59 +02:00			`compare VAR_RESULT, B_OUTCOME_MON_TELEPORTED`
improve goto_if macros 2018-12-22 02:28:24 +01:00			`goto_if_eq FarawayIsland_Interior_EventScript_267EA4`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_CAUGHT_MEW`
Dump maps 2017-11-10 02:21:31 +01:00			`release`
			`end`

			`FarawayIsland_Interior_EventScript_267E96:: @ 8267E96`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`setflag FLAG_DEFEATED_MEW`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`setvar VAR_0x8004, SPECIES_MEW`
			`goto Common_EventScript_LegendaryFlewAway`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`FarawayIsland_Interior_EventScript_267EA4:: @ 8267EA4`
initial event_scripts documentation 2019-08-15 05:38:42 +02:00			`setvar VAR_0x8004, SPECIES_MEW`
			`goto Common_EventScript_LegendaryFlewAway`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

			`FarawayIsland_Interior_EventScript_267EAF:: @ 8267EAF`
			`applymovement 1, FarawayIsland_Interior_Movement_267DD6`
			`waitmovement 0`
			`return`

			`FarawayIsland_Interior_EventScript_267EBA:: @ 8267EBA`
			`applymovement 1, FarawayIsland_Interior_Movement_267DDD`
			`waitmovement 0`
			`return`

			`FarawayIsland_Interior_EventScript_267EC5:: @ 8267EC5`
			`applymovement 1, FarawayIsland_Interior_Movement_267DE4`
			`waitmovement 0`
			`return`

			`FarawayIsland_Interior_EventScript_267ED0:: @ 8267ED0`
			`applymovement 1, FarawayIsland_Interior_Movement_267DEB`
			`waitmovement 0`
			`return`

Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`FarawayIsland_Interior_EventScript_267EDB:: @ 8267EDB`
			`lockall`
			`fadescreenswapbuffers 1`
begin event flag names, add temporary hidden item macro 2018-10-18 04:07:23 +02:00			`setflag FLAG_HIDE_MEW`
Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`removeobject 1`
			`fadescreenswapbuffers 0`
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 FarawayIsland_Interior_Text_267EF1, MSGBOX_DEFAULT`
Extract more baseroms from maps 2017-11-10 09:24:21 +01:00			`closemessage`
			`releaseall`
			`end`

			`FarawayIsland_Interior_Text_267EF1: @ 8267EF1`
			`.string "The feeling of being watched faded…$"`