New funky defensive weapon - Long Barrel

scorch.asm

@@ -358,6 +358,8 @@ SettingEnergies
       sta Energy,x
       sta eXistenZ,x
       sta LASTeXistenZ,x
+	  lda #StandardBarrel	; standard barrel length
+	  sta BarrelLength,x
       ; anything in eXistenZ table means that this tank exist
       ; in the given round
       lda #<1000
@@ -959,14 +961,14 @@ deletePtr = temp
       inw deletePtr
       cpw deletePtr #variablesEnd
     bne @-
-    
+
     mwa #1024 RandBoundaryHigh
     mva #$ff LastWeapon
     sta HowMuchToFall
     mva #1 color
     
-    jsr WeaponCleanup    
-    
+	jsr SetStandardBarrels
+    jsr WeaponCleanup        
     
     mva #>WeaponFont chbas
 
@@ -1023,6 +1025,15 @@ MakeTanksVisible
     rts
 .endp
 ;--------------------------------------------------
+.proc SetStandardBarrels
+    ldx #maxPlayers-1
+	lda #StandardBarrel	; standard barrel length
+@	sta BarrelLength,x
+	dex
+	bpl @-
+	rts
+.endp
+;--------------------------------------------------
 .proc SetPMWidth
     lda #$00
     sta sizep0 ; P0-P3 widths