pokered/scripts/PokemonMansion3F.asm

PokemonMansion3F_Script:
	call Mansion3Script_52204
	call EnableAutoTextBoxDrawing
	ld hl, Mansion3TrainerHeaders
	ld de, PokemonMansion3F_ScriptPointers
	ld a, [wPokemonMansion3FCurScript]
	call ExecuteCurMapScriptInTable
	ld [wPokemonMansion3FCurScript], a
	ret

Mansion3Script_52204:
	ld hl, wCurrentMapScriptFlags
	bit 5, [hl]
	res 5, [hl]
	ret z
	CheckEvent EVENT_MANSION_SWITCH_ON
	jr nz, .asm_52224
	ld a, $e
	lb bc, 2, 7
	call Mansion2Script_5202f
	ld a, $5f
	lb bc, 5, 7
	call Mansion2Script_5202f
	ret
.asm_52224
	ld a, $5f
	lb bc, 2, 7
	call Mansion2Script_5202f
	ld a, $e
	lb bc, 5, 7
	call Mansion2Script_5202f
	ret

PokemonMansion3F_ScriptPointers:
	def_script_pointers
	dw_const PokemonMansion3FDefaultScript,         SCRIPT_POKEMONMANSION3F_DEFAULT
	dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_POKEMONMANSION3F_START_BATTLE
	dw_const EndTrainerBattle,                      SCRIPT_POKEMONMANSION3F_END_BATTLE

PokemonMansion3FDefaultScript:
	ld hl, CoordsData_52254
	call Mansion3Script_5225b
	ld a, [wWhichDungeonWarp]
	and a
	jp z, CheckFightingMapTrainers
	cp $3
	ld a, POKEMON_MANSION_1F
	jr nz, .asm_52250
	ld a, POKEMON_MANSION_2F
.asm_52250
	ld [wDungeonWarpDestinationMap], a
	ret

CoordsData_52254:
	dbmapcoord 16, 14
	dbmapcoord 17, 14
	dbmapcoord 19, 14
	db -1 ; end

Mansion3Script_5225b:
	xor a
	ld [wWhichDungeonWarp], a
	ld a, [wd72d]
	bit 4, a
	ret nz
	call ArePlayerCoordsInArray
	ret nc
	ld a, [wCoordIndex]
	ld [wWhichDungeonWarp], a
	ld hl, wd72d
	set 4, [hl]
	ld hl, wd732
	set 4, [hl]
	ret

Mansion3Script_Switches::
	ld a, [wSpritePlayerStateData1FacingDirection]
	cp SPRITE_FACING_UP
	ret nz
	xor a
	ldh [hJoyHeld], a
	ld a, TEXT_POKEMONMANSION3F_SWITCH
	ldh [hSpriteIndexOrTextID], a
	jp DisplayTextID

PokemonMansion3F_TextPointers:
	def_text_pointers
	dw_const PokemonMansion3FSuperNerdText, TEXT_POKEMONMANSION3F_SUPER_NERD
	dw_const PokemonMansion3FScientistText, TEXT_POKEMONMANSION3F_SCIENTIST
	dw_const PickUpItemText,                TEXT_POKEMONMANSION3F_MAX_POTION
	dw_const PickUpItemText,                TEXT_POKEMONMANSION3F_IRON
	dw_const PokemonMansion3FDiaryText,     TEXT_POKEMONMANSION3F_DIARY
	dw_const PokemonMansion2FSwitchText,    TEXT_POKEMONMANSION3F_SWITCH ; This switch uses the text script from the 2F.

Mansion3TrainerHeaders:
	def_trainers
Mansion3TrainerHeader0:
	trainer EVENT_BEAT_MANSION_3_TRAINER_0, 0, PokemonMansion3FSuperNerdBattleText, PokemonMansion3FSuperNerdEndBattleText, PokemonMansion3FSuperNerdAfterBattleText
Mansion3TrainerHeader1:
	trainer EVENT_BEAT_MANSION_3_TRAINER_1, 2, PokemonMansion3FScientistBattleText, PokemonMansion3FScientistEndBattleText, PokemonMansion3FScientistAfterBattleText
	db -1 ; end

PokemonMansion3FSuperNerdText:
	text_asm
	ld hl, Mansion3TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

PokemonMansion3FScientistText:
	text_asm
	ld hl, Mansion3TrainerHeader1
	call TalkToTrainer
	jp TextScriptEnd

PokemonMansion3FSuperNerdBattleText:
	text_far _PokemonMansion3FSuperNerdBattleText
	text_end

PokemonMansion3FSuperNerdEndBattleText:
	text_far _PokemonMansion3FSuperNerdEndBattleText
	text_end

PokemonMansion3FSuperNerdAfterBattleText:
	text_far _PokemonMansion3FSuperNerdAfterBattleText
	text_end

PokemonMansion3FScientistBattleText:
	text_far _PokemonMansion3FScientistBattleText
	text_end

PokemonMansion3FScientistEndBattleText:
	text_far _PokemonMansion3FScientistEndBattleText
	text_end

PokemonMansion3FScientistAfterBattleText:
	text_far _PokemonMansion3FScientistAfterBattleText
	text_end

PokemonMansion3FDiaryText:
	text_far _PokemonMansion3FDiaryText
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`PokemonMansion3F_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Mansion3Script_52204`
			`call EnableAutoTextBoxDrawing`
