starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-21 14:49:46 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

Meteors added :)

Browse Source
This commit is contained in:
Pecusx
2023-09-03 15:47:45 +02:00
parent d716e02e12
commit f701ef3227
8 changed files with 103 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/interrupts.asm
+48
View File
@@ -142,6 +142,54 @@ lab2
jsr RASTERMUSICTRACKER+3 ;1 play
; ------- RMT -------
SkipRMTVBL
; ------ meteors ------ start
bit Mcounter
bpl MeteorOnSky
bit MeteorsFlag
bmi SkipMeteors
; randomize meteor
lda random
and #%11111111
bne SkipMeteors
lda random
sta Mpoint1X
sta Mpoint2X
lda #0
sta Mpoint1X+1
sta Mpoint2X+1
lda random
and #$1f
sta Mpoint1Y
sta Mpoint2Y
mva #10 Mcounter
MeteorOnSky
lda Mpoint1Y
cmp #64
beq NoFirstPlot
sta EplotY
inc Mpoint1Y
mwa Mpoint1X EplotX
inw Mpoint1X
jsr Explot
NoFirstPlot
lda Mcounter
beq @+
dec Mcounter
bpl SkipSecondPlot
@ lda Mpoint2Y
cmp #64
bne GoSecondPlot
mva #$ff Mcounter
bmi SkipMeteors
GoSecondPlot
sta EplotY
inc Mpoint2Y
mwa Mpoint2X EplotX
inw Mpoint2X
jsr Explot
SkipSecondPlot
SkipMeteors
; ------ meteors ------ end
bit ScrollFlag
bpl EndOfCreditsVBI
CreditsVBI