AI aiming with barrel animation and sound

ai.asm

@@ -780,6 +780,11 @@ SetStartAndFlight    ; set start point (virtual barrel end :) ) and make test fl
     sta ytraj+1
     mva #0 ytraj+2
     mva NewAngle Angle
+    lda CONSOL
+    and #%00000001 ; START KEY
+    beq @speedup
+    jsr MoveBarrelToNewPosition
+@speedup
     jsr Flight
     ldx TankNr
     rts

game.asm

@@ -1027,7 +1027,10 @@ MoveBarrel
     ldx TankNr
     ;
     mva #1 Erase
+    bit TestFlightFlag
+    bmi AIaim
     jsr WaitOneFrame
+AIaim
     jsr DrawTankNr.BarrelChange
     mva #0 Erase
     lda NewAngle