mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
132 lines
2.7 KiB
NASM
Executable file
132 lines
2.7 KiB
NASM
Executable file
Mansion4Script: ; 523b9 (14:63b9)
|
|
call Mansion4Script_523cf
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, Mansion4TrainerHeader0
|
|
ld de, Mansion4ScriptPointers
|
|
ld a, [W_MANSION4CURSCRIPT]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [W_MANSION4CURSCRIPT], a
|
|
ret
|
|
|
|
Mansion4Script_523cf: ; 523cf (14:63cf)
|
|
ld hl, wd126
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
ret z
|
|
ld a, [wd796]
|
|
bit 0, a
|
|
jr nz, .asm_523ff
|
|
ld a, $e
|
|
ld bc, $80d
|
|
call Mansion2Script_5202f
|
|
ld a, $e
|
|
ld bc, $b06
|
|
call Mansion2Script_5202f
|
|
ld a, $5f
|
|
ld bc, $304
|
|
call Mansion2Script_5202f
|
|
ld a, $54
|
|
ld bc, $808
|
|
call Mansion2Script_5202f
|
|
ret
|
|
.asm_523ff
|
|
ld a, $2d
|
|
ld bc, $80d
|
|
call Mansion2Script_5202f
|
|
ld a, $5f
|
|
ld bc, $b06
|
|
call Mansion2Script_5202f
|
|
ld a, $e
|
|
ld bc, $304
|
|
call Mansion2Script_5202f
|
|
ld a, $e
|
|
ld bc, $808
|
|
call Mansion2Script_5202f
|
|
ret
|
|
|
|
Mansion4Script_Switches: ; 52420 (14:6420)
|
|
ld a, [wSpriteStateData1 + 9]
|
|
cp SPRITE_FACING_UP
|
|
ret nz
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
ld a, $9
|
|
ld [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
|
|
Mansion4ScriptPointers: ; 52430 (14:6430)
|
|
dw CheckFightingMapTrainers
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw EndTrainerBattle
|
|
|
|
Mansion4TextPointers: ; 52436 (14:6436)
|
|
dw Mansion4Text1
|
|
dw Mansion4Text2
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw Mansion4Text7
|
|
dw PickUpItemText
|
|
dw Mansion3Text6
|
|
|
|
Mansion4TrainerHeaders: ; 52448 (14:6448)
|
|
Mansion4TrainerHeader0: ; 52448 (14:6448)
|
|
db $1 ; flag's bit
|
|
db ($0 << 4) ; trainer's view range
|
|
dw wd84b ; flag's byte
|
|
dw Mansion4BattleText1 ; TextBeforeBattle
|
|
dw Mansion4AfterBattleText1 ; TextAfterBattle
|
|
dw Mansion4EndBattleText1 ; TextEndBattle
|
|
dw Mansion4EndBattleText1 ; TextEndBattle
|
|
|
|
Mansion4TrainerHeader2: ; 52454 (14:6454)
|
|
db $2 ; flag's bit
|
|
db ($3 << 4) ; trainer's view range
|
|
dw wd84b ; flag's byte
|
|
dw Mansion4BattleText2 ; TextBeforeBattle
|
|
dw Mansion4AfterBattleText2 ; TextAfterBattle
|
|
dw Mansion4EndBattleText2 ; TextEndBattle
|
|
dw Mansion4EndBattleText2 ; TextEndBattle
|
|
|
|
db $ff
|
|
|
|
Mansion4Text1: ; 52461 (14:6461)
|
|
TX_ASM
|
|
ld hl, Mansion4TrainerHeader0
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
Mansion4Text2: ; 5246b (14:646b)
|
|
TX_ASM
|
|
ld hl, Mansion4TrainerHeader2
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
Mansion4BattleText1: ; 52475 (14:6475)
|
|
TX_FAR _Mansion4BattleText1
|
|
db "@"
|
|
|
|
Mansion4EndBattleText1: ; 5247a (14:647a)
|
|
TX_FAR _Mansion4EndBattleText1
|
|
db "@"
|
|
|
|
Mansion4AfterBattleText1: ; 5247f (14:647f)
|
|
TX_FAR _Mansion4AfterBattleText1
|
|
db "@"
|
|
|
|
Mansion4BattleText2: ; 52484 (14:6484)
|
|
TX_FAR _Mansion4BattleText2
|
|
db "@"
|
|
|
|
Mansion4EndBattleText2: ; 52489 (14:6489)
|
|
TX_FAR _Mansion4EndBattleText2
|
|
db "@"
|
|
|
|
Mansion4AfterBattleText2: ; 5248e (14:648e)
|
|
TX_FAR _Mansion4AfterBattleText2
|
|
db "@"
|
|
|
|
Mansion4Text7: ; 52493 (14:6493)
|
|
TX_FAR _Mansion4Text7
|
|
db "@"
|