Ok the fight works now

Issues:
- Player only walks one space for some reason
- After battle text doesn't happen, so no Candy Jar

Otherwise, almost finished.
This commit is contained in:
Llinos Evans 2023-04-25 00:47:19 +01:00
parent ca1cc6af90
commit 2f82c377fe
7 changed files with 153 additions and 37 deletions

View file

@ -30,6 +30,8 @@ PlayBattleMusic::
jr z, .finalBattle jr z, .finalBattle
cp OPP_PROF_OAK ; may as well, right? cp OPP_PROF_OAK ; may as well, right?
jr z, .finalBattle jr z, .finalBattle
cp OPP_CHIEF
jr z, .finalBattle
jr nz, .normalTrainerBattle jr nz, .normalTrainerBattle
ld a, MUSIC_FINAL_BATTLE ld a, MUSIC_FINAL_BATTLE
jr .playSong jr .playSong

View file

@ -719,7 +719,7 @@
const EVENT_BEAT_SILPH_CO_11F_TRAINER_1 const EVENT_BEAT_SILPH_CO_11F_TRAINER_1
const EVENT_BEAT_OMEGA ; must be here const EVENT_BEAT_OMEGA ; must be here
const EVENT_SILPH_CO_11_UNLOCKED_DOOR const EVENT_SILPH_CO_11_UNLOCKED_DOOR
const_skip 2 const EVENT_GOT_CANDY_JAR
const EVENT_BEAT_CHIEF const EVENT_BEAT_CHIEF
const EVENT_GOT_MASTER_BALL const EVENT_GOT_MASTER_BALL
const_skip const_skip

View file

@ -489,7 +489,7 @@ BirdKeeperData:
ChiefData: ChiefData:
; New - this will be used in the Silph Gauntlet ; New - this will be used in the Silph Gauntlet
db $FF, 73, MAGNEZONE, 72, LAPRAS, 73, SCIZOR, 73, PORYGON2, 75, PORYGONZ, 77, OMEGA, 0 db $FF, 73, PORYGON2, 72, LAPRAS, 73, SCIZOR, 73, MAGNEZONE, 75, PORYGONZ, 77, OMEGA, 0
ScientistData: ScientistData:
; Unused - this will be used in the Silph Gauntlet ; Unused - this will be used in the Silph Gauntlet

View file

@ -6965,7 +6965,7 @@ _LoadTrainerPic:
and a and a
jr nz, .useRed jr nz, .useRed
ld a, [wTrainerClass] ld a, [wTrainerClass]
cp YUJIROU ; first trainer class in "Pics 10" - Rangi's code to load more trainer pics cp LANCE ; first trainer class in "Pics 10" - Rangi's code to load more trainer pics
ld a, Bank("Pics 10") ld a, Bank("Pics 10")
jr nc, .loadSprite jr nc, .loadSprite
ld a, Bank("Pics 6") ld a, Bank("Pics 6")

View file

