Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Hovercraft opty (11 bytes :) )

Browse Source
This commit is contained in:
Pecusx
2024-02-28 19:20:59 +01:00
parent 29a1561a4a
commit 3ce3539d0e
2 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+8 -10
View File
@@ -985,27 +985,25 @@ ToHighToParachute
; ;
; this proc change xdraw, ydraw and temp! ; this proc change xdraw, ydraw and temp!
;-------------------------------------------------- ;--------------------------------------------------
lda XtankstableL,x
sta xdraw
lda XtankstableH,x
sta xdraw+1
; one pixel under tank ; one pixel under tank
clc clc
lda Ytankstable,x lda Ytankstable,x
adc #1 adc #1
sta ydraw sta ydraw
mva #0 ydraw+1 mva #0 ydraw+1
lda XtankstableL,x ; plot one (first - clear) and 6 random color pixels
sta xdraw mvy #7 temp
lda XtankstableH,x
sta xdraw+1
; clear first pixel under tank ; clear first pixel under tank
mva #0 color bne @pl ; A=0
jsr plot
inw xdraw
; plot 6 random color pixels
mva #6 temp
@ lda Erase @ lda Erase
eor #%00000001 eor #%00000001
and random and random
and #%00000001 and #%00000001
sta color @pl sta color
jsr plot jsr plot
inw xdraw inw xdraw
dec temp dec temp
scorch.xex
BIN
View File
Binary file not shown.