PlasmaBlast!

This commit is contained in:
Pecusx
2024-11-06 13:34:20 +01:00
parent 590c1f7c9f
commit 53a236afe2
4 changed files with 25 additions and 7 deletions
+1
View File
@@ -639,6 +639,7 @@ MetodOfDeath
bcs MetodOfDeath bcs MetodOfDeath
tay tay
lda weaponsOfDeath,y lda weaponsOfDeath,y
;lda #32 ; plama blast only
jsr ExplosionDirect jsr ExplosionDirect
mva #sfx_silencer sfx_effect mva #sfx_silencer sfx_effect
+1 -1
View File
@@ -41,7 +41,7 @@
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
dta d"1.50" ; number of this build (4 bytes) dta d"1.51" ; number of this build (4 bytes)
.endm .endm
.macro RMTSong .macro RMTSong
BIN
View File
Binary file not shown.
+23 -6
View File
@@ -783,19 +783,36 @@ LaserMisses
; idea only .... ; idea only ....
mva #sfx_plasma_1_2 sfx_effect mva #sfx_plasma_1_2 sfx_effect
mva #0 drawFunction mva #0 drawFunction
lda #60 mva #$04 ExplosionRadius
jmp CalculateExplosionRange
adw ydraw #4
sbw xdraw #4
lda ydraw
lsr
lsr
lsr
sta yc
lda #30
sbc yc
sta yc ; blink counter 60 sta yc ; blink counter 60
@ columnloop
mva #8 fs ;lines counter
linesloop
lda yc lda yc
and #$01 beq @+
eor #$01 lda random
@ and #$01
sta color sta color
mwa xdraw xbyte mwa xdraw xbyte
mwa #0 ybyte mwa #0 ybyte
jsr draw jsr draw
inw xdraw
dec fs
bne linesloop
sbw xdraw #8
dec yc dec yc
bne @- bpl columnloop
; at this point color allways = 0 ; at this point color allways = 0
inc color ; set color to 1 inc color ; set color to 1