pokered/scripts/silphco9.asm
2015-07-21 10:36:03 -07:00

241 lines
5.1 KiB
NASM
Executable file

SilphCo9Script: ; 5d7bb (17:57bb)
call SilphCo9Script_5d7d1
call EnableAutoTextBoxDrawing
ld hl, SilphCo9TrainerHeaders
ld de, SilphCo9ScriptPointers
ld a, [W_SILPHCO9CURSCRIPT]
call ExecuteCurMapScriptInTable
ld [W_SILPHCO9CURSCRIPT], a
ret
SilphCo9Script_5d7d1: ; 5d7d1 (17:57d1)
ld hl, wd126
bit 5, [hl]
res 5, [hl]
ret z
ld hl, DataTable_5d82e
call SilphCo9Script_5d837
call SilphCo9Script_5d863
CheckEvent EVENT_SILPH_CO_9_UNLOCKED_DOOR1
jr nz, .asm_5d7f8
push af
ld a, $5f
ld [wd09f], a
ld bc, $401
predef ReplaceTileBlock
pop af
.asm_5d7f8
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR2, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
jr nz, .asm_5d80b
push af
ld a, $54
ld [wd09f], a
ld bc, $209
predef ReplaceTileBlock
pop af
.asm_5d80b
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR3, EVENT_SILPH_CO_9_UNLOCKED_DOOR2
jr nz, .asm_5d81e
push af
ld a, $54
ld [wd09f], a
ld bc, $509
predef ReplaceTileBlock
pop af
.asm_5d81e
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR4, EVENT_SILPH_CO_9_UNLOCKED_DOOR3
ret nz
ld a, $5f
ld [wd09f], a
ld bc, $605
predef_jump ReplaceTileBlock
DataTable_5d82e: ; 5d82e (17:582e)
db $04,$01,$02,$09,$05,$09,$06,$05,$FF
SilphCo9Script_5d837: ; 5d837 (17:5837)
push hl
ld hl, wCardKeyDoorY
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
xor a
ld [$ffe0], a
pop hl
.asm_5d843
ld a, [hli]
cp $ff
jr z, .asm_5d85f
push hl
ld hl, $ffe0
inc [hl]
pop hl
cp b
jr z, .asm_5d854
inc hl
jr .asm_5d843
.asm_5d854
ld a, [hli]
cp c
jr nz, .asm_5d843
ld hl, wCardKeyDoorY
xor a
ld [hli], a
ld [hl], a
ret
.asm_5d85f
xor a
ld [$ffe0], a
ret
SilphCo9Script_5d863: ; 5d863 (17:5863)
EventFlagAddress hl, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ld a, [$ffe0]
and a
ret z
cp $1
jr nz, .next1
SetEventReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ret
.next1
cp $2
jr nz, .next2
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR2, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ret
.next2
cp $3
jr nz, .next3
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR3, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ret
.next3
cp $4
ret nz
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR4, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ret
SilphCo9ScriptPointers: ; 5d885 (17:5885)
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
SilphCo9TextPointers: ; 5d88b (17:588b)
dw SilphCo9Text1
dw SilphCo9Text2
dw SilphCo9Text3
dw SilphCo9Text4
SilphCo9TrainerHeaders: ; 5d893 (17:5893)
SilphCo9TrainerHeader0: ; 5d893 (17:5893)
dbEventFlagBit EVENT_BEAT_SILPH_CO_9F_TRAINER_0
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_9F_TRAINER_0
dw SilphCo9BattleText1 ; TextBeforeBattle
dw SilphCo9AfterBattleText1 ; TextAfterBattle
dw SilphCo9EndBattleText1 ; TextEndBattle
dw SilphCo9EndBattleText1 ; TextEndBattle
SilphCo9TrainerHeader1: ; 5d89f (17:589f)
dbEventFlagBit EVENT_BEAT_SILPH_CO_9F_TRAINER_1
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_9F_TRAINER_1
dw SilphCo9BattleText2 ; TextBeforeBattle
dw SilphCo9AfterBattleText2 ; TextAfterBattle
dw SilphCo9EndBattleText2 ; TextEndBattle
dw SilphCo9EndBattleText2 ; TextEndBattle
SilphCo9TrainerHeader2: ; 5d8ab (17:58ab)
dbEventFlagBit EVENT_BEAT_SILPH_CO_9F_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_9F_TRAINER_2
dw SilphCo9BattleText3 ; TextBeforeBattle
dw SilphCo9AfterBattleText3 ; TextAfterBattle
dw SilphCo9EndBattleText3 ; TextEndBattle
dw SilphCo9EndBattleText3 ; TextEndBattle
db $ff
SilphCo9Text1: ; 5d8b8 (17:58b8)
TX_ASM
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
jr nz, .asm_5d8dc
ld hl, SilphCo9Text_5d8e5
call PrintText
predef HealParty
call GBFadeOutToWhite
call Delay3
call GBFadeInFromWhite
ld hl, SilphCo9Text_5d8ea
call PrintText
jr .asm_5d8e2
.asm_5d8dc
ld hl, SilphCo9Text_5d8ef
call PrintText
.asm_5d8e2
jp TextScriptEnd
SilphCo9Text_5d8e5: ; 5d8e5 (17:58e5)
TX_FAR _SilphCo9Text_5d8e5
db "@"
SilphCo9Text_5d8ea: ; 5d8ea (17:58ea)
TX_FAR _SilphCo9Text_5d8ea
db "@"
SilphCo9Text_5d8ef: ; 5d8ef (17:58ef)
TX_FAR _SilphCo9Text_5d8ef
db "@"
SilphCo9Text2: ; 5d8f4 (17:58f4)
TX_ASM
ld hl, SilphCo9TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo9Text3: ; 5d8fe (17:58fe)
TX_ASM
ld hl, SilphCo9TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo9Text4: ; 5d908 (17:5908)
TX_ASM
ld hl, SilphCo9TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo9BattleText1: ; 5d912 (17:5912)
TX_FAR _SilphCo9BattleText1
db "@"
SilphCo9EndBattleText1: ; 5d917 (17:5917)
TX_FAR _SilphCo9EndBattleText1
db "@"
SilphCo9AfterBattleText1: ; 5d91c (17:591c)
TX_FAR _SilphCo9AfterBattleText1
db "@"
SilphCo9BattleText2: ; 5d921 (17:5921)
TX_FAR _SilphCo9BattleText2
db "@"
SilphCo9EndBattleText2: ; 5d926 (17:5926)
TX_FAR _SilphCo9EndBattleText2
db "@"
SilphCo9AfterBattleText2: ; 5d92b (17:592b)
TX_FAR _SilphCo9AfterBattleText2
db "@"
SilphCo9BattleText3: ; 5d930 (17:5930)
TX_FAR _SilphCo9BattleText3
db "@"
SilphCo9EndBattleText3: ; 5d935 (17:5935)
TX_FAR _SilphCo9EndBattleText3
db "@"
SilphCo9AfterBattleText3: ; 5d93a (17:593a)
TX_FAR _SilphCo9AfterBattleText3
db "@"