pokered/scripts/PokemonMansion1F.asm

PokemonMansion1F_Script:
	call Mansion1CheckReplaceSwitchDoorBlocks
	call EnableAutoTextBoxDrawing
	ld hl, Mansion1TrainerHeaders
	ld de, PokemonMansion1F_ScriptPointers
	ld a, [wPokemonMansion1FCurScript]
	call ExecuteCurMapScriptInTable
	ld [wPokemonMansion1FCurScript], a
	ret

Mansion1CheckReplaceSwitchDoorBlocks:
	ld hl, wCurrentMapScriptFlags
	bit BIT_CUR_MAP_LOADED_1, [hl]
	res BIT_CUR_MAP_LOADED_1, [hl]
	ret z
	CheckEvent EVENT_MANSION_SWITCH_ON
	jr nz, .switchTurnedOn
	lb bc, 6, 12
	call Mansion1LoadEmptyFloorTileBlock
	lb bc, 3, 8
	call Mansion1LoadHorizontalGateBlock
	lb bc, 8, 10
	call Mansion1LoadHorizontalGateBlock
	lb bc, 13, 13
	jp Mansion1LoadHorizontalGateBlock
.switchTurnedOn
	lb bc, 6, 12
	call Mansion1LoadHorizontalGateBlock
	lb bc, 3, 8
	call Mansion1LoadEmptyFloorTileBlock
	lb bc, 8, 10
	call Mansion1LoadEmptyFloorTileBlock
	lb bc, 13, 13
	jp Mansion1LoadEmptyFloorTileBlock

Mansion1LoadHorizontalGateBlock:
	ld a, $2d
	ld [wNewTileBlockID], a
	jr Mansion1ReplaceBlock

Mansion1LoadEmptyFloorTileBlock:
	ld a, $e
	ld [wNewTileBlockID], a
Mansion1ReplaceBlock:
	predef ReplaceTileBlock
	ret

Mansion1Script_Switches::
	ld a, [wSpritePlayerStateData1FacingDirection]
	cp SPRITE_FACING_UP
	ret nz
	xor a
	ldh [hJoyHeld], a
	ld a, TEXT_POKEMONMANSION1F_SWITCH
	ldh [hTextID], a
	jp DisplayTextID

PokemonMansion1F_ScriptPointers:
	def_script_pointers
	dw_const CheckFightingMapTrainers,              SCRIPT_POKEMONMANSION1F_DEFAULT
	dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_POKEMONMANSION1F_START_BATTLE
	dw_const EndTrainerBattle,                      SCRIPT_POKEMONMANSION1F_END_BATTLE

PokemonMansion1F_TextPointers:
	def_text_pointers
	dw_const PokemonMansion1FScientistText, TEXT_POKEMONMANSION1F_SCIENTIST
	dw_const PickUpItemText,                TEXT_POKEMONMANSION1F_ESCAPE_ROPE
	dw_const PickUpItemText,                TEXT_POKEMONMANSION1F_CARBOS
	dw_const PokemonMansion1FSwitchText,    TEXT_POKEMONMANSION1F_SWITCH

Mansion1TrainerHeaders:
	def_trainers
Mansion1TrainerHeader0:
	trainer EVENT_BEAT_MANSION_1_TRAINER_0, 3, PokemonMansion1FScientistBattleText, PokemonMansion1FScientistEndBattleText, PokemonMansion1FScientistAfterBattleText
	db -1 ; end

PokemonMansion1FScientistText:
	text_asm
	ld hl, Mansion1TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

PokemonMansion1FScientistBattleText:
	text_far _PokemonMansion1FScientistBattleText
	text_end

PokemonMansion1FScientistEndBattleText:
	text_far _PokemonMansion1FScientistEndBattleText
	text_end

PokemonMansion1FScientistAfterBattleText:
	text_far _PokemonMansion1FScientistAfterBattleText
	text_end

PokemonMansion1FSwitchText:
	text_asm
	ld hl, .Text
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .not_pressed
	ld a, $1
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ld hl, wCurrentMapScriptFlags
	set BIT_CUR_MAP_LOADED_1, [hl]
	ld hl, .PressedText
	call PrintText
	ld a, SFX_GO_INSIDE
	call PlaySound
	CheckAndSetEvent EVENT_MANSION_SWITCH_ON
	jr z, .done
	ResetEventReuseHL EVENT_MANSION_SWITCH_ON
	jr .done
.not_pressed
	ld hl, .NotPressedText
	call PrintText
.done
	jp TextScriptEnd

.Text:
	text_far _PokemonMansion1FSwitchText
	text_end

.PressedText:
	text_far _PokemonMansion1FSwitchPressedText
	text_end