@ -346,7 +346,7 @@ BirdKeeperPic:: INCBIN "gfx/trainers/birdkeeper.pic"
BlackbeltPic:: INCBIN "gfx/trainers/blackbelt.pic" BlackbeltPic:: INCBIN "gfx/trainers/blackbelt.pic"
Rival1Pic:: INCBIN "gfx/trainers/rival1.pic" Rival1Pic:: INCBIN "gfx/trainers/rival1.pic"
ProfOakPic:: INCBIN "gfx/trainers/prof.oak.pic" ProfOakPic:: INCBIN "gfx/trainers/prof.oak.pic"
ChiefPic:: ChiefPic:: INCBIN "gfx/trainers/chief.pic"
ScientistPic:: INCBIN "gfx/trainers/scientist.pic" ScientistPic:: INCBIN "gfx/trainers/scientist.pic"
GiovanniPic:: INCBIN "gfx/trainers/giovanni.pic" GiovanniPic:: INCBIN "gfx/trainers/giovanni.pic"
RocketPic:: INCBIN "gfx/trainers/rocket.pic" RocketPic:: INCBIN "gfx/trainers/rocket.pic"
@ -366,7 +366,6 @@ Rival3Pic:: INCBIN "gfx/trainers/rival3.pic"
LoreleiPic:: INCBIN "gfx/trainers/lorelei.pic" LoreleiPic:: INCBIN "gfx/trainers/lorelei.pic"
ChannelerPic:: INCBIN "gfx/trainers/channeler.pic" ChannelerPic:: INCBIN "gfx/trainers/channeler.pic"
AgathaPic:: INCBIN "gfx/trainers/agatha.pic" AgathaPic:: INCBIN "gfx/trainers/agatha.pic"
LancePic:: INCBIN "gfx/trainers/lance.pic"
SECTION "Pics 7", ROMX SECTION "Pics 7", ROMX
@ -588,6 +587,7 @@ TaurosPAPicBack:: INCBIN "gfx/pokemon/back/taurospaquab.pic"
TaurosPBPicFront:: INCBIN "gfx/pokemon/front/taurospblaze.pic" TaurosPBPicFront:: INCBIN "gfx/pokemon/front/taurospblaze.pic"
TaurosPBPicBack:: INCBIN "gfx/pokemon/back/taurospblazeb.pic" TaurosPBPicBack:: INCBIN "gfx/pokemon/back/taurospblazeb.pic"
LancePic:: INCBIN "gfx/trainers/lance.pic"
YujirouPic:: INCBIN "gfx/trainers/yujirou.pic" YujirouPic:: INCBIN "gfx/trainers/yujirou.pic"
StudentPic:: INCBIN "gfx/trainers/student.pic" StudentPic:: INCBIN "gfx/trainers/student.pic"
FirefighterPic:: INCBIN "gfx/trainers/firefighter.pic" FirefighterPic:: INCBIN "gfx/trainers/firefighter.pic"

View file

