pokered/scripts/SilphCo9F.asm

228 lines
5.1 KiB
NASM
Raw Normal View History

SilphCo9F_Script:
call SilphCo9FGateCallbackScript
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
ld hl, SilphCo9TrainerHeaders
ld de, SilphCo9F_ScriptPointers
ld a, [wSilphCo9FCurScript]
2014-05-18 18:19:10 +00:00
call ExecuteCurMapScriptInTable
ld [wSilphCo9FCurScript], a
2014-05-18 18:19:10 +00:00
ret
SilphCo9FGateCallbackScript:
2016-01-03 19:17:10 +00:00
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
2014-05-18 18:19:10 +00:00
ret z
ld hl, .GateCoordinates
call SilphCo9F_SetCardKeyDoorYScript
call SilphCo9F_SetUnlockedSilphCoDoorsScript
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_SILPH_CO_9_UNLOCKED_DOOR1
jr nz, .unlock_door1
2014-05-18 18:19:10 +00:00
push af
ld a, $5f
2015-07-24 21:39:45 +00:00
ld [wNewTileBlockID], a
2015-08-05 21:20:29 +00:00
lb bc, 4, 1
2014-09-14 18:29:18 +00:00
predef ReplaceTileBlock
2014-05-18 18:19:10 +00:00
pop af
.unlock_door1
2015-07-21 17:36:03 +00:00
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR2, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
jr nz, .unlock_door2
2014-05-18 18:19:10 +00:00
push af
ld a, $54
2015-07-24 21:39:45 +00:00
ld [wNewTileBlockID], a
2015-08-05 21:20:29 +00:00
lb bc, 2, 9
2014-09-14 18:29:18 +00:00
predef ReplaceTileBlock
2014-05-18 18:19:10 +00:00
pop af
.unlock_door2
2015-07-21 17:36:03 +00:00
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR3, EVENT_SILPH_CO_9_UNLOCKED_DOOR2
jr nz, .unlock_door3
2014-05-18 18:19:10 +00:00
push af
ld a, $54
2015-07-24 21:39:45 +00:00
ld [wNewTileBlockID], a
2015-08-05 21:20:29 +00:00
lb bc, 5, 9
2014-09-14 18:29:18 +00:00
predef ReplaceTileBlock
2014-05-18 18:19:10 +00:00
pop af
.unlock_door3
2015-07-21 17:36:03 +00:00
CheckEventAfterBranchReuseA EVENT_SILPH_CO_9_UNLOCKED_DOOR4, EVENT_SILPH_CO_9_UNLOCKED_DOOR3
2014-05-18 18:19:10 +00:00
ret nz
ld a, $5f
2015-07-24 21:39:45 +00:00
ld [wNewTileBlockID], a
2015-08-05 21:20:29 +00:00
lb bc, 6, 5
2014-09-14 18:29:18 +00:00
predef_jump ReplaceTileBlock
2014-05-18 18:19:10 +00:00
.GateCoordinates:
dbmapcoord 1, 4
dbmapcoord 9, 2
dbmapcoord 9, 5
dbmapcoord 5, 6
db -1 ; end
2014-05-18 18:19:10 +00:00
SilphCo9F_SetCardKeyDoorYScript:
2014-05-18 18:19:10 +00:00
push hl
2014-09-14 18:29:18 +00:00
ld hl, wCardKeyDoorY
2014-05-18 18:19:10 +00:00
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
xor a
ldh [hUnlockedSilphCoDoors], a
2014-05-18 18:19:10 +00:00
pop hl
.loop_card_key_doors
2014-05-18 18:19:10 +00:00
ld a, [hli]
cp $ff
jr z, .exit_loop
2014-05-18 18:19:10 +00:00
push hl
ld hl, hUnlockedSilphCoDoors
2014-05-18 18:19:10 +00:00
inc [hl]
pop hl
cp b
jr z, .check_door
2014-05-18 18:19:10 +00:00
inc hl
jr .loop_card_key_doors
.check_door
2014-05-18 18:19:10 +00:00
ld a, [hli]
cp c
jr nz, .loop_card_key_doors
2014-09-14 18:29:18 +00:00
ld hl, wCardKeyDoorY
2014-05-18 18:19:10 +00:00
xor a
ld [hli], a
ld [hl], a
ret
.exit_loop
2014-05-18 18:19:10 +00:00
xor a
ldh [hUnlockedSilphCoDoors], a
2014-05-18 18:19:10 +00:00
ret
SilphCo9F_SetUnlockedSilphCoDoorsScript:
2015-07-21 17:36:03 +00:00
EventFlagAddress hl, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
ldh a, [hUnlockedSilphCoDoors]
2014-05-18 18:19:10 +00:00
and a
ret z
cp $1
jr nz, .unlock_door1
2015-07-21 17:36:03 +00:00
SetEventReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
.unlock_door1
2014-05-18 18:19:10 +00:00
cp $2
jr nz, .unlock_door2
2015-07-21 17:36:03 +00:00
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR2, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
.unlock_door2
2014-05-18 18:19:10 +00:00
cp $3
jr nz, .unlock_door3
2015-07-21 17:36:03 +00:00
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR3, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
.unlock_door3
2014-05-18 18:19:10 +00:00
cp $4
ret nz
2015-07-21 17:36:03 +00:00
SetEventAfterBranchReuseHL EVENT_SILPH_CO_9_UNLOCKED_DOOR4, EVENT_SILPH_CO_9_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
SilphCo9F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO9F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO9F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO9F_END_BATTLE
2014-05-18 18:19:10 +00:00
SilphCo9F_TextPointers:
def_text_pointers
dw_const SilphCo9FNurseText, TEXT_SILPHCO9F_NURSE
dw_const SilphCo9FRocket1Text, TEXT_SILPHCO9F_ROCKET1
dw_const SilphCo9FScientistText, TEXT_SILPHCO9F_SCIENTIST
dw_const SilphCo9FRocket2Text, TEXT_SILPHCO9F_ROCKET2
2014-05-18 18:19:10 +00:00
SilphCo9TrainerHeaders:
def_trainers 2
2016-06-12 00:24:04 +00:00
SilphCo9TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_9F_TRAINER_0, 4, SilphCo9FRocket1BattleText, SilphCo9FRocket1EndBattleText, SilphCo9FRocket1AfterBattleText
2016-06-12 00:24:04 +00:00
SilphCo9TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_9F_TRAINER_1, 2, SilphCo9FScientistBattleText, SilphCo9FScientistEndBattleText, SilphCo9FScientistAfterBattleText
2016-06-12 00:24:04 +00:00
SilphCo9TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_9F_TRAINER_2, 4, SilphCo9FRocket2BattleText, SilphCo9FRocket2EndBattleText, SilphCo9FRocket2AfterBattleText
db -1 ; end
2014-05-18 18:19:10 +00:00
SilphCo9FNurseText:
text_asm
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
jr nz, .beat_giovanni
ld hl, .YouLookTiredText
2014-05-18 18:19:10 +00:00
call PrintText
predef HealParty
2014-09-13 07:50:56 +00:00
call GBFadeOutToWhite
2014-05-18 18:19:10 +00:00
call Delay3
2014-09-13 07:50:56 +00:00
call GBFadeInFromWhite
ld hl, .DontGiveUpText
2014-05-18 18:19:10 +00:00
call PrintText
jr .text_script_end
.beat_giovanni
ld hl, .ThankYouText
2014-05-18 18:19:10 +00:00
call PrintText
.text_script_end
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
.YouLookTiredText:
text_far SilphCo9FNurseYouLookTiredText
text_end
2014-05-18 18:19:10 +00:00
.DontGiveUpText:
text_far SilphCo9FNurseDontGiveUpText
text_end
2014-05-18 18:19:10 +00:00
.ThankYouText:
text_far SilphCo9FNurseThankYouText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket1Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo9TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo9FScientistText:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo9TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo9FRocket2Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo9TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo9FRocket1BattleText:
text_far _SilphCo9FRocket1BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket1EndBattleText:
text_far _SilphCo9FRocket1EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket1AfterBattleText:
text_far _SilphCo9FRocket1AfterBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FScientistBattleText:
text_far _SilphCo9FScientistBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FScientistEndBattleText:
text_far _SilphCo9FScientistEndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FScientistAfterBattleText:
text_far _SilphCo9FScientistAfterBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket2BattleText:
text_far _SilphCo9FRocket2BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket2EndBattleText:
text_far _SilphCo9FRocket2EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo9FRocket2AfterBattleText:
text_far _SilphCo9FRocket2AfterBattleText
text_end