kep-hack/scripts/Route1.asm
Martha Schilling 0852d5f725 A few bug fixes
- Fixed a bug where attempting to Fly on Celeste Hill caused a huge memory corruption effect. Oops.

- Fixed text issues on Route 1 and Museum 2F

- Tidied up trainer parties a little more
2023-07-12 14:16:41 +01:00

143 lines
2.2 KiB
NASM

Route1_Script:
jp EnableAutoTextBoxDrawing
;ld hl, Route1_ScriptPointers
ld a, [wRoute1CurScript]
jp CallFunctionInTable
Route1_TextPointers:
dw Route1Text1
dw Route1Text2
dw Route1OakText
dw Route1Text3
Route1Text1:
text_asm
CheckAndSetEvent EVENT_GOT_POTION_SAMPLE
jr nz, .got_item
ld hl, Route1ViridianMartSampleText
call PrintText
lb bc, POTION, 1
call GiveItem
jr nc, .bag_full
ld hl, Route1Text_1cae8
jr .done
.bag_full
ld hl, Route1Text_1caf3
jr .done
.got_item
ld hl, Route1Text_1caee
.done
call PrintText
jp TextScriptEnd
Route1ViridianMartSampleText:
text_far _Route1ViridianMartSampleText
text_end
Route1Text_1cae8:
text_far _Route1Text_1cae8
sound_get_item_1
text_end
Route1Text_1caee:
text_far _Route1Text_1caee
text_end
Route1Text_1caf3:
text_far _Route1Text_1caf3
text_end
Route1Text2:
text_far _Route1Text2
text_end
Route1Text3:
text_far _Route1Text3
text_end
; oak stuff begins here
; text
Route1OakText:
text_asm
ld hl, OakBeforeBattleText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .refused
ld hl, OakYes
call PrintText
ld c, BANK(Music_MeetMaleTrainer)
ld a, MUSIC_MEET_MALE_TRAINER
call PlayMusic
ld hl, wd72d
set 6, [hl]
set 7, [hl]
call Delay3
ld a, OPP_PROF_OAK
ld [wCurOpponent], a
; select which team to use during the encounter
ld a, [wRivalStarter]
cp STARTER2
jr nz, .NotSquirtle
ld a, $2 ; If Charmander, Venusaur
jr .done
.NotSquirtle
cp STARTER3
jr nz, .Charmander
ld a, $3 ; If Bulbasaur, Totartle
jr .done
.Charmander
cp STARTER1
jr nz, .Pikachu
ld a, $1 ; If Squirtle, Charizard
jr .done
.Pikachu
cp STARTER4
jr nz, .Eevee
ld a, $4 ; If Pikachu, all 3
jr .done
.Eevee
ld a, $5 ; If Eevee, also all 3
jr .done
.refused
ld hl, OakNo
call PrintText
jp TextScriptEnd
.done
ld [wTrainerNo], a
ld a, 1
ld [wIsTrainerBattle], a
ld a, $2
ld [wRoute1CurScript], a
ld hl, OakDefeatedText
ld de, OakWonText
call SaveEndBattleTextPointers
jp TextScriptEnd
OakBeforeBattleText:
text_far _OakBeforeBattleText
text_end
OakDefeatedText:
text_far _OakDefeatedText
text_end
OakWonText:
text_far _OakWonText
text_end
OakYes:
text_far _OakYes
text_end
OakNo:
text_far _OakNo
text_end