pokecrystal-board/maps/BattleTowerHallway.asm

	const_def 2 ; object constants
	const BATTLETOWERHALLWAY_RECEPTIONIST

BattleTowerHallway_MapScripts:
	db 2 ; scene scripts
	scene_script .Scene0 ; SCENE_DEFAULT
	scene_script .Scene1 ; SCENE_FINISHED

	db 0 ; callbacks

.Scene0:
	prioritysjump .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

	db 6 ; 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

	db 0 ; coord events

	db 0 ; bg events

	db 1 ; object events
	object_event 11,  2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerHallway_MapEvents, -1
const_def N 2018-01-31 08:38:45 -08:00			`const_def 2 ; object constants`
Person event constants for each map 2015-11-26 21:22:14 -08:00			`const BATTLETOWERHALLWAY_RECEPTIONIST`

map_header → map_def; map_header_2 → map_data 2018-01-16 19:57:19 -08:00			`BattleTowerHallway_MapScripts:`
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 2 ; 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 09:40:58 -08:00			`scene_script .Scene0 ; SCENE_DEFAULT`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 12:06:06 -08:00			`scene_script .Scene1 ; SCENE_FINISHED`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 0 ; callbacks`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08: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 10:46:34 -08:00			`.Scene0:`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 13:39:31 -07:00			`prioritysjump .ChooseBattleRoom`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 12:06:06 -08: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 10:46:34 -08:00			`.Scene1:`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00			`end`

dbw BANK, addr replaced with dba 2015-11-03 16:43:47 -08:00			`.ChooseBattleRoom:`
Person event constants for each map 2015-11-26 21:22:14 -08:00			`follow BATTLETOWERHALLWAY_RECEPTIONIST, PLAYER`
dbw BANK, addr replaced with dba 2015-11-03 16:43:47 -08: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 13:39:31 -07:00			`sjump .WalkToChosenBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 12:01:49 -07: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 11:28:22 -07:00			`ldh a, [rSVBK]`
remove incbins in BattleTower 2013-05-01 10:29:45 -07:00			`push af`

dbw BANK, addr replaced with dba 2015-11-03 16:43:47 -08: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 11:28:22 -07:00			`ldh [rSVBK], a`
added/renamed constants and labels 2015-08-31 21:26:31 -07:00			`ld a, [wBTChoiceOfLvlGroup]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wScriptVar], a`
remove incbins in BattleTower 2013-05-01 10:29:45 -07: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 11:28:22 -07:00			`ldh [rSVBK], a`
remove incbins in BattleTower 2013-05-01 10:29:45 -07:00			`ret`

change more labelss 2015-08-24 16:56:30 -07: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 14:33:43 -08:00			`.WalkToChosenBattleRoom:`
Script commands don't have underscores 2018-02-02 18:09:17 -08: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-26 21:22:14 -08: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 13:39:31 -07:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remaining map labels: UnknownText and MovementData 2018-03-01 14:33:43 -08:00			`.L30L40:`
Person event constants for each map 2015-11-26 21:22:14 -08: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 13:39:31 -07:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remaining map labels: UnknownText and MovementData 2018-03-01 14:33:43 -08:00			`.L50L60:`
Person event constants for each map 2015-11-26 21:22:14 -08: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 13:39:31 -07:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remaining map labels: UnknownText and MovementData 2018-03-01 14:33:43 -08:00			`.L70L80:`
Person event constants for each map 2015-11-26 21:22:14 -08: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 13:39:31 -07:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remaining map labels: UnknownText and MovementData 2018-03-01 14:33:43 -08:00			`.L90L100:`
Person event constants for each map 2015-11-26 21:22:14 -08: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 13:39:31 -07:00			`sjump .EnterBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remaining map labels: UnknownText and MovementData 2018-03-01 14:33:43 -08: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 10:46:34 -08:00			`faceobject PLAYER, BATTLETOWERHALLWAY_RECEPTIONIST`
opentext and breeding 2015-12-09 15:25:44 -08:00			`opentext`
changed BattleTower-Labels 2015-08-24 10:35:05 -07:00			`writetext Text_PleaseStepThisWay`
Rename several script commands 2015-11-25 07:16:29 -08:00			`waitbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00			`closetext`
			`stopfollow`
Battle Tower scripts and text labels 2015-11-26 18:05:32 -08:00			`applymovement PLAYER, MovementData_BattleTowerHallwayPlayerEntersBattleRoom`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00			`warpcheck`
			`end`

map_header → map_def; map_header_2 → map_data 2018-01-16 19:57:19 -08:00			`BattleTowerHallway_MapEvents:`
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 0, 0 ; filler`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 6 ; warp events`
Align map event coordinate columns 2018-02-01 19:22:07 -08: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-16 22:54:07 -08:00
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 0 ; coord events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 0 ; bg events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-16 22:54:07 -08:00
Remove unreferenced map script heading labels 2018-01-30 11:15:47 -08:00			`db 1 ; object events`
Align map event coordinate columns 2018-02-01 19:22:07 -08:00			`object_event 11, 2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerHallway_MapEvents, -1`