Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opty

Browse Source
This commit is contained in:
Pecusx
2023-08-19 15:33:20 +02:00
parent ffdb2c7063
commit 1083cf24bf
3 changed files with 29 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+29 -21
View File
@@ -77,35 +77,37 @@ CheckNextTankBFG
.endp .endp
; ------------------------ ; ------------------------
.proc babymissile .proc babymissile
mva #11 ExplosionRadius lda #11 ; ExplosionRadius
GoBabyMissileSFX GoBabyMissileSFX
sta ExplosionRadius
mva #sfx_baby_missile sfx_effect mva #sfx_baby_missile sfx_effect
GoXmissile GoXmissile
jmp xmissile jmp xmissile
.endp .endp
; ------------------------ ; ------------------------
.proc missile ; .proc missile ;
mva #17 ExplosionRadius lda #17 ; ExplosionRadius
bne babymissile.GoBabyMissileSFX bne babymissile.GoBabyMissileSFX
; jmp xmissile ; jmp xmissile
.endp .endp
; ------------------------ ; ------------------------
.proc babynuke .proc babynuke
mva #25 ExplosionRadius lda #25 ; ExplosionRadius
GoBabyNukeSFX GoBabyNukeSFX
sta ExplosionRadius
mva #sfx_nuke sfx_effect ; allways <>0 mva #sfx_nuke sfx_effect ; allways <>0
bne babymissile.GoXmissile bne babymissile.GoXmissile
; jmp xmissile ; jmp xmissile
.endp .endp
; ------------------------ ; ------------------------
.proc nuke .proc nuke
mva #30 ExplosionRadius lda #30 ; ExplosionRadius
bne babynuke.GoBabyNukeSFX bne babynuke.GoBabyNukeSFX
; jmp xmissile ; jmp xmissile
.endp .endp
; ------------------------ ; ------------------------
.proc leapfrog .proc leapfrog
mva #17 ExplosionRadius lda #17 ; ExplosionRadius
; mva #sfx_baby_missile sfx_effect ; mva #sfx_baby_missile sfx_effect
; jsr xmissile ; jsr xmissile
jsr babymissile.GoBabyMissileSFX jsr babymissile.GoBabyMissileSFX
@@ -237,16 +239,17 @@ GoXmissileWithSaveXYdraw
.endp .endp
; ------------------------ ; ------------------------
.proc napalm .proc napalm
mva #0 HotNapalmFlag ; in this weapon - flag: 0 - napalm, 1 - hotnapalm lda #0 ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
beq xnapalm beq xnapalm
.endp .endp
; ------------------------ ; ------------------------
.proc hotnapalm .proc hotnapalm
mva #1 HotNapalmFlag ; in this weapon - flag: 0 - napalm, 1 - hotnapalm lda #1 ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
; jmp xnapalm ; jmp xnapalm
.endp .endp
; ------------------------ ; ------------------------
.proc xnapalm .proc xnapalm
sta HotNapalmFlag
mva #sfx_napalm sfx_effect mva #sfx_napalm sfx_effect
mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width) mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width)
jsr CalculateExplosionRange jsr CalculateExplosionRange
@@ -344,40 +347,43 @@ EndNurnedCheckLoop
.endp .endp
; ------------------------ ; ------------------------
.proc babyroller .proc babyroller
mva #11 ExplosionRadius lda #11 ; ExplosionRadius
GoRoller GoRoller
sta ExplosionRadius
jmp xroller jmp xroller
.endp .endp
; ------------------------ ; ------------------------
.proc roller ; .proc roller ;
mva #21 ExplosionRadius lda #21 ; ExplosionRadius
bne babyroller.GoRoller ; 1 byte saved bne babyroller.GoRoller ; 1 byte saved
; jmp xroller ; jmp xroller
.endp .endp
; ------------------------ ; ------------------------
.proc heavyroller .proc heavyroller
mva #30 ExplosionRadius lda #30 ; ExplosionRadius
bne babyroller.GoRoller ; 1 byte saved bne babyroller.GoRoller ; 1 byte saved
; jmp xroller ; jmp xroller
.endp .endp
; ------------------------ ; ------------------------
.proc riotbomb .proc riotbomb
mva #17 ExplosionRadius lda #17 ; ExplosionRadius
GoRiotBomb GoRiotBomb
sta ExplosionRadius
jsr CalculateExplosionRange jsr CalculateExplosionRange
jmp xriotbomb jmp xriotbomb
.endp .endp
; ------------------------ ; ------------------------
.proc heavyriotbomb .proc heavyriotbomb
mva #29 ExplosionRadius lda #29 ; ExplosionRadius
bne riotbomb.GoRiotBomb ; 4 bytes saved - optimization :) bne riotbomb.GoRiotBomb ; 4 bytes saved - optimization :)
; jsr CalculateExplosionRange ; jsr CalculateExplosionRange
; jmp xriotbomb ; jmp xriotbomb
.endp .endp
; ------------------------ ; ------------------------
.proc babydigger .proc babydigger
mva #1 diggery ; how many branches (-1) lda #1 ; diggery ; how many branches (-1)
GoBabydiggerSFX GoBabydiggerSFX
sta diggery
mva #sfx_digger sfx_effect mva #sfx_digger sfx_effect
mva #0 sandhogflag mva #0 sandhogflag
mva #13 DigLong mva #13 DigLong
@@ -385,28 +391,29 @@ GoBabydiggerSFX
.endp .endp
; ------------------------ ; ------------------------
.proc digger ; .proc digger ;
mva #3 diggery ; how many branches (-1) lda #3 ; diggery ; how many branches (-1)
bne babydigger.GoBabydiggerSFX bne babydigger.GoBabydiggerSFX
.endp .endp
; ------------------------ ; ------------------------
.proc heavydigger .proc heavydigger
mva #7 diggery ; how many branches (-1) lda #7 ; diggery ; how many branches (-1)
bne babydigger.GoBabydiggerSFX bne babydigger.GoBabydiggerSFX
.endp .endp
; ------------------------ ; ------------------------
.proc babysandhog .proc babysandhog
mva #1 diggery ; how many branches (-1) lda #1 ; diggery ; how many branches (-1)
bne heavysandhog.GoHeavysandhogSFX bne heavysandhog.GoHeavysandhogSFX
.endp .endp
; ------------------------ ; ------------------------
.proc sandhog .proc sandhog
mva #3 diggery ; how many branches (-1) lda #3 ; diggery ; how many branches (-1)
bne heavysandhog.GoHeavysandhogSFX bne heavysandhog.GoHeavysandhogSFX
.endp .endp
; ------------------------ ; ------------------------
.proc heavysandhog .proc heavysandhog
mva #5 diggery ; how many branches (-1) lda #5 ; diggery ; how many branches (-1)
GoHeavysandhogSFX GoHeavysandhogSFX
sta diggery
mva #sfx_sandhog sfx_effect mva #sfx_sandhog sfx_effect
mva #char_sandhog_offset sandhogflag mva #char_sandhog_offset sandhogflag
mva #13 DigLong mva #13 DigLong
@@ -522,22 +529,23 @@ DiggerCharacter
.endp .endp
; ------------------------ ; ------------------------
.proc dirtclod .proc dirtclod
mva #12 ExplosionRadius lda #12 ; ExplosionRadius
bne xdirt bne xdirt
.endp .endp
; ------------------------ ; ------------------------
.proc dirtball .proc dirtball
mva #22 ExplosionRadius lda #22 ; ExplosionRadius
bne xdirt bne xdirt
.endp .endp
; ------------------------ ; ------------------------
.proc tonofdirt .proc tonofdirt
mva #31 ExplosionRadius lda #31 ; ExplosionRadius
; jmp xdirt ; jmp xdirt
.endp .endp
; ----------------- ; -----------------
.proc xdirt ; .proc xdirt ;
; ----------------- ; -----------------
sta ExplosionRadius
jsr CalculateExplosionRange jsr CalculateExplosionRange
mva #sfx_dirt_charge sfx_effect mva #sfx_dirt_charge sfx_effect
lda #1 lda #1