pokered/scripts/mansion3.asm

Mansion3Script: ; 521ee (14:61ee)
	call Mansion3Script_52204
	call EnableAutoTextBoxDrawing
	ld hl, Mansion3TrainerHeader0
	ld de, Mansion3ScriptPointers
	ld a, [wMansion3CurScript]
	call ExecuteCurMapScriptInTable
	ld [wMansion3CurScript], a
	ret

Mansion3Script_52204: ; 52204 (14:6204)
	ld hl, wCurrentMapScriptFlags
	bit 5, [hl]
	res 5, [hl]
	ret z
	CheckEvent EVENT_MANSION_SWITCH_ON
	jr nz, .asm_52224
	ld a, $e
	ld bc, $207
	call Mansion2Script_5202f
	ld a, $5f
	ld bc, $507
	call Mansion2Script_5202f
	ret
.asm_52224
	ld a, $5f
	ld bc, $207
	call Mansion2Script_5202f
	ld a, $e
	ld bc, $507
	call Mansion2Script_5202f
	ret

Mansion3ScriptPointers: ; 52235 (14:6235)
	dw Mansion3Script0
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle

Mansion3Script0: ; 5223b (14:623b)
	ld hl, CoordsData_52254
	call Mansion3Script_5225b
	ld a, [wWhichDungeonWarp]
	and a
	jp z, CheckFightingMapTrainers
	cp $3
	ld a, $a5
	jr nz, .asm_52250
	ld a, $d6
.asm_52250
	ld [wDungeonWarpDestinationMap], a
	ret

CoordsData_52254: ; 52254 (14:6254)
	db $0E,$10
	db $0E,$11
	db $0E,$13
	db $FF

Mansion3Script_5225b: ; 5225b (14:625b)
	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: ; 5227a (14:627a)
	ld a, [wSpriteStateData1 + 9]
	cp SPRITE_FACING_UP
	ret nz
	xor a
	ld [hJoyHeld], a
	ld a, $6
	ld [hSpriteIndexOrTextID], a
	jp DisplayTextID

Mansion3TextPointers: ; 5228a (14:628a)
	dw Mansion3Text1
	dw Mansion3Text2
	dw PickUpItemText
	dw PickUpItemText
	dw Mansion3Text5
	dw Mansion3Text6

