pokered/scripts/SilphCo3F.asm
vulcandth d001ced41b
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-13 21:27:56 -04:00

126 lines
3.1 KiB
NASM

SilphCo3F_Script:
call SilphCo3FGateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo3TrainerHeaders
ld de, SilphCo3F_ScriptPointers
ld a, [wSilphCo3FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo3FCurScript], a
ret
SilphCo3FGateCallbackScript:
ld hl, wCurrentMapScriptFlags
bit 5, [hl]
res 5, [hl]
ret z
ld hl, .GateCoordinates
call SilphCo2F_SetCardKeyDoorYScript
call SilphCo3F_UnlockedDoorEventScript
CheckEvent EVENT_SILPH_CO_3_UNLOCKED_DOOR1
jr nz, .unlock_door1
push af
ld a, $5f
ld [wNewTileBlockID], a
lb bc, 4, 4
predef ReplaceTileBlock
pop af
.unlock_door1
CheckEventAfterBranchReuseA EVENT_SILPH_CO_3_UNLOCKED_DOOR2, EVENT_SILPH_CO_3_UNLOCKED_DOOR1
ret nz
ld a, $5f
ld [wNewTileBlockID], a
lb bc, 4, 8
predef_jump ReplaceTileBlock
.GateCoordinates:
dbmapcoord 4, 4
dbmapcoord 8, 4
db -1 ; end
SilphCo3F_UnlockedDoorEventScript:
EventFlagAddress hl, EVENT_SILPH_CO_3_UNLOCKED_DOOR1
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
cp $1
jr nz, .unlock_door1
SetEventReuseHL EVENT_SILPH_CO_3_UNLOCKED_DOOR1
ret
.unlock_door1
SetEventAfterBranchReuseHL EVENT_SILPH_CO_3_UNLOCKED_DOOR2, EVENT_SILPH_CO_3_UNLOCKED_DOOR1
ret
SilphCo3F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO3F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO3F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO3F_END_BATTLE
SilphCo3F_TextPointers:
def_text_pointers
dw_const SilphCo3FSilphWorkerMText, TEXT_SILPHCO3F_SILPH_WORKER_M
dw_const SilphCo3FRocketText, TEXT_SILPHCO3F_ROCKET
dw_const SilphCo3FScientistText, TEXT_SILPHCO3F_SCIENTIST
dw_const PickUpItemText, TEXT_SILPHCO3F_HYPER_POTION
SilphCo3TrainerHeaders:
def_trainers 2
SilphCo3TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_3F_TRAINER_0, 2, SilphCo3FRocketBattleText, SilphCo3FRocketEndBattleText, SilphCo3FRocketAfterBattleText
SilphCo3TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_3F_TRAINER_1, 3, SilphCo3FScientistBattleText, SilphCo3FScientistEndBattleText, SilphCo3FScientistAfterBattleText
db -1 ; end
SilphCo3FSilphWorkerMText:
text_asm
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
ld hl, .YouSavedUsText
jr nz, .beat_giovanni
ld hl, .WhatShouldIDoText
.beat_giovanni
call PrintText
jp TextScriptEnd
.WhatShouldIDoText:
text_far _SilphCo3FSilphWorkerMWhatShouldIDoText
text_end
.YouSavedUsText:
text_far _SilphCo3FSilphWorkerMYouSavedUsText
text_end
SilphCo3FRocketText:
text_asm
ld hl, SilphCo3TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo3FRocketBattleText:
text_far _SilphCo3FRocketBattleText
text_end
SilphCo3FRocketEndBattleText:
text_far _SilphCo3FRocketEndBattleText
text_end
SilphCo3FRocketAfterBattleText:
text_far _SilphCo3FRocketAfterBattleText
text_end
SilphCo3FScientistText:
text_asm
ld hl, SilphCo3TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo3FScientistBattleText:
text_far _SilphCo3FScientistBattleText
text_end
SilphCo3FScientistEndBattleText:
text_far _SilphCo3FScientistEndBattleText
text_end
SilphCo3FScientistAfterBattleText:
text_far _SilphCo3FScientistAfterBattleText
text_end