@ -17,8 +17,9 @@ SilphGauntlet7F_ScriptPointers:
dw ChiefScript1 dw ChiefScript1
dw ChiefScript2 dw ChiefScript2
dw ChiefScript3 dw ChiefScript3
dw ChiefScript10
ChiefScript0: ChiefScript0: ; this is used in the champion script but it doesn't seem to be needed here.
ret ret
ChiefScript1: ChiefScript1:
@ -47,28 +48,12 @@ ChiefScript2:
ld [wJoyIgnore], a ld [wJoyIgnore], a
ld hl, wOptions ld hl, wOptions
res 7, [hl] ; Turn on battle animations like with Blue res 7, [hl] ; Turn on battle animations like with Blue
ld a, $1 ;ld a, $1
ldh [hSpriteIndexOrTextID], a ;ldh [hSpriteIndexOrTextID], a
call DisplayTextID ;call DisplayTextID
call Delay3
ld hl, wd72d
set 6, [hl]
set 7, [hl]
ld hl, ChiefDefeatedText
ld de, ChiefVictoryText
call SaveEndBattleTextPointers
ld a, OPP_CHIEF ld hl, ChiefText1
ld [wCurOpponent], a call PrintText
ld a, 1
ld [wTrainerNo], a
ld [wIsTrainerBattle], a
ld a, $1
xor a
ldh [hJoyHeld], a
ld a, $3
ld [wSilphGauntlet7FCurScript], a
ret ret
ChiefScript3: ChiefScript3:
@ -83,16 +68,64 @@ ChiefScript3:
ld [wJoyIgnore], a ld [wJoyIgnore], a
ld a, $1 ld a, $1
ldh [hSpriteIndexOrTextID], a ldh [hSpriteIndexOrTextID], a
call GaryScript_760c8 call ChiefScript_That_Seems_Needed
ld a, $1 ld a, $1
ldh [hSpriteIndex], a ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF call SetSpriteMovementBytesToFF
ld a, $4 ld a, $4
ld [wSilphGauntlet7FCurScript], a ld [wSilphGauntlet7FCurScript], a
jp TextScriptEnd
ChiefScript10:
ld a, [wSimulatedJoypadStatesIndex]
and a
ret nz
xor a
ld [wJoyIgnore], a
ld a, $0
ld [wChampionsRoomCurScript], a
ret
ChiefScript_That_Seems_Needed:
ld a, $f0
ld [wJoyIgnore], a
call DisplayTextID
ld a, $ff
ld [wJoyIgnore], a
ret ret
SilphGauntlet7F_TextPointers: SilphGauntlet7F_TextPointers:
dw ChiefMonologue dw ChiefText1
dw ChiefText2
ChiefText1:
text_asm
CheckEvent EVENT_BEAT_CHIEF
ld hl, ChiefAfterBattleText
jr z, .printText
ld hl, ChiefMonologue
.printText
call PrintText
ld c, BANK(Music_MeetEvilTrainer)
ld a, MUSIC_MEET_EVIL_TRAINER
call PlayMusic
call Delay3
ld hl, wd72d
set 6, [hl]
set 7, [hl]
ld a, OPP_CHIEF
ld [wCurOpponent], a
ld a, 1
ld [wTrainerNo], a
ld [wIsTrainerBattle], a
ld a, $1
ld [wSilphGauntlet7FCurScript], a
ld hl, ChiefDefeatedText
ld de, ChiefVictoryText
call SaveEndBattleTextPointers
jp TextScriptEnd
ChiefMonologue: ChiefMonologue:
text_far _ChiefMonologue text_far _ChiefMonologue
@ -110,4 +143,44 @@ ChiefAfterBattleText:
text_far _ChiefAfterBattleText text_far _ChiefAfterBattleText
text_end text_end
ChiefText2:
text_asm
CheckEvent EVENT_GOT_CANDY_JAR
jr nz, .got_item
ld hl, CandyJarPreReceiveText
call PrintText
lb bc, CANDY_JAR, 1
call GiveItem
jr nc, .bag_full
ld hl, ReceivedCandyJarText
call PrintText
SetEvent EVENT_GOT_CANDY_JAR
jr .done
.bag_full
ld hl, CandyJarNoRoomText
call PrintText
jr .done
.got_item
ld hl, CandyJarExplanationText
call PrintText
.done
jp TextScriptEnd
CandyJarPreReceiveText:
text_far _CandyJarPreReceiveText
text_end
ReceivedCandyJarText:
text_far _ReceivedCandyJarText
sound_get_item_1
text_end
CandyJarExplanationText:
text_far _CandyJarExplanationText
text_end
CandyJarNoRoomText:
text_far _CandyJarNoRoomText
text_end
text_end text_end

View file

@ -47,14 +47,16 @@ _ChiefAfterBattleText::
cont "down GIOVANNI has" cont "down GIOVANNI has"
cont "to be stronger" cont "to be stronger"
cont "than me. There is" cont "than me. There is"
cont "no product of mine" cont "no product I have"
cont "can trounce you." cont "that can trounce"
cont "you."
para "I wanted to make the" para "I wanted to make"
line "ultimate BALL for a" line "an ultimate BALL"
cont "perfect POKèMON." cont "for a perfect"
cont "#MON."
para "Something we could" para "Something we can"
line "mass produce." line "mass produce."
para "Perhaps it wasn't" para "Perhaps it wasn't"
@ -63,7 +65,46 @@ _ChiefAfterBattleText::
para "Go." para "Go."
para "Otherwise..." para "Otherwise..."
line "MEWTWO's hatred will" line "MEWTWO's hatred"
cont "crush this world." cont "will crush this"
cont "world."
done done
_CandyJarPreReceiveText::
text "I want you to"
line "have this."
done
_ReceivedCandyJarText::
text "<PLAYER> received"
line "@"
text_ram wStringBuffer
text "!@"
text_end
_CandyJarExplanationText::
text "When researching"
line "MEW, GIOVANNI"
cont "discovered one"
cont "more mythical"
cont "#MON."
para "Its name is"
line "MELTAN. It loves"
cont "a certain kind"
cont "of CANDY."
para "Give it this"
line "JAR. It will"
cont "become extremely"
cont "powerful."
done
_CandyJarNoRoomText::
text "Ah, your BAG"
line "is full. I'll"
cont "hold onto this"
cont "for you, then."
done