Mansion3TrainerHeaders: ; 52296 (14:6296)
Mansion3TrainerHeader0: ; 52296 (14:6296)
	dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_0
	db ($0 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_0
	dw Mansion3BattleText1 ; TextBeforeBattle
	dw Mansion3AfterBattleText1 ; TextAfterBattle
	dw Mansion3EndBattleText1 ; TextEndBattle
	dw Mansion3EndBattleText1 ; TextEndBattle

Mansion3TrainerHeader2: ; 522a2 (14:62a2)
	dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_2
	db ($2 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_2
	dw Mansion3BattleText2 ; TextBeforeBattle
	dw Mansion3AfterBattleText2 ; TextAfterBattle
	dw Mansion3EndBattleText2 ; TextEndBattle
	dw Mansion3EndBattleText2 ; TextEndBattle

	db $ff

Mansion3Text1: ; 522af (14:62af)
	TX_ASM
	ld hl, Mansion3TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

Mansion3Text2: ; 522b9 (14:62b9)
	TX_ASM
	ld hl, Mansion3TrainerHeader2
	call TalkToTrainer
	jp TextScriptEnd

Mansion3BattleText1: ; 522c3 (14:62c3)
	TX_FAR _Mansion3BattleText1
	db "@"

Mansion3EndBattleText1: ; 522c8 (14:62c8)
	TX_FAR _Mansion3EndBattleText1
	db "@"

Mansion3AfterBattleText1: ; 522cd (14:62cd)
	TX_FAR _Mansion3AfterBattleText1
	db "@"

Mansion3BattleText2: ; 522d2 (14:62d2)
	TX_FAR _Mansion3BattleText2
	db "@"

Mansion3EndBattleText2: ; 522d7 (14:62d7)
	TX_FAR _Mansion3EndBattleText2
	db "@"

Mansion3AfterBattleText2: ; 522dc (14:62dc)
	TX_FAR _Mansion3AfterBattleText2
	db "@"

Mansion3Text5: ; 522e1 (14:62e1)
	TX_FAR _Mansion3Text5
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`Mansion3Script: ; 521ee (14:61ee)`
			`call Mansion3Script_52204`
			`call EnableAutoTextBoxDrawing`
			`ld hl, Mansion3TrainerHeader0`
			`ld de, Mansion3ScriptPointers`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wMansion3CurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ExecuteCurMapScriptInTable`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wMansion3CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`Mansion3Script_52204: ; 52204 (14:6204)`
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`
			`ld bc, $207`
			`call Mansion2Script_5202f`
			`ld a, $5f`
			`ld bc, $507`
			`call Mansion2Script_5202f`
			`ret`
			`.asm_52224`
			`ld a, $5f`
			`ld bc, $207`
			`call Mansion2Script_5202f`
			`ld a, $e`
			`ld bc, $507`
			`call Mansion2Script_5202f`
			`ret`

			`Mansion3ScriptPointers: ; 52235 (14:6235)`
			`dw Mansion3Script0`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`dw DisplayEnemyTrainerTextAndStartBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw EndTrainerBattle`

			`Mansion3Script0: ; 5223b (14:623b)`
			`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`
			`ld a, $a5`
			`jr nz, .asm_52250`
			`ld a, $d6`
			`.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`

			`CoordsData_52254: ; 52254 (14:6254)`
			`db $0E,$10`
			`db $0E,$11`
			`db $0E,$13`
			`db $FF`

			`Mansion3Script_5225b: ; 5225b (14:625b)`
			`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`

$U-Fish-PC\Daniel$ Name hidden object routines 2014-05-21 23:08:32 +00:00			`Mansion3Script_Switches: ; 5227a (14:627a)`
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, [wSpriteStateData1 + 9]`
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`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyHeld], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $6`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp DisplayTextID`

			`Mansion3TextPointers: ; 5228a (14:628a)`
			`dw Mansion3Text1`
			`dw Mansion3Text2`
fix variable naming 2015-07-18 15:17:29 +00:00			`dw PickUpItemText`
			`dw PickUpItemText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Mansion3Text5`
			`dw Mansion3Text6`

			`Mansion3TrainerHeaders: ; 52296 (14:6296)`
			`Mansion3TrainerHeader0: ; 52296 (14:6296)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_0`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db ($0 << 4) ; trainer's view range`
enumerate events 2015-07-21 01:32:02 +00:00			`dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_0`
$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			`dw Mansion3BattleText1 ; TextBeforeBattle`
			`dw Mansion3AfterBattleText1 ; TextAfterBattle`
			`dw Mansion3EndBattleText1 ; TextEndBattle`
			`dw Mansion3EndBattleText1 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`Mansion3TrainerHeader2: ; 522a2 (14:62a2)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_MANSION_3_TRAINER_2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db ($2 << 4) ; trainer's view range`
enumerate events 2015-07-21 01:32:02 +00:00			`dwEventFlagAddress EVENT_BEAT_MANSION_3_TRAINER_2`
$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			`dw Mansion3BattleText2 ; TextBeforeBattle`
			`dw Mansion3AfterBattleText2 ; TextAfterBattle`
			`dw Mansion3EndBattleText2 ; TextEndBattle`
			`dw Mansion3EndBattleText2 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`Mansion3Text1: ; 522af (14:62af)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_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`

			`Mansion3Text2: ; 522b9 (14:62b9)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Mansion3TrainerHeader2`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`Mansion3BattleText1: ; 522c3 (14:62c3)`
			`TX_FAR _Mansion3BattleText1`
			`db "@"`

			`Mansion3EndBattleText1: ; 522c8 (14:62c8)`
			`TX_FAR _Mansion3EndBattleText1`
			`db "@"`

			`Mansion3AfterBattleText1: ; 522cd (14:62cd)`
			`TX_FAR _Mansion3AfterBattleText1`
			`db "@"`

			`Mansion3BattleText2: ; 522d2 (14:62d2)`
			`TX_FAR _Mansion3BattleText2`
			`db "@"`

			`Mansion3EndBattleText2: ; 522d7 (14:62d7)`
			`TX_FAR _Mansion3EndBattleText2`
			`db "@"`

			`Mansion3AfterBattleText2: ; 522dc (14:62dc)`
			`TX_FAR _Mansion3AfterBattleText2`
			`db "@"`

			`Mansion3Text5: ; 522e1 (14:62e1)`
			`TX_FAR _Mansion3Text5`
			`db "@"`