More optimizarions

This commit is contained in:
Pecusx
2023-01-25 14:44:55 +01:00
parent 793d494fc5
commit 70788e772e
5 changed files with 11 additions and 13 deletions
+1 -4
View File
@@ -545,10 +545,7 @@ skipThisPlayer
sta RandBoundaryHigh+1 sta RandBoundaryHigh+1
jsr RandomizeForce jsr RandomizeForce
RepeatAim RepeatAim
lda ForceTableL,x jsr Table2Force
sta Force
lda ForceTableH,x
sta Force+1
; wind correction 90+(wind/8) ; wind correction 90+(wind/8)
mwa Wind temp2 mwa Wind temp2
:7 lsrw temp2 :7 lsrw temp2
+8
View File
@@ -1631,6 +1631,14 @@ LimitForce
.endp .endp
;---------------------------------------------- ;----------------------------------------------
.proc Table2Force
lda ForceTableL,x
sta Force
lda ForceTableH,x
sta Force+1
rts
.endp
;----------------------------------------------
.proc MoveBarrelToNewPosition .proc MoveBarrelToNewPosition
mva #1 Erase mva #1 Erase
jsr DrawTankNr.BarrelChange jsr DrawTankNr.BarrelChange
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+2 -9
View File
@@ -1473,10 +1473,7 @@ AfterOffensiveText
mva #$ff LaserFlag ; $ff - Laser mva #$ff LaserFlag ; $ff - Laser
bne AfterStrongShoot bne AfterStrongShoot
NotStrongShoot NotStrongShoot
lda ForceTableL,x jsr Table2Force
sta Force
lda ForceTableH,x
sta Force+1
bit TestFlightFlag bit TestFlightFlag
bmi AfterStrongShoot bmi AfterStrongShoot
mva #sfx_shoot sfx_effect mva #sfx_shoot sfx_effect
@@ -1968,11 +1965,7 @@ BouncyCastle
; ---------------- get fire parameters again ; ---------------- get fire parameters again
ldx TankNr ldx TankNr
lda ActiveWeapon,x jsr Table2Force
lda ForceTableL,x
sta Force
lda ForceTableH,x
sta Force+1
lda AngleTable,x lda AngleTable,x
sta Angle sta Angle