Long Schlong gives miraculous power

This commit is contained in:
Pecusx
2023-08-13 11:58:39 +02:00
parent 8db6361652
commit cd5d8748a4
4 changed files with 9 additions and 2 deletions
+8 -1
View File
@@ -435,6 +435,7 @@ HighForce
; jsr MakeLowResDistances ; jsr MakeLowResDistances
lda #202 lda #202
sta temp2 ; max possible energy sta temp2 ; max possible energy
stx temp2+1 ; set target tank to himself (if it doesn't find targets - Long Shlong :) )
lda #0 lda #0
sta tempor2 ; direction of shoot sta tempor2 ; direction of shoot
;ldx TankNr ;ldx TankNr
@@ -446,7 +447,9 @@ loop01
beq skipThisPlayer beq skipThisPlayer
lda eXistenZ,y lda eXistenZ,y
beq skipThisPlayer beq skipThisPlayer
lda BarrelLength,y
cmp #LongBarrel ; if target has Long Schlong do not aim
beq skipThisPlayer
lda skilltable,y lda skilltable,y
beq ItIsHuman beq ItIsHuman
lda PreferHumansFlag lda PreferHumansFlag
@@ -493,6 +496,7 @@ skipThisPlayer
;---------------------------------------------- ;----------------------------------------------
; jsr MakeLowResDistances ; jsr MakeLowResDistances
mva #$ff temp2 ; min possible distance mva #$ff temp2 ; min possible distance
stx temp2+1 ; set target tank to himself (if it doesn't find targets - Long Shlong :) )
mva #0 tempor2 ; direction of shoot mva #0 tempor2 ; direction of shoot
;ldx TankNr ;ldx TankNr
@@ -504,6 +508,9 @@ loop01
beq skipThisPlayer beq skipThisPlayer
lda eXistenZ,y lda eXistenZ,y
beq skipThisPlayer beq skipThisPlayer
lda BarrelLength,y
cmp #LongBarrel ; if target has Long Schlong do not aim
beq skipThisPlayer
lda LowResDistances,x lda LowResDistances,x
cmp LowResDistances,y cmp LowResDistances,y
+1 -1
View File
@@ -26,7 +26,7 @@
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
dta d"1.33" ; number of this build (4 bytes) dta d"1.35" ; number of this build (4 bytes)
.endm .endm
.macro RMTSong .macro RMTSong
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.