starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-20 22:34:21 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

New weapon - Auto Defense! And AI bugfixes

Browse Source
This commit is contained in:
Pecusx
2022-11-09 10:32:50 +01:00
parent a7493e1dcb
commit 3f74494bed
9 changed files with 74 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ai.asm
+21 -14
View File
@@ -44,6 +44,7 @@ loop
; common values used in AI routines
; address of weapons table (for future use)
WepTableToTemp
lda TanksWeaponsTableL,x
sta temp
lda TanksWeaponsTableH,x
@@ -210,6 +211,19 @@ AngleTable ; 16 bytes ;ba w $348b L$3350
.endp
;----------------------------------------------
.proc UseBatteryOrFlag
jsr UseBattery ; as subroutine for reuse in AutoDefense
; if very low energy and no battery then use White Flag
lda Energy,x
cmp #5
bcs EnoughEnergy
; lower than 5 units - white flag
lda #ind_White_Flag_____
sta ActiveDefenceWeapon,x
EnoughEnergy
rts
.endp
;
.proc UseBattery
; if low energy ten use battery
lda Energy,x
cmp #30
@@ -219,20 +233,13 @@ AngleTable ; 16 bytes ;ba w $348b L$3350
lda (temp),y ; has address of TanksWeaponsTable
beq NoBatteries
; we have batteries - use one
clc
sec
sbc #1
sta (temp),y
lda #99
sta Energy,x
NoBatteries
; if very low energy and no battery then use White Flag
lda Energy,x
cmp #5
bcs EnoughEnergy
; lower than 5 units - white flag
lda #ind_White_Flag_____
sta ActiveDefenceWeapon,x
EnoughEnergy
NoBatteries
rts
.endp
;----------------------------------------------
@@ -245,7 +252,7 @@ EnoughEnergy
; first check check if any is in use
lda ActiveDefenceWeapon,x
bne DefensiveInUse
ldy #last_defensive_____+1 ;the last defensive weapon
ldy #last_real_defensive+1 ;the last defensive weapon
@
dey
cpy #ind_Battery________ ;first defensive weapon (White Flag and Battery - never use)
@@ -253,7 +260,7 @@ EnoughEnergy
lda (temp),y ; has address of TanksWeaponsTable
beq @-
; decrease in inventory
clc
sec
sbc #1
sta (temp),y ; has address of TanksWeaponsTable
; activate defensive weapon
@@ -280,7 +287,7 @@ DefensiveInUse
; first check check if any is in use
lda ActiveDefenceWeapon,x
bne DefensiveInUse
ldy #last_defensive_____+1 ;the last defensive weapon
ldy #last_real_defensive+1 ;the last defensive weapon
@
dey
cpy #ind_Battery________ ;first defensive weapon (White Flag and Battery - never use)
@@ -288,7 +295,7 @@ DefensiveInUse
lda (temp),y ; has address of TanksWeaponsTable
beq @-
; decrease in inventory
clc
sec
sbc #1
sta (temp),y ; has address of TanksWeaponsTable
; activate defensive weapon
@@ -575,7 +582,7 @@ skipThisPlayer
asl
tay
; force correction - lower tank Y position - higher possible force
clc
sec
lda #screenheight
sbc Ytankstable,x
sta temp2