Hovercraft works fine at all #52

grafproc.asm

@@ -963,6 +963,43 @@ ToHighToParachute
 	rts
 .endp
 ;--------------------------------------------------
+.proc DrawTankEngine
+; X - tank number
+; 
+; this proc change xdraw, ydraw  and temp!
+;--------------------------------------------------
+	; one pixel under tank
+	clc
+	lda Ytankstable,x
+	adc #1
+	sta ydraw
+	mva #0 ydraw+1
+	lda XtankstableL,x
+	sta xdraw
+	lda XtankstableH,x
+	sta xdraw+1
+	; clear first pixel under tank
+	mva #0 color
+	jsr plot
+	inw xdraw
+	; plot 6 random color pixels
+	mva #6 FloatingAlt	; sorry reuse!
+@	lda Erase
+	eor #%00000001
+	and random
+	and #%00000001
+	sta color
+	jsr plot
+	inw xdraw
+	dec FloatingAlt
+	bne @-
+	; clear last pixel under tank
+	mva #0 color
+	jsr plot
+	ldx TankNr
+	rts
+.endp
+;--------------------------------------------------
 .proc TankFalls;
 ;--------------------------------------------------
     lda #0

weapons.asm

@@ -2432,6 +2432,7 @@ InverseScreenByte
     mwa #((ScreenWidth/2)-((hoverFullEnd-hoverFull)*2)) LineXdraw  ; centering
     mva #4 LineYdraw
     jsr TypeLine4x4
+	ldx TankNr
 	
 	; TankNr in X reg.
 	; now animate Up
@@ -2475,7 +2476,7 @@ ReachSky
     mva #4 LineYdraw
     lda #0
     jsr TypeLine4x4.staplot4x4color
-
+	ldx TankNr
 
 	; check keyboard/joy and move tank left/right - code copied from BeforeFire
 ;keyboard reading
@@ -2497,37 +2498,12 @@ KeyboardAndJoyCheck
     mva #4 LineYdraw
     ;lda #0
     jsr TypeLine4x4 ;.staplot4x4color
+	ldx TankNr
 
 	
 notpressed
 	; let's animate "engine"
-	; one pixel under tank
+	jsr DrawTankEngine
-	clc
-	lda Ytankstable,x
-	adc #1
-	sta ydraw
-	mva #0 ydraw+1
-	lda XtankstableL,x
-	sta xdraw
-	lda XtankstableH,x
-	sta xdraw+1
-	; clear first pixel under tank
-	mva #0 color
-	jsr plot
-	inw xdraw
-	; plot 6 random color pixels
-	mva #6 FloatingAlt	; sorry reuse!
-@	lda random
-	and #%00000001
-	sta color
-	jsr plot
-	inw xdraw
-	dec FloatingAlt
-	bne @-
-	; clear last pixel under tank
-	mva #0 color
-	jsr plot
-	ldx TankNr
 	; enimation ends
 	
     lda SKSTAT
@@ -2649,32 +2625,8 @@ TankOnLeftSide
 
 	; clear "engine pixels" under tank
     mva #1 erase
-    jsr drawTankNr
+	jsr DrawTankEngine
-    inc ytanksTable,x
-    mva #0 erase
-    jsr drawTankNr
-    
 
-;	lda XtankstableL,x
-;	sta xdraw
-;	lda XtankstableH,x
-;	sta xdraw+1
-;	clc
-;	lda Ytankstable,x
-;	adc #1
-;	sta ydraw
-;	mva #0 ydraw+1
-;	sta color
-;	; draw  horizontal line 
-;	mva #8 temp
-;@
-;	jsr plot
-;	inw xdraw
-;	dec temp
-;	bne @-
-;	ldx TankNr
-	; first check if we over any tank
-	; Warning! in xdraw wird we have position of floating tank (after DrawTankNr)
 CheckForTanksBelow
 	lda XtankstableL,x
 	sta xdraw
@@ -2758,7 +2710,7 @@ GoDown
     mva #4 LineYdraw
     lda #0
     jsr TypeLine4x4.staplot4x4color
-
+	ldx TankNr
 
 	mwa #mountaintable temp
 	clc