The 'def_trainers' macro checks that trainers' event flag bits are correct (#318) 2021-04-13 22:24:37 +00:00			`ld hl, Mansion3TrainerHeaders`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld de, PokemonMansion3F_ScriptPointers`
			`ld a, [wPokemonMansion3FCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ExecuteCurMapScriptInTable`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld [wPokemonMansion3FCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`Mansion3Script_52204:`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 5, [hl]`
			`res 5, [hl]`
			`ret z`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_MANSION_SWITCH_ON`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr nz, .asm_52224`
			`ld a, $e`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`lb bc, 2, 7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Mansion2Script_5202f`
			`ld a, $5f`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`lb bc, 5, 7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Mansion2Script_5202f`
			`ret`
			`.asm_52224`
			`ld a, $5f`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`lb bc, 2, 7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Mansion2Script_5202f`
			`ld a, $e`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`lb bc, 5, 7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Mansion2Script_5202f`
			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`PokemonMansion3F_ScriptPointers:`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`def_script_pointers`
			`dw_const PokemonMansion3FDefaultScript, SCRIPT_POKEMONMANSION3F_DEFAULT`
			`dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_POKEMONMANSION3F_START_BATTLE`
			`dw_const EndTrainerBattle, SCRIPT_POKEMONMANSION3F_END_BATTLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FDefaultScript:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, CoordsData_52254`
			`call Mansion3Script_5225b`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld a, [wWhichDungeonWarp]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`jp z, CheckFightingMapTrainers`
			`cp $3`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`ld a, POKEMON_MANSION_1F`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr nz, .asm_52250`
Replace some hard-coded values with constants 2019-07-07 04:44:21 +00:00			`ld a, POKEMON_MANSION_2F`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_52250`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDungeonWarpDestinationMap], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`CoordsData_52254:`
Reformat map scripts' coordinate and movement data 'dbmapcoord' has X, Y order like other coordinate-related data macros 2020-07-16 16:32:19 +00:00			`dbmapcoord 16, 14`
			`dbmapcoord 17, 14`
			`dbmapcoord 19, 14`
			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Mansion3Script_5225b:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wWhichDungeonWarp], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd72d]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 4, a`
			`ret nz`
			`call ArePlayerCoordsInArray`
			`ret nc`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wCoordIndex]`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wWhichDungeonWarp], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd72d`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 4, [hl]`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd732`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 4, [hl]`
			`ret`

Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`Mansion3Script_Switches::`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld a, [wSpritePlayerStateData1FacingDirection]`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`cp SPRITE_FACING_UP`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret nz`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hJoyHeld], a`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld a, TEXT_POKEMONMANSION3F_SWITCH`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp DisplayTextID`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`PokemonMansion3F_TextPointers:`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`def_text_pointers`
			`dw_const PokemonMansion3FSuperNerdText, TEXT_POKEMONMANSION3F_SUPER_NERD`
			`dw_const PokemonMansion3FScientistText, TEXT_POKEMONMANSION3F_SCIENTIST`
			`dw_const PickUpItemText, TEXT_POKEMONMANSION3F_MAX_POTION`
			`dw_const PickUpItemText, TEXT_POKEMONMANSION3F_IRON`
			`dw_const PokemonMansion3FDiaryText, TEXT_POKEMONMANSION3F_DIARY`
			`dw_const PokemonMansion2FSwitchText, TEXT_POKEMONMANSION3F_SWITCH ; This switch uses the text script from the 2F.`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
The 'def_trainers' macro checks that trainers' event flag bits are correct (#318) 2021-04-13 22:24:37 +00:00			`Mansion3TrainerHeaders:`
			`def_trainers`
remove address comments 2016-06-12 00:24:04 +00:00			`Mansion3TrainerHeader0:`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`trainer EVENT_BEAT_MANSION_3_TRAINER_0, 0, PokemonMansion3FSuperNerdBattleText, PokemonMansion3FSuperNerdEndBattleText, PokemonMansion3FSuperNerdAfterBattleText`
Clean up redundant labels fix trainer header numbering 2016-07-20 05:40:04 +00:00			`Mansion3TrainerHeader1:`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`trainer EVENT_BEAT_MANSION_3_TRAINER_1, 2, PokemonMansion3FScientistBattleText, PokemonMansion3FScientistEndBattleText, PokemonMansion3FScientistAfterBattleText`
Use a 'trainer' macro for trainers in scripts/ 2020-07-14 19:45:36 +00:00			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FSuperNerdText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Mansion3TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FScientistText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
Clean up redundant labels fix trainer header numbering 2016-07-20 05:40:04 +00:00			`ld hl, Mansion3TrainerHeader1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call TalkToTrainer`
			`jp TextScriptEnd`

Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FSuperNerdBattleText:`
			`text_far _PokemonMansion3FSuperNerdBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FSuperNerdEndBattleText:`
			`text_far _PokemonMansion3FSuperNerdEndBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FSuperNerdAfterBattleText:`
			`text_far _PokemonMansion3FSuperNerdAfterBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FScientistBattleText:`
			`text_far _PokemonMansion3FScientistBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FScientistEndBattleText:`
			`text_far _PokemonMansion3FScientistEndBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FScientistAfterBattleText:`
			`text_far _PokemonMansion3FScientistAfterBattleText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`PokemonMansion3FDiaryText:`
			`text_far _PokemonMansion3FDiaryText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`