.NotPressedText:
	text_far _PokemonMansion1FSwitchNotPressedText
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`PokemonMansion1F_Script:`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1CheckReplaceSwitchDoorBlocks`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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, Mansion1TrainerHeaders`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld de, PokemonMansion1F_ScriptPointers`
			`ld a, [wPokemonMansion1FCurScript]`
$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 [wPokemonMansion1FCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`Mansion1CheckReplaceSwitchDoorBlocks:`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
Identify `wCurrentMapScriptFlags` bits (#467) 2024-09-24 15:39:44 +00:00			`bit BIT_CUR_MAP_LOADED_1, [hl]`
			`res BIT_CUR_MAP_LOADED_1, [hl]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret z`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_MANSION_SWITCH_ON`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`jr nz, .switchTurnedOn`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 6, 12`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadEmptyFloorTileBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 3, 8`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadHorizontalGateBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 8, 10`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadHorizontalGateBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 13, 13`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`jp Mansion1LoadHorizontalGateBlock`
			`.switchTurnedOn`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 6, 12`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadHorizontalGateBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 3, 8`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadEmptyFloorTileBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 8, 10`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`call Mansion1LoadEmptyFloorTileBlock`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 13, 13`
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`jp Mansion1LoadEmptyFloorTileBlock`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`Mansion1LoadHorizontalGateBlock:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2d`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld [wNewTileBlockID], a`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr Mansion1ReplaceBlock`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Name unnamed labels in seafoam islands and pokemon mansion script files (#435) * Update PokemonMansion1F.asm * Name unnamed seafoam/mansion labels 2023-11-19 21:09:33 +00:00			`Mansion1LoadEmptyFloorTileBlock:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $e`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld [wNewTileBlockID], a`
remove address comments 2016-06-12 00:24:04 +00:00			`Mansion1ReplaceBlock:`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`predef ReplaceTileBlock`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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			`Mansion1Script_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_POKEMONMANSION1F_SWITCH`
Split `hSpriteIndexOrTextID` into `hSpriteIndex` and `hTextID` (#462) Also identify `wPPUpCountAndMaxPP` 2024-09-19 01:01:18 +00:00			`ldh [hTextID], 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			`PokemonMansion1F_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 CheckFightingMapTrainers, SCRIPT_POKEMONMANSION1F_DEFAULT`
			`dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_POKEMONMANSION1F_START_BATTLE`
			`dw_const EndTrainerBattle, SCRIPT_POKEMONMANSION1F_END_BATTLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`PokemonMansion1F_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 PokemonMansion1FScientistText, TEXT_POKEMONMANSION1F_SCIENTIST`
			`dw_const PickUpItemText, TEXT_POKEMONMANSION1F_ESCAPE_ROPE`
			`dw_const PickUpItemText, TEXT_POKEMONMANSION1F_CARBOS`
			`dw_const PokemonMansion1FSwitchText, TEXT_POKEMONMANSION1F_SWITCH`
$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			`Mansion1TrainerHeaders:`
			`def_trainers`
remove address comments 2016-06-12 00:24:04 +00:00			`Mansion1TrainerHeader0:`
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_1_TRAINER_0, 3, PokemonMansion1FScientistBattleText, PokemonMansion1FScientistEndBattleText, PokemonMansion1FScientistAfterBattleText`
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			`PokemonMansion1FScientistText:`
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, Mansion1TrainerHeader0`
			`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			`PokemonMansion1FScientistBattleText:`
			`text_far _PokemonMansion1FScientistBattleText`
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			`PokemonMansion1FScientistEndBattleText:`
			`text_far _PokemonMansion1FScientistEndBattleText`
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			`PokemonMansion1FScientistAfterBattleText:`
			`text_far _PokemonMansion1FScientistAfterBattleText`
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			`PokemonMansion1FSwitchText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
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 hl, .Text`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`call YesNoChoice`
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, [wCurrentMenuItem]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and 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			`jr nz, .not_pressed`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
Identify `wCurrentMapScriptFlags` bits (#467) 2024-09-24 15:39:44 +00:00			`set BIT_CUR_MAP_LOADED_1, [hl]`
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 hl, .PressedText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_GO_INSIDE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PlaySound`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckAndSetEvent EVENT_MANSION_SWITCH_ON`
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			`jr z, .done`
named most of the used events 2015-07-21 17:36:03 +00:00			`ResetEventReuseHL EVENT_MANSION_SWITCH_ON`
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			`jr .done`
			`.not_pressed`
			`ld hl, .NotPressedText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
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			`.done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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			`.Text:`
			`text_far _PokemonMansion1FSwitchText`
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			`.PressedText:`
			`text_far _PokemonMansion1FSwitchPressedText`
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			`.NotPressedText:`
			`text_far _PokemonMansion1FSwitchNotPressedText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`