AI optimisations

ai.asm

@@ -609,11 +609,16 @@ skipThisPlayer
 	lda OptionsTable+2	; selected gravity
 	asl 
 	tay
+	clc
 	lda AIForceTable,y
-	sta ForceTableL,x
+	sta RandBoundaryLow
+	adc #60
+	sta RandBoundaryHigh
 	lda AIForceTable+1,y
-	sta ForceTableH,x
-    jsr RandomizeForce.LimitForce
+	sta RandBoundaryLow+1
+	adc #0
+	sta RandBoundaryHigh+1
+    jsr RandomizeForce
 	lda ForceTableL,x
 	sta Force
 	lda ForceTableH,x

constants.asm

@@ -20,7 +20,7 @@ CashOptionH
 GravityTable   .by 10,20,25,30,40
 MaxWindTable   .by 5,20,40,70,99
 RoundsTable    .by 10,20,30,40,50
-AIForceTable	.wo 400,500,650,750,850	; starting shoot forces for different gravity
+AIForceTable	.wo 375,470,630,720,820	; starting shoot forces for different gravity
 flyDelayTable  .by 255,150,75,35,1
 seppukuTable   .by 255, 45,25,15,9
 mountainsDeltaTableH .by 0,1,3,5,7

scorch.asm

@@ -744,16 +744,16 @@ ldahashzero
 NotNegativeEnergy
     sta Energy,x
     ;now increase the gain of the shooting tank
-    phx
-    ldx TankNr
+ ;   phx
+    ldy TankNr
     clc
-    lda gainL,x
+    lda gainL,y
     adc EnergyDecrease
-    sta gainL,x
-    lda gainH,x
+    sta gainL,y
+    lda gainH,y
     adc #$00
-    sta gainH,x
-    plx
+    sta gainH,y
+ ;   plx
     rts
 .endp
 

weapons.asm

@@ -764,8 +764,8 @@ ExplosionLoop2
     ;calculation
 
     ldx NumberOfPlayers
+	dex
 DistanceCheckLoop
-    dex
     lda eXistenZ,x
     jeq EndOfDistanceCheckLoop
     ;here the tank exist
@@ -838,8 +838,8 @@ UseShield
 	sta TankNr	; restore TankNr value :)
 TankIsNotWithinTheRange
 EndOfDistanceCheckLoop
-    txa
-    jne DistanceCheckLoop
+    dex
+    jpl DistanceCheckLoop
     mva #sfx_silencer sfx_effect
     rts
 .endp