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

Opty and PlasmaBlast idea

Browse Source
This commit is contained in:
Pecusx
2024-11-05 21:39:20 +01:00
parent 990931176e
commit 3341773dcd
4 changed files with 38 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
constants.asm
+1
View File
@@ -564,6 +564,7 @@ weaponsOfDeath ; weapons used in tank death animations
dta ind_Dirt_Clod dta ind_Dirt_Clod
dta ind_Dirt_Ball dta ind_Dirt_Ball
dta ind_Ton_of_Dirt dta ind_Ton_of_Dirt
;dta 32 ; plasma blast!
weaponsOfDeathEnd weaponsOfDeathEnd
joyToKeyTable joyToKeyTable
.by $ff ;00 .by $ff ;00
scorch.xex
BIN
View File
Binary file not shown.
variables.asm
+1 -1
View File
@@ -332,7 +332,7 @@ CurrentRoundNr .DS 1
;leapfrog ;leapfrog
LeapFrogAngle .DS 1 LeapFrogAngle .DS 1
;laser ;laser
LaserCoordinate .DS 8 ; 2,2,2,2 LaserCoordinate .DS 4 ; 2,2
;---------------------------------------------------- ;----------------------------------------------------
; Here go tables with weapons possesed by a given tank ; Here go tables with weapons possesed by a given tank
; Index in the table means weapon type ; Index in the table means weapon type
weapons.asm
+36 -11
View File
@@ -54,6 +54,7 @@ ExplosionRoutines
.word punch-1 ;Baby_Sandhog ;_29 .word punch-1 ;Baby_Sandhog ;_29
.word BFG-1 ;Buy_me ;_30 .word BFG-1 ;Buy_me ;_30
.word laser-1 ;Laser ;_31 .word laser-1 ;Laser ;_31
.word plasmablast-1 ; additional "weapon" only for tanks death
.endp .endp
.proc BFG .proc BFG
@@ -728,10 +729,10 @@ ToHighFill
mva #0 ybyte+1 mva #0 ybyte+1
sta LaserFlag ; turn on gravity and wind after shot :) sta LaserFlag ; turn on gravity and wind after shot :)
mwa xdraw LaserCoordinate ;mwa xdraw LaserCoordinate
mwa ydraw LaserCoordinate+2 ;mwa ydraw LaserCoordinate+2
mwa xbyte LaserCoordinate+4 mwa xbyte LaserCoordinate
mwa ybyte LaserCoordinate+6 mwa ybyte LaserCoordinate+2
mva #sfx_lightning sfx_effect mva #sfx_lightning sfx_effect
@@ -752,19 +753,20 @@ ToHighFill
and #$01 and #$01
eor #$01 eor #$01
sta color sta color
mwa LaserCoordinate xdraw ;mwa LaserCoordinate xdraw
mwa LaserCoordinate+2 ydraw ;mwa LaserCoordinate+2 ydraw
mwa LaserCoordinate+4 xbyte mwa LaserCoordinate xbyte
mwa LaserCoordinate+6 ybyte mwa LaserCoordinate+2 ybyte
mva #sfx_lightning sfx_effect mva #sfx_lightning sfx_effect
jsr draw jsr draw
dec yc dec yc
bne @- bne @-
mva #1 color ; at this point color allways = 0
mwa LaserCoordinate xdraw inc color ; set color to 1
mwa LaserCoordinate+2 ydraw ;mwa LaserCoordinate xdraw ; draw does not change xdraw and ydraw
;mwa LaserCoordinate+2 ydraw
mva #0 HitFlag mva #0 HitFlag
jsr CheckCollisionWithTank jsr CheckCollisionWithTank
lda HitFlag lda HitFlag
@@ -776,6 +778,29 @@ LaserMisses
rts rts
.endp .endp
; ----------------- ; -----------------
.proc plasmablast
; -----------------
; idea only ....
lda #60
sta yc ; blink counter 60
@
lda yc
and #$01
eor #$01
sta color
mwa xdraw xbyte
mwa #0 ybyte
jsr draw
dec yc
bne @-
; at this point color allways = 0
inc color ; set color to 1
rts
.endp
; -----------------
.proc xmissile ; .proc xmissile ;
; ----------------- ; -----------------
jsr CalculateExplosionRange jsr CalculateExplosionRange