pokecrystal/maps/BattleTowerHallway.asm

	object_const_def
	const BATTLETOWERHALLWAY_RECEPTIONIST

BattleTowerHallway_MapScripts:
	def_scene_scripts
	scene_script .Scene0 ; SCENE_DEFAULT
	scene_script .Scene1 ; SCENE_FINISHED

	def_callbacks

.Scene0:
	sdefer .ChooseBattleRoom
	setscene SCENE_FINISHED
.Scene1:
	end

.ChooseBattleRoom:
	follow BATTLETOWERHALLWAY_RECEPTIONIST, PLAYER
	callasm .asm_load_battle_room
	sjump .WalkToChosenBattleRoom

.asm_load_battle_room
	ldh a, [rSVBK]
	push af

	ld a, BANK(wBTChoiceOfLvlGroup)
	ldh [rSVBK], a
	ld a, [wBTChoiceOfLvlGroup]
	ld [wScriptVar], a

	pop af
	ldh [rSVBK], a
	ret

; enter different rooms for different levels to battle against
; at least it should look like that
; because all warps lead to the same room
.WalkToChosenBattleRoom:
	ifequal 3, .L30L40
	ifequal 4, .L30L40
	ifequal 5, .L50L60
	ifequal 6, .L50L60
	ifequal 7, .L70L80
	ifequal 8, .L70L80
	ifequal 9, .L90L100
	ifequal 10, .L90L100
	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo1020Room
	sjump .EnterBattleRoom

.L30L40:
	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo3040Room
	sjump .EnterBattleRoom

.L50L60:
	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo5060Room
	sjump .EnterBattleRoom

.L70L80:
	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo7080Room
	sjump .EnterBattleRoom

.L90L100:
	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo90100Room
	sjump .EnterBattleRoom

.EnterBattleRoom:
	faceobject PLAYER, BATTLETOWERHALLWAY_RECEPTIONIST
	opentext
	writetext Text_PleaseStepThisWay
	waitbutton
	closetext
	stopfollow
	applymovement PLAYER, MovementData_BattleTowerHallwayPlayerEntersBattleRoom
	warpcheck
	end

BattleTowerHallway_MapEvents:
	db 0, 0 ; filler

	def_warp_events
	warp_event 11,  1, BATTLE_TOWER_ELEVATOR, 1
	warp_event  5,  0, BATTLE_TOWER_BATTLE_ROOM, 1
	warp_event  7,  0, BATTLE_TOWER_BATTLE_ROOM, 1
	warp_event  9,  0, BATTLE_TOWER_BATTLE_ROOM, 1
	warp_event 13,  0, BATTLE_TOWER_BATTLE_ROOM, 1
	warp_event 15,  0, BATTLE_TOWER_BATTLE_ROOM, 1

	def_coord_events

	def_bg_events

	def_object_events
	object_event 11,  2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerHallway_MapEvents, -1
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`object_const_def`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`const BATTLETOWERHALLWAY_RECEPTIONIST`

map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`BattleTowerHallway_MapScripts:`
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_scene_scripts`
Meaningful scene constant names (Two common patterns: 0=default event and 1=nothing; and 0=nothing and 1=some event) 2018-02-01 17:40:58 +00:00			`scene_script .Scene0 ; SCENE_DEFAULT`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 20:06:06 +00:00			`scene_script .Scene1 ; SCENE_FINISHED`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_callbacks`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00			`.Scene0:`
Rename `prioritysjump` to `sdefer` 2021-06-09 00:35:04 +00:00			`sdefer .ChooseBattleRoom`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 20:06:06 +00:00			`setscene SCENE_FINISHED`
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00			`.Scene1:`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`.ChooseBattleRoom:`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`follow BATTLETOWERHALLWAY_RECEPTIONIST, PLAYER`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`callasm .asm_load_battle_room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .WalkToChosenBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 19:01:49 +00:00			`.asm_load_battle_room`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [rSVBK]`
remove incbins in BattleTower 2013-05-01 17:29:45 +00:00			`push af`

dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`ld a, BANK(wBTChoiceOfLvlGroup)`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rSVBK], a`
added/renamed constants and labels 2015-09-01 04:26:31 +00:00			`ld a, [wBTChoiceOfLvlGroup]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
remove incbins in BattleTower 2013-05-01 17:29:45 +00:00
			`pop af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rSVBK], a`
remove incbins in BattleTower 2013-05-01 17:29:45 +00:00			`ret`

change more labelss 2015-08-24 23:56:30 +00:00			`; enter different rooms for different levels to battle against`
			`; at least it should look like that`
			`; because all warps lead to the same room`
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.WalkToChosenBattleRoom:`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`ifequal 3, .L30L40`
			`ifequal 4, .L30L40`
			`ifequal 5, .L50L60`
			`ifequal 6, .L50L60`
			`ifequal 7, .L70L80`
			`ifequal 8, .L70L80`
			`ifequal 9, .L90L100`
			`ifequal 10, .L90L100`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo1020Room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.L30L40:`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo3040Room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.L50L60:`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo5060Room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.L70L80:`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo7080Room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.L90L100:`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo90100Room`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remaining map labels: UnknownText and MovementData 2018-03-01 22:33:43 +00:00			`.EnterBattleRoom:`
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00			`faceobject PLAYER, BATTLETOWERHALLWAY_RECEPTIONIST`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
changed BattleTower-Labels 2015-08-24 17:35:05 +00:00			`writetext Text_PleaseStepThisWay`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`closetext`
			`stopfollow`
Battle Tower scripts and text labels 2015-11-27 02:05:32 +00:00			`applymovement PLAYER, MovementData_BattleTowerHallwayPlayerEntersBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`warpcheck`
			`end`

map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`BattleTowerHallway_MapEvents:`
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 0, 0 ; filler`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_warp_events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`warp_event 11, 1, BATTLE_TOWER_ELEVATOR, 1`
			`warp_event 5, 0, BATTLE_TOWER_BATTLE_ROOM, 1`
			`warp_event 7, 0, BATTLE_TOWER_BATTLE_ROOM, 1`
			`warp_event 9, 0, BATTLE_TOWER_BATTLE_ROOM, 1`
			`warp_event 13, 0, BATTLE_TOWER_BATTLE_ROOM, 1`
			`warp_event 15, 0, BATTLE_TOWER_BATTLE_ROOM, 1`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_coord_events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_bg_events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_object_events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`object_event 11, 2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerHallway_MapEvents, -1`