Final Shields fix

Now shields are draw ONLY in DrawTankNr proc.

grafproc.asm

@@ -723,6 +723,11 @@ ZeroesToGo6
 
 NoPlayerMissile
 
+	ldy #$01
+	lda Erase
+	beq @+
+	dey
+@	sty color
 	; draw defensive weapons like shield ( tank number in X )
 	; in xdraw, ydraw we have coordinates left LOWER corner of Tank char
     ldx TankNr
@@ -803,11 +808,6 @@ tankflash_loop
 ; 
 ; this proc change xdraw, ydraw  and temp!
 ;--------------------------------------------------
-	mva #1 color
-	lda erase
-	beq ShieldVisible
-	dec color
-ShieldVisible
 	sbw xdraw #$03		; 3 pixels to left
 	; draw left vertical line of shield ( | )
 	mva #6 temp			; strange !!!

weapons.asm

@@ -767,7 +767,7 @@ ExplosionLoop2
 DistanceCheckLoop
     dex
     lda eXistenZ,x
-    beq EndOfDistanceCheckLoop
+    jeq EndOfDistanceCheckLoop
     ;here the tank exist
     lda XtankstableL,x
     clc
@@ -825,10 +825,17 @@ ShieldCoveredTank
 ShieldEnergy0	; deactivate if no energy. it's like use one hit shield :) 
 UseShield
 	mva #1 Erase
-	phx
-	jsr DrawTankShield
-	plx
-	mva #0 ActiveDefenceWeapon,x	; deactivate defense weapons
+	lda TankNr
+	pha			; store TankNr
+	stx TankNr	; store X in TankNr :)
+	jsr DrawTankNr	; now erase tank with shield (to erase shield)
+	lda #0
+	sta ActiveDefenceWeapon,x	; deactivate defense weapons
+	sta Erase
+	jsr DrawTankNr	; draw tank without shield
+	ldx TankNr	; restore X value :)
+	pla
+	sta TankNr	; restore TankNr value :)
 TankIsNotWithinTheRange
 EndOfDistanceCheckLoop
     txa
@@ -1900,19 +1907,23 @@ AutoDefence
 	; now run defensive-aggressive weapon - Auto Defence!
 	sbb #180 LeapFrogAngle Angle	; swap angle (LeapFrogAngle - because we have strored angle in this variable)
 	lsrw Force	; Force = Force / 2 - becouse earlier we multiplied by 2
-	mva #1 Erase		; now erase shield 
-	phx
-	jsr DrawTankShield
-	jsr DrawTankShieldHorns
-	plx
-	lda #$00
-	sta Erase
-	sta ActiveDefenceWeapon,x	; deactivate used Auto Defence
+	mva #1 Erase
+	lda TankNr
+	pha			; store TankNr
+	stx TankNr	; store X in TankNr :)
+	jsr DrawTankNr	; now erase tank with shield (to erase shield)
+	lda #0
+	sta ActiveDefenceWeapon,x	; deactivate used auto defense weapon
 	sta ShieldEnergy,x
     sta xtraj		; prepare coordinates
     sta ytraj
 	sta xtraj+2
 	sta ytraj+2
+	sta Erase
+	jsr DrawTankNr	; draw tank without shield
+	ldx TankNr	; restore X value :)
+	pla
+	sta TankNr	; restore TankNr value :)
 	mwa XHit xtraj+1
 	sbw YHit #5 ytraj+1
 	mva #1 color