Autodefense bug fixed

This commit is contained in:
Pecusx
2023-06-29 13:47:41 +02:00
parent 4e8504b712
commit d60bcac5a0
5 changed files with 19 additions and 10 deletions
+17 -8
View File
@@ -279,12 +279,25 @@ NoBatteries
cmp #1
bne UseBattery.NoBatteries ; nearest RTS
; now use defensive like Tosser
jmp TosserDefensives
;jmp TosserDefensives
.endp
;----------------------------------------------
.proc TosserDefensives
; use best defensive :)
; allways
jsr GetBestDefensive
bcc NoUseDefensive
; and SFX
mva #sfx_auto_defense sfx_effect
ldy #7
jsr PauseYFrames ; wait 14 frames (Defense SFX)
NoUseDefensive
; update status line
jmp DisplayStatus ; jsr/rts
; rts
.endp
;----------------------------------------------
.proc GetBestDefensive
; first check check if any is in use
lda ActiveDefenceWeapon,x
bne DefensiveInUse
@@ -304,15 +317,11 @@ NoBatteries
sta ActiveDefenceWeapon,x
lda DefensiveEnergy,y
sta ShieldEnergy,x
; and SFX
mva #sfx_auto_defense sfx_effect
ldy #7
jsr PauseYFrames ; wait 14 frames (Defense SFX)
sec
rts
DefensiveInUse
NoUseDefensive
DefensiveStatusLine
; update status line
jsr DisplayStatus
clc
rts
.endp
;----------------------------------------------
+1 -1
View File
@@ -659,7 +659,7 @@ CreditsStart
dta d" "*
dta d"and"^
dta d"Wendell Hicken"^
dta d"for the original Scorched Earth"^
dta d"for original Scorched Earth"^
.IF TARGET = 800
dta d" "*
dta d"Stay tuned for the FujiNet version!"^
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+1 -1
View File
@@ -2547,7 +2547,7 @@ NoWall
; -------------------------------------------------
jsr PrepareAIShoot.WepTableToTemp
jsr UseBattery
jmp TosserDefensives
jmp GetBestDefensive
; rts
.endp
; -------------------------------------------------