diff --git a/constants.asm b/constants.asm index b39a05f..1464cdf 100644 --- a/constants.asm +++ b/constants.asm @@ -564,6 +564,7 @@ weaponsOfDeath ; weapons used in tank death animations dta ind_Dirt_Clod dta ind_Dirt_Ball dta ind_Ton_of_Dirt + ;dta 32 ; plasma blast! weaponsOfDeathEnd joyToKeyTable .by $ff ;00 diff --git a/scorch.xex b/scorch.xex index 7662365..4966cd5 100644 Binary files a/scorch.xex and b/scorch.xex differ diff --git a/variables.asm b/variables.asm index 627fdbe..5d296f9 100644 --- a/variables.asm +++ b/variables.asm @@ -332,7 +332,7 @@ CurrentRoundNr .DS 1 ;leapfrog LeapFrogAngle .DS 1 ;laser -LaserCoordinate .DS 8 ; 2,2,2,2 +LaserCoordinate .DS 4 ; 2,2 ;---------------------------------------------------- ; Here go tables with weapons possesed by a given tank ; Index in the table means weapon type diff --git a/weapons.asm b/weapons.asm index 0cb1968..f0f7e87 100644 --- a/weapons.asm +++ b/weapons.asm @@ -54,6 +54,7 @@ ExplosionRoutines .word punch-1 ;Baby_Sandhog ;_29 .word BFG-1 ;Buy_me ;_30 .word laser-1 ;Laser ;_31 + .word plasmablast-1 ; additional "weapon" only for tanks death .endp .proc BFG @@ -728,10 +729,10 @@ ToHighFill mva #0 ybyte+1 sta LaserFlag ; turn on gravity and wind after shot :) - mwa xdraw LaserCoordinate - mwa ydraw LaserCoordinate+2 - mwa xbyte LaserCoordinate+4 - mwa ybyte LaserCoordinate+6 + ;mwa xdraw LaserCoordinate + ;mwa ydraw LaserCoordinate+2 + mwa xbyte LaserCoordinate + mwa ybyte LaserCoordinate+2 mva #sfx_lightning sfx_effect @@ -752,19 +753,20 @@ ToHighFill and #$01 eor #$01 sta color - mwa LaserCoordinate xdraw - mwa LaserCoordinate+2 ydraw - mwa LaserCoordinate+4 xbyte - mwa LaserCoordinate+6 ybyte + ;mwa LaserCoordinate xdraw + ;mwa LaserCoordinate+2 ydraw + mwa LaserCoordinate xbyte + mwa LaserCoordinate+2 ybyte mva #sfx_lightning sfx_effect jsr draw dec yc bne @- - mva #1 color - mwa LaserCoordinate xdraw - mwa LaserCoordinate+2 ydraw + ; at this point color allways = 0 + inc color ; set color to 1 + ;mwa LaserCoordinate xdraw ; draw does not change xdraw and ydraw + ;mwa LaserCoordinate+2 ydraw mva #0 HitFlag jsr CheckCollisionWithTank lda HitFlag @@ -776,6 +778,29 @@ LaserMisses rts .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 ; ; ----------------- jsr CalculateExplosionRange