Cyborgs prefer to kill humans :)

This commit is contained in:
Pecusx
2022-08-25 13:18:29 +02:00
parent 07a2585147
commit e70752c12d
3 changed files with 16 additions and 4 deletions
+15 -4
View File
@@ -324,6 +324,7 @@ NoUseDefensive
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$00 PreferHumansFlag
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -364,6 +365,7 @@ HighForce
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$00 PreferHumansFlag
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -403,6 +405,7 @@ HighForce
; use defensives like Tosser ; use defensives like Tosser
jsr TosserDefensives jsr TosserDefensives
; now select best target ; now select best target
mva #$ff PreferHumansFlag
jsr FindBestTarget3 jsr FindBestTarget3
sty TargetTankNr sty TargetTankNr
; aiming ; aiming
@@ -441,7 +444,7 @@ HighForce
; direcion of shoot in A (0 - left, >0 - right) ; direcion of shoot in A (0 - left, >0 - right)
;---------------------------------------------- ;----------------------------------------------
jsr MakeLowResDistances jsr MakeLowResDistances
lda #101 lda #202
sta temp2 ; max possible energy sta temp2 ; max possible energy
lda #0 lda #0
sta tempor2 ; direction of shoot sta tempor2 ; direction of shoot
@@ -454,9 +457,16 @@ loop01
beq skipThisPlayer beq skipThisPlayer
lda eXistenZ,y lda eXistenZ,y
beq skipThisPlayer beq skipThisPlayer
;enemy on the right bit PreferHumansFlag
lda Energy,y bpl NoPreferHumans
lda skilltable,y
beq ItIsHuman
lda #100
ItIsHuman
NoPreferHumans
clc
adc Energy,y ; if robotank energy=energy+100
cmp temp2 ; lowest cmp temp2 ; lowest
bcs lowestIsLower bcs lowestIsLower
sta temp2 sta temp2
@@ -465,6 +475,7 @@ loop01
lda LowResDistances,x lda LowResDistances,x
cmp LowResDistances,y cmp LowResDistances,y
bcs EnemyOnTheLeft bcs EnemyOnTheLeft
; enemy on right
inc tempor2 ; set direction to right inc tempor2 ; set direction to right
EnemyOnTheLeft EnemyOnTheLeft
BIN
View File
Binary file not shown.
+1
View File
@@ -206,6 +206,7 @@ EndOfTheFallFlag .DS 1 ; in case of the infinite fall
;Parachute .DS 1 ; are you insured with parachute? ;Parachute .DS 1 ; are you insured with parachute?
FloatingAlt .DS 1 ; floating tank altitude FloatingAlt .DS 1 ; floating tank altitude
FunkyWallFlag = FloatingAlt ; reuse this variable in different weapon (Funky Bomb)! FunkyWallFlag = FloatingAlt ; reuse this variable in different weapon (Funky Bomb)!
PreferHumansFlag = FloatingAlt ; second reuse in AI Aim proc
;---------------------------------------------------- ;----------------------------------------------------
;Flight ;Flight
;variables for 5 missiles (used for mirv) ;variables for 5 missiles (used for mirv)