Hovercraft works fine at all #52

2026-05-20 22:33:43 +02:00 · 2022-08-21 11:35:18 +02:00
parent 132f2afd67
commit de7bea2fa7
3 changed files with 43 additions and 54 deletions
@@ -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