Faster status line updates after AI uses defensives

This commit is contained in:
Pecusx
2023-06-25 13:05:26 +02:00
parent 3628cf8be9
commit 3d728340ab
4 changed files with 15 additions and 32 deletions
+15 -32
View File
@@ -242,7 +242,7 @@ LowBatteries
sta ActiveDefenceWeapon,x sta ActiveDefenceWeapon,x
jsr PutTankNr ; and draw tank witch Flag jsr PutTankNr ; and draw tank witch Flag
EnoughEnergy EnoughEnergy
jsr DisplayStatus.DisplayEnergy ; jsr DisplayStatus.DisplayEnergy ; not necessary - status update after othher defensives
rts rts
.endp .endp
; ;
@@ -276,37 +276,9 @@ NoBatteries
; but not allways ; but not allways
randomize 1 3 randomize 1 3
cmp #1 cmp #1
bne NoUseDefensive bne UseBattery.NoBatteries ; nearest RTS
; first check check if any is in use ; now use defensive like Tosser
lda ActiveDefenceWeapon,x jmp TosserDefensives
bne DefensiveInUse
ldy #last_real_defensive+1 ;the last defensive weapon
@
dey
cpy #ind_Hovercraft ;first defensive weapon (White Flag, Battery and Hovercraft - never use)
beq NoUseDefensive
lda (temp),y ; has address of TanksWeaponsTable
beq @-
; decrease in inventory
sec
sbc #1
sta (temp),y ; has address of TanksWeaponsTable
; activate defensive weapon
tya ; number of selectet defensive weapon
sta ActiveDefenceWeapon,x
lda DefensiveEnergy,y
sta ShieldEnergy,x
NoUseDefensive
DefensiveInUse
rts
.endp
;----------------------------------------------
.proc Tosser
jsr UseBatteryOrFlag
; use best defensive :)
jsr TosserDefensives
; Toosser is like Poolshark but allways uses defensives
jmp Poolshark.firstShoot
.endp .endp
;---------------------------------------------- ;----------------------------------------------
.proc TosserDefensives .proc TosserDefensives
@@ -333,9 +305,20 @@ DefensiveInUse
sta ShieldEnergy,x sta ShieldEnergy,x
DefensiveInUse DefensiveInUse
NoUseDefensive NoUseDefensive
DefensiveStatusLine
; update status line
jsr DisplayStatus
rts rts
.endp .endp
;---------------------------------------------- ;----------------------------------------------
.proc Tosser
jsr UseBatteryOrFlag
; use best defensive :)
jsr TosserDefensives
; Toosser is like Poolshark but allways uses defensives
jmp Poolshark.firstShoot
.endp
;----------------------------------------------
.proc Chooser .proc Chooser
; like cyborg but more randomizing force ; like cyborg but more randomizing force
jsr UseBatteryOrFlag jsr UseBatteryOrFlag
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.