Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 06:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

seppuku always kills

Browse Source
This commit is contained in:
pkali
2022-05-08 12:49:47 -04:00
parent e789569058
commit fa6bd51abc
3 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+12 -1
View File
@@ -430,12 +430,13 @@ ShootNow
lda HitFlag ;0 if missed lda HitFlag ;0 if missed
beq missed beq missed
Seppuku
lda #0 lda #0
sta FallDown1 sta FallDown1
sta FallDown2 sta FallDown2
jsr Explosion jsr Explosion
continueMainRoundLoopAfterSeppuku
;here we clear offensive text (after a shoot) ;here we clear offensive text (after a shoot)
ldy TankNr ldy TankNr
mva #0 plot4x4color mva #0 plot4x4color
@@ -562,6 +563,16 @@ NoPlayerNoDeath
; if processor is here it means there are no more explosions ; if processor is here it means there are no more explosions
jmp MainRoundLoop jmp MainRoundLoop
.endp .endp
;---------------------------------
.proc Seppuku
lda #0
sta FallDown1
sta FallDown2
lda #1
jsr ExplosionDirect
jmp continueMainRoundLoopAfterSeppuku
.endp
;--------------------------------- ;---------------------------------
PlayerXdeath .proc PlayerXdeath .proc
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+1 -1
View File
@@ -2,7 +2,7 @@
.IF *>0 ;this is a trick that prevents compiling this file alone .IF *>0 ;this is a trick that prevents compiling this file alone
;-------------------------------------------------- ;--------------------------------------------------
Explosion .proc .proc Explosion
;-------------------------------------------------- ;--------------------------------------------------
;cleanup of the soil fall down ranges (left and right) ;cleanup of the soil fall down ranges (left and right)
mwa #screenwidth RangeLeft mwa #screenwidth RangeLeft