thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-16 18:30:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

WIP Battle Tent: win counter

Browse source
This commit is contained in:
Thorn Avery 2023-12-18 19:04:33 +11:00
parent 2a6c2604bd
commit ce2d9ec06c
2 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
ram/wram.asm
View file

@ -2125,7 +2125,7 @@ UNION
; Surely this position will not cause any issues at all.
;battle tent data
wBTOrder:: dw
wBTStreakCnt:: db
wBTCont:: db
wBTClass:: db
wBTDataEnd::
wStringBuffer1:: ; cf5f
@ -2140,6 +2140,7 @@ NEXTU
wChannel7:: channel_struct wChannel7
wChannel8:: channel_struct wChannel8
ENDU
wBTStreakCnt:: db
wObtainedHiddenItemsFlags:: flag_array 112

22
scripts/BattleTent.asm
View file

@ -249,7 +249,7 @@ BattleTent_InitPhase:
call DisplayTextID
ld a, $ff
ld [wJoyIgnore], a
ld a, [wBTStreakCnt] ; 0 = continue, 1 = lost, 2 = exit, FF = initial
ld a, [wBTCont] ; 0 = continue, 1 = lost, 2 = exit, FF = initial
cp 0 ; continue
jr z, .cont
cp $FF ; initial
@ -333,11 +333,17 @@ BattleTent_AfterBattle:
and a
jp nz, .skip ; if not zero, we lost / drew
xor a ; continue battle tent
ld [wBTStreakCnt], a
ld [wBTCont], a
ld a, [wBTStreakCnt]
cp $FF
jr z, .max ; cap out at 255 wins
inc a
.max
ld [wBTStreakCnt], a ; increment win counter
jr .skip2
.skip
ld a, 1 ; lost last match
ld [wBTStreakCnt], a
ld [wBTCont], a
ld a, 8
ld [wBattleTentCurScript], a
ret
@ -350,7 +356,7 @@ BattleTent_Heal:
ld a, [wNPCNumScriptedSteps]
and a
ret nz
ld a, [wBTStreakCnt]
ld a, [wBTCont]
cp 1 ; lost, dont show healing dialogue
jr z, .skip
ld a, 2
@ -569,6 +575,8 @@ BattleTentGuy:
ld hl, BattleTentLetsGo
call PrintText
ld a, $FF ; first battle
ld [wBTCont], a
xor a ; initialise counter
ld [wBTStreakCnt], a
ld a, 1
ld [wBattleTentCurScript], a
@ -579,7 +587,7 @@ BTReward:
BattleTentGuy_After:
db $8
ld a, [wBTStreakCnt]
ld a, [wBTCont]
cp 2 ; voluntarily exited
ld hl, BattleTentLost
jr nz, .skip ; Not Teh Urn BibleThump
@ -615,7 +623,7 @@ BattleTentGuy_After:
; Arguably a better system, but I do wish the counter incremented...
BattleTentGuy2:
db $8
ld a, [wBTStreakCnt] ; The streak counter is still used for message continuity.
ld a, [wBTCont] ; The streak counter is still used for message continuity.
cp $FF ; very first initial battle
jr z, .init
ld hl, BattleTentGuy2_Streak ; The message has been changed appropriately down below.
@ -635,7 +643,7 @@ BattleTentGuy2:
ld hl, BattleTentGuy2_Win
call PrintText
ld a, 2 ; 2 = quit
ld [wBTStreakCnt], a
ld [wBTCont], a
.done
jp TextScriptEnd