Meteors during flight of bullets.

2026-05-20 22:33:43 +02:00 · 2023-09-04 12:39:56 +02:00
parent fb0a4baaa9
commit 859441ead1
3 changed files with 9 additions and 2 deletions
@@ -400,8 +400,10 @@ ManualShooting
    spl:rts        ; keys Esc or O

 AfterManualShooting
-    mva #$ff MeteorsFlag
-    mva #$00 plot4x4color
+    ldy #$00
+    sty plot4x4color
+    dex
+    sty MeteorsFlag ; $ff
    jsr DisplayTankNameAbove
    ; defensive weapons without flight handling
    ldx TankNr
@@ -444,7 +446,12 @@ ShootNow
    cmp #ind_Punch   ; Punch
    beq WeponNoFlight   ; but with explosion 
    
+    bit MeteorsRound
+    bmi @+
+    mva #0 MeteorsFlag
+@    
    jsr Shoot   ; bullet flight
+    mva #$ff MeteorsFlag

    bit escFlag
    spl:rts        ; keys Esc or O