More optimizarions

ai.asm

@@ -545,10 +545,7 @@ skipThisPlayer
 	sta RandBoundaryHigh+1
     jsr RandomizeForce
 RepeatAim
-	lda ForceTableL,x
-	sta Force
-	lda ForceTableH,x
-	sta Force+1
+	jsr Table2Force
 	; wind correction 90+(wind/8)
 	mwa Wind temp2
 	:7 lsrw temp2

scorch.asm

@@ -1631,6 +1631,14 @@ LimitForce
 
 .endp
 ;----------------------------------------------
+.proc Table2Force
+	lda ForceTableL,x
+	sta Force
+	lda ForceTableH,x
+	sta Force+1
+	rts
+.endp
+;----------------------------------------------
 .proc MoveBarrelToNewPosition
 	mva #1 Erase
 	jsr DrawTankNr.BarrelChange

weapons.asm

@@ -1473,10 +1473,7 @@ AfterOffensiveText
 	mva #$ff LaserFlag	; $ff - Laser
 	bne AfterStrongShoot
 NotStrongShoot
-    lda ForceTableL,x
-    sta Force
-    lda ForceTableH,x
-    sta Force+1
+	jsr Table2Force
 	bit TestFlightFlag
 	bmi AfterStrongShoot
     mva #sfx_shoot sfx_effect
@@ -1968,11 +1965,7 @@ BouncyCastle
 ; ---------------- get fire parameters again
 
 	ldx TankNr
-	lda ActiveWeapon,x
-    lda ForceTableL,x
-    sta Force
-    lda ForceTableH,x
-    sta Force+1
+	jsr Table2Force
     lda AngleTable,x
     sta Angle