Opty and PlasmaBlast idea

constants.asm

@@ -564,6 +564,7 @@ weaponsOfDeath  ; weapons used in tank death animations
     dta ind_Dirt_Clod
     dta ind_Dirt_Ball
     dta ind_Ton_of_Dirt
+    ;dta 32  ; plasma blast!
 weaponsOfDeathEnd
 joyToKeyTable
     .by $ff             ;00

variables.asm

@@ -332,7 +332,7 @@ CurrentRoundNr .DS 1
 ;leapfrog
 LeapFrogAngle  .DS 1
 ;laser
-LaserCoordinate .DS 8 ; 2,2,2,2
+LaserCoordinate .DS 4 ; 2,2
 ;----------------------------------------------------
 ; Here go tables with weapons possesed by a given tank
 ; Index in the table means weapon type

weapons.asm

@@ -54,6 +54,7 @@ ExplosionRoutines
     .word punch-1                    ;Baby_Sandhog   ;_29
     .word BFG-1                      ;Buy_me         ;_30
     .word laser-1                    ;Laser          ;_31
+    .word plasmablast-1 ; additional "weapon" only for tanks death
 .endp
 
 .proc BFG
@@ -728,10 +729,10 @@ ToHighFill
     mva #0 ybyte+1
     sta LaserFlag    ; turn on gravity and wind after shot :)
 
-    mwa xdraw LaserCoordinate
-    mwa ydraw LaserCoordinate+2
-    mwa xbyte LaserCoordinate+4
-    mwa ybyte LaserCoordinate+6
+    ;mwa xdraw LaserCoordinate
+    ;mwa ydraw LaserCoordinate+2
+    mwa xbyte LaserCoordinate
+    mwa ybyte LaserCoordinate+2
 
     mva #sfx_lightning sfx_effect
 
@@ -752,19 +753,20 @@ ToHighFill
       and #$01
       eor #$01
       sta color
-        mwa LaserCoordinate xdraw
-        mwa LaserCoordinate+2 ydraw
-        mwa LaserCoordinate+4 xbyte
-        mwa LaserCoordinate+6 ybyte
+        ;mwa LaserCoordinate xdraw
+        ;mwa LaserCoordinate+2 ydraw
+        mwa LaserCoordinate xbyte
+        mwa LaserCoordinate+2 ybyte
         mva #sfx_lightning sfx_effect
       jsr draw
 
     dec yc
     bne @-
 
-    mva #1 color
-    mwa LaserCoordinate xdraw
-    mwa LaserCoordinate+2 ydraw
+    ; at this point color allways = 0
+    inc color ;   set color to 1
+    ;mwa LaserCoordinate xdraw  ; draw does not change xdraw and ydraw
+    ;mwa LaserCoordinate+2 ydraw
     mva #0 HitFlag
     jsr CheckCollisionWithTank
     lda HitFlag
@@ -776,6 +778,29 @@ LaserMisses
     rts
 .endp
 ; -----------------
+.proc plasmablast
+; -----------------
+; idea only ....
+    lda #60
+    sta yc  ;  blink counter 60
+@
+      lda yc
+      and #$01
+      eor #$01
+      sta color
+        mwa xdraw xbyte
+        mwa #0 ybyte
+      jsr draw
+
+    dec yc
+    bne @-
+
+    ; at this point color allways = 0
+    inc color ;   set color to 1
+
+    rts
+.endp
+; -----------------
 .proc xmissile ;
 ; -----------------
     jsr CalculateExplosionRange