Activate defensives before round

This commit is contained in:
Pecusx
2022-08-14 15:06:54 +02:00
parent d474ba7af8
commit c413837ffd
2 changed files with 20 additions and 17 deletions
BIN
View File
Binary file not shown.
+20 -17
View File
@@ -240,28 +240,31 @@ OptionsYLoop
.endp .endp
;------------------------------------------- ;-------------------------------------------
; call of the purchase screens for each tank ; call of the purchase (and activate) screens for each tank
.proc CallPurchaseForEveryTank .proc CallPurchaseForEveryTank
mva #0 TankNr mva #0 TankNr
sta isInventory sta isInventory
@ @
ldx TankNr ldx TankNr
lda SkillTable,x lda SkillTable,x
beq ManualPurchase beq ManualPurchase
jsr PurchaseAI jsr PurchaseAI ; remember to make ActivateAI :) !!!
jmp AfterManualPurchase jmp AfterManualPurchase
ManualPurchase ManualPurchase
jsr Purchase mva #0 isInventory
bit escFlag jsr Purchase ; purchase weapons
spl:rts bit escFlag
spl:rts
mva #$ff isInventory
jsr Purchase ; activate weapons
bit escFlag
spl:rts
AfterManualPurchase AfterManualPurchase
inc:lda TankNr
inc:lda TankNr cmp NumberOfPlayers
cmp NumberOfPlayers bne @-
bne @- rts
rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------