mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-17 02:40:50 +12:00
c759efdeea
This refactors the Celadon University trainers to ensure that they process properly without the odd memory leak-y thing I did before. Overall works the same, just works for the intended purpose. I also applied what I learned to Professor Oak, giving a Yes/No prompt and adding some pre-battle music as I originally intended.
143 lines
2.2 KiB
NASM
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 Route1Text3
|
|
dw Route1OakText
|
|
|
|
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 ; this whole bit doesn't work for some reason
|
|
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, Espeon
|
|
jr .done
|
|
.Eevee
|
|
ld a, $5 ; If Eevee, Gorochu
|
|
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 |