pokered/scripts/SilphCo2F.asm

222 lines
5.1 KiB
NASM
Raw Permalink Normal View History

SilphCo2F_Script:
call SilphCo2FGateCallbackScript
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
ld hl, SilphCo2TrainerHeaders
ld de, SilphCo2F_ScriptPointers
ld a, [wSilphCo2FCurScript]
2014-05-18 18:19:10 +00:00
call ExecuteCurMapScriptInTable
ld [wSilphCo2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
SilphCo2FGateCallbackScript:
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 SilphCo2F_SetCardKeyDoorYScript
call SilphCo2F_UnlockedDoorEventScript
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_SILPH_CO_2_UNLOCKED_DOOR1
jr nz, .unlock_door1
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, 2
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_2_UNLOCKED_DOOR2, EVENT_SILPH_CO_2_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret nz
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, 2
2014-09-14 18:29:18 +00:00
predef_jump ReplaceTileBlock
2014-05-18 18:19:10 +00:00
.GateCoordinates:
dbmapcoord 2, 2
dbmapcoord 2, 5
db -1 ; end
2014-05-18 18:19:10 +00:00
SilphCo2F_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_check_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_y_coord
2014-05-18 18:19:10 +00:00
inc hl
jr .loop_check_doors
.check_y_coord
2014-05-18 18:19:10 +00:00
ld a, [hli]
cp c
jr nz, .loop_check_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
SilphCo2F_UnlockedDoorEventScript:
2015-07-21 17:36:03 +00:00
EventFlagAddress hl, EVENT_SILPH_CO_2_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_2_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
.unlock_door1
2015-07-21 17:36:03 +00:00
SetEventAfterBranchReuseHL EVENT_SILPH_CO_2_UNLOCKED_DOOR2, EVENT_SILPH_CO_2_UNLOCKED_DOOR1
2014-05-18 18:19:10 +00:00
ret
SilphCo2F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO2F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO2F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO2F_END_BATTLE
2014-05-18 18:19:10 +00:00
SilphCo2F_TextPointers:
def_text_pointers
dw_const SilphCo2FSilphWorkerFText, TEXT_SILPHCO2F_SILPH_WORKER_F
dw_const SilphCo2FScientist1Text, TEXT_SILPHCO2F_SCIENTIST1
dw_const SilphCo2FScientist2Text, TEXT_SILPHCO2F_SCIENTIST2
dw_const SilphCo2FRocket1Text, TEXT_SILPHCO2F_ROCKET1
dw_const SilphCo2FRocket2Text, TEXT_SILPHCO2F_ROCKET2
2014-05-18 18:19:10 +00:00
SilphCo2TrainerHeaders:
def_trainers 2
2016-06-12 00:24:04 +00:00
SilphCo2TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_0, 3, SilphCo2FScientist1BattleText, SilphCo2FScientist1EndBattleText, SilphCo2FScientist1AfterBattleText
2016-06-12 00:24:04 +00:00
SilphCo2TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_1, 4, SilphCo2FScientist2BattleText, SilphCo2FScientist2EndBattleText, SilphCo2FScientist2AfterBattleText
2016-06-12 00:24:04 +00:00
SilphCo2TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_2, 3, SilphCo2FRocket1BattleText, SilphCo2FRocket1EndBattleText, SilphCo2FRocket1AfterBattleText
2016-06-12 00:24:04 +00:00
SilphCo2TrainerHeader3:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_3, 3, SilphCo2FRocket2BattleText, SilphCo2FRocket2EndBattleText, SilphCo2FRocket2AfterBattleText
db -1 ; end
2014-05-18 18:19:10 +00:00
SilphCo2FSilphWorkerFText:
text_asm
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_GOT_TM36
jr nz, .already_have_tm
ld hl, .PleaseTakeThisText
2014-05-18 18:19:10 +00:00
call PrintText
2020-07-06 02:52:27 +00:00
lb bc, TM_SELFDESTRUCT, 1
2014-05-18 18:19:10 +00:00
call GiveItem
ld hl, .TM36NoRoomText
jr nc, .print_text
2015-07-21 17:36:03 +00:00
SetEvent EVENT_GOT_TM36
ld hl, .ReceivedTM36Text
jr .print_text
.already_have_tm
ld hl, .TM36ExplanationText
.print_text
2014-05-18 18:19:10 +00:00
call PrintText
jp TextScriptEnd
.PleaseTakeThisText:
text_far SilphCo2FSilphWorkerFPleaseTakeThisText
text_end
2014-05-18 18:19:10 +00:00
.ReceivedTM36Text:
text_far _SilphCo2FSilphWorkerFReceivedTM36Text
sound_get_item_1
text_end
2014-05-18 18:19:10 +00:00
.TM36ExplanationText:
text_far _SilphCo2FSilphWorkerFTM36ExplanationText
text_end
2014-05-18 18:19:10 +00:00
.TM36NoRoomText:
text_far _SilphCo2FSilphWorkerFTM36NoRoomText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist1Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo2FScientist2Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo2TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo2FRocket1Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo2TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo2FRocket2Text:
text_asm
2014-05-18 18:19:10 +00:00
ld hl, SilphCo2TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
SilphCo2FScientist1BattleText:
text_far _SilphCo2FScientist1BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist1EndBattleText:
text_far _SilphCo2FScientist1EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist1AfterBattleText:
text_far _SilphCo2FScientist1AfterBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist2BattleText:
text_far _SilphCo2FScientist2BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist2EndBattleText:
text_far _SilphCo2FScientist2EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FScientist2AfterBattleText:
text_far _SilphCo2FScientist2AfterBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket1BattleText:
text_far _SilphCo2FRocket1BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket1EndBattleText:
text_far _SilphCo2FRocket1EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket1AfterBattleText:
text_far _SilphCo2FRocket1AfterBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket2BattleText:
text_far _SilphCo2FRocket2BattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket2EndBattleText:
text_far _SilphCo2FRocket2EndBattleText
text_end
2014-05-18 18:19:10 +00:00
SilphCo2FRocket2AfterBattleText:
text_far _SilphCo2FRocket2AfterBattleText
text_end