kep-hack/scripts/RockTunnelB1F.asm
Llinos Evans 4262a0de0d Rock Tunnel fossils
I am not sure why the fossils don't show properly at the moment - it isn't related to going past $FF, as the Old Amber shows.

Dome and Wing specifically don't show properly and need fixing down the line.
2023-05-19 16:57:36 +01:00

265 lines
5.6 KiB
NASM

RockTunnelB1F_Script:
call EnableAutoTextBoxDrawing
ld hl, RockTunnel2TrainerHeaders
ld de, RockTunnelB1F_ScriptPointers
ld a, [wRockTunnelB1FCurScript]
call ExecuteCurMapScriptInTable
ld [wRockTunnelB1FCurScript], a
ret
RockTunnelB1F_ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
RockTunnelB1F_TextPointers:
dw RockTunnel2Text1
dw RockTunnel2Text2
dw RockTunnel2Text3
dw RockTunnel2Text4
dw RockTunnel2Text5
dw RockTunnel2Text6
dw RockTunnel2Text7
dw RockTunnel2Text8
dw RockSlideGuy
dw PickUpItemText ; Helix
dw PickUpItemText ; Dome
dw PickUpItemText ; Amber
dw PickUpItemText ; Wing
; dw KabutopsText
RockTunnel2TrainerHeaders:
def_trainers
RockTunnel2TrainerHeader0:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_0, 4, RockTunnel2BattleText2, RockTunnel2EndBattleText2, RockTunnel2AfterBattleText2
RockTunnel2TrainerHeader1:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_1, 3, RockTunnel2BattleText3, RockTunnel2EndBattleText3, RockTunnel2AfterBattleText3
RockTunnel2TrainerHeader2:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_2, 3, RockTunnel2BattleText4, RockTunnel2EndBattleText4, RockTunnel2AfterBattleText4
RockTunnel2TrainerHeader3:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_3, 4, RockTunnel2BattleText5, RockTunnel2EndBattleText5, RockTunnel2AfterBattleText5
RockTunnel2TrainerHeader4:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_4, 3, RockTunnel2BattleText6, RockTunnel2EndBattleText6, RockTunnel2AfterBattleText6
RockTunnel2TrainerHeader5:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_5, 4, RockTunnel2BattleText7, RockTunnel2EndBattleText7, RockTunnel2AfterBattleText7
RockTunnel2TrainerHeader6:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_6, 3, RockTunnel2BattleText8, RockTunnel2EndBattleText8, RockTunnel2AfterBattleText8
RockTunnel2TrainerHeader7:
trainer EVENT_BEAT_ROCK_TUNNEL_2_TRAINER_7, 3, RockTunnel2BattleText9, RockTunnel2EndBattleText9, RockTunnel2AfterBattleText9
;KabutopsTrainerHeader:
; trainer EVENT_BEAT_KABUTOPS, 0, KabutopsBattleText, KabutopsBattleText, KabutopsBattleText
db -1 ; end
RockTunnel2Text1:
text_asm
ld hl, RockTunnel2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text2:
text_asm
ld hl, RockTunnel2TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text3:
text_asm
ld hl, RockTunnel2TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text4:
text_asm
ld hl, RockTunnel2TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text5:
text_asm
ld hl, RockTunnel2TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text6:
text_asm
ld hl, RockTunnel2TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text7:
text_asm
ld hl, RockTunnel2TrainerHeader6
call TalkToTrainer
jp TextScriptEnd
RockTunnel2Text8:
text_asm
ld hl, RockTunnel2TrainerHeader7
call TalkToTrainer
jp TextScriptEnd
RockTunnel2BattleText2:
text_far _RockTunnel2BattleText2
text_end
RockTunnel2EndBattleText2:
text_far _RockTunnel2EndBattleText2
text_end
RockTunnel2AfterBattleText2:
text_far _RockTunnel2AfterBattleText2
text_end
RockTunnel2BattleText3:
text_far _RockTunnel2BattleText3
text_end
RockTunnel2EndBattleText3:
text_far _RockTunnel2EndBattleText3
text_end
RockTunnel2AfterBattleText3:
text_far _RockTunnel2AfterBattleText3
text_end
RockTunnel2BattleText4:
text_far _RockTunnel2BattleText4
text_end
RockTunnel2EndBattleText4:
text_far _RockTunnel2EndBattleText4
text_end
RockTunnel2AfterBattleText4:
text_far _RockTunnel2AfterBattleText4
text_end
RockTunnel2BattleText5:
text_far _RockTunnel2BattleText5
text_end
RockTunnel2EndBattleText5:
text_far _RockTunnel2EndBattleText5
text_end
RockTunnel2AfterBattleText5:
text_far _RockTunnel2AfterBattleText5
text_end
RockTunnel2BattleText6:
text_far _RockTunnel2BattleText6
text_end
RockTunnel2EndBattleText6:
text_far _RockTunnel2EndBattleText6
text_end
RockTunnel2AfterBattleText6:
text_far _RockTunnel2AfterBattleText6
text_end
RockTunnel2BattleText7:
text_far _RockTunnel2BattleText7
text_end
RockTunnel2EndBattleText7:
text_far _RockTunnel2EndBattleText7
text_end
RockTunnel2AfterBattleText7:
text_far _RockTunnel2AfterBattleText7
text_end
RockTunnel2BattleText8:
text_far _RockTunnel2BattleText8
text_end
RockTunnel2EndBattleText8:
text_far _RockTunnel2EndBattleText8
text_end
RockTunnel2AfterBattleText8:
text_far _RockTunnel2AfterBattleText8
text_end
RockTunnel2BattleText9:
text_far _RockTunnel2BattleText9
text_end
RockTunnel2EndBattleText9:
text_far _RockTunnel2EndBattleText9
text_end
RockTunnel2AfterBattleText9:
text_far _RockTunnel2AfterBattleText9
text_end
; FireRed NPC
RockSlideGuy:
text_asm
CheckEvent EVENT_GOT_TM48_2
jr nz, .got_item
ld hl, TM48PreReceiveText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .refused
lb bc, TM_ROCK_SLIDE, 1
call GiveItem
jr nc, .bag_full
ld hl, ReceivedTM48Text
call PrintText
SetEvent EVENT_GOT_TM48_2
jr .done
.refused
ld hl, TM48Refused
call PrintText
jr .done
.bag_full
ld hl, RockSlideNoRoomText
call PrintText
jr .done
.got_item
ld hl, TM48ExplanationText
call PrintText
.done
jp TextScriptEnd
TM48PreReceiveText:
text_far _TM48PreReceiveText
text_end
ReceivedTM48Text:
text_far _ReceivedTM48Text
sound_get_item_1
text_end
TM48ExplanationText:
text_far _TM48ExplanationText
text_end
TM48Refused:
text_far _TM48Refused
text_end
RockSlideNoRoomText:
text_far _TMNPCNoRoomText
text_end
;KabutopsText:
; text_asm
; ld hl, KabutopsTrainerHeader
; call TalkToTrainer
; jp TextScriptEnd
;
;KabutopsBattleText:
; text_far _KabutopsBattleText
; text_asm
; ld a, KABUTOPS
; call PlayCry
; call WaitForSoundToFinish
; jp TextScriptEnd