mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
Display dynamic->static optimizations
This commit is contained in:
+1
-30
@@ -17,7 +17,6 @@
|
||||
pha
|
||||
lda ExplosionRoutines,x
|
||||
pha
|
||||
; inc FallDown2
|
||||
rts
|
||||
ExplosionRoutines
|
||||
.word babymissile-1 ;Baby_Missile___;_00
|
||||
@@ -62,35 +61,30 @@ tracer
|
||||
; ------------------------
|
||||
.proc babymissile
|
||||
mva #sfx_baby_missile sfx_effect
|
||||
; inc FallDown2
|
||||
mva #11 ExplosionRadius
|
||||
jmp xmissile
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc missile ;
|
||||
mva #sfx_baby_missile sfx_effect
|
||||
; inc FallDown2
|
||||
mva #17 ExplosionRadius
|
||||
jmp xmissile
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc babynuke
|
||||
mva #sfx_nuke sfx_effect
|
||||
; inc FallDown2
|
||||
mva #25 ExplosionRadius
|
||||
jmp xmissile
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc nuke
|
||||
mva #sfx_nuke sfx_effect
|
||||
; inc FallDown2
|
||||
mva #30 ExplosionRadius
|
||||
jmp xmissile
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc leapfrog
|
||||
mva #sfx_baby_missile sfx_effect
|
||||
; inc FallDown2
|
||||
mva #17 ExplosionRadius
|
||||
jsr xmissile
|
||||
|
||||
@@ -143,7 +137,6 @@ EndOfLeapping
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc mirv ; the whole mirv is performed by Flight routine
|
||||
; inc FallDown2
|
||||
rts
|
||||
.endp
|
||||
; ------------------------
|
||||
@@ -151,7 +144,6 @@ EndOfLeapping
|
||||
mva #sfx_baby_missile sfx_effect
|
||||
mwa xtraj+1 xtrajfb
|
||||
sbw ytraj+1 #$05 ytrajfb ; funky missiles start point goes 5 pixel UP to prevent multiple explosion at one point if tank is hit (4 pixels tank height + 1)
|
||||
; inc FallDown2
|
||||
;central Explosion
|
||||
mva #21 ExplosionRadius
|
||||
jsr CalculateExplosionRange0
|
||||
@@ -198,7 +190,6 @@ NoWallsInFunky
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc deathshead
|
||||
; inc FallDown2
|
||||
mva #30 ExplosionRadius
|
||||
mva #sfx_nuke sfx_effect
|
||||
SaveDrawXY
|
||||
@@ -250,7 +241,6 @@ NoLowerCircle
|
||||
; ------------------------
|
||||
.proc napalm
|
||||
mva #sfx_napalm sfx_effect
|
||||
; inc FallDown2
|
||||
mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width)
|
||||
jsr CalculateExplosionRange
|
||||
mva #0 ExplosionRadius ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
|
||||
@@ -259,7 +249,6 @@ NoLowerCircle
|
||||
; ------------------------
|
||||
.proc hotnapalm
|
||||
mva #sfx_napalm sfx_effect
|
||||
; inc FallDown2
|
||||
mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width)
|
||||
jsr CalculateExplosionRange
|
||||
mva #1 ExplosionRadius ; in this weapon - flag: 0 - napalm, 1 - hotnapalm
|
||||
@@ -324,7 +313,6 @@ CharOffTheScreen
|
||||
dec magic
|
||||
jpl RepeatNapalm
|
||||
; after napalm
|
||||
; inc FallDown2
|
||||
;now we must check tanks in range
|
||||
ldx NumberOfPlayers
|
||||
dex
|
||||
@@ -372,32 +360,27 @@ EndNurnedCheckLoop
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc babyroller
|
||||
; inc FallDown2
|
||||
mva #11 ExplosionRadius
|
||||
jmp xroller
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc roller ;
|
||||
; inc FallDown2
|
||||
mva #21 ExplosionRadius
|
||||
jmp xroller
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc heavyroller
|
||||
; inc FallDown2
|
||||
mva #30 ExplosionRadius
|
||||
jmp xroller
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc riotbomb
|
||||
; inc FallDown2
|
||||
mva #17 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp xriotbomb
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc heavyriotbomb
|
||||
; inc FallDown2
|
||||
mva #29 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp xriotbomb
|
||||
@@ -406,7 +389,6 @@ EndNurnedCheckLoop
|
||||
.proc babydigger
|
||||
mva #sfx_digger sfx_effect
|
||||
mva #0 sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #1 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
@@ -415,7 +397,6 @@ EndNurnedCheckLoop
|
||||
.proc digger ;
|
||||
mva #sfx_digger sfx_effect
|
||||
mva #0 sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #3 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
@@ -424,7 +405,6 @@ EndNurnedCheckLoop
|
||||
.proc heavydigger
|
||||
mva #sfx_digger sfx_effect
|
||||
mva #0 sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #7 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
@@ -548,7 +528,6 @@ DiggerCharacter
|
||||
.proc babysandhog
|
||||
mva #sfx_sandhog sfx_effect
|
||||
mva #char_sandhog_offset sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #1 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
@@ -557,7 +536,6 @@ DiggerCharacter
|
||||
.proc sandhog
|
||||
mva #sfx_sandhog sfx_effect
|
||||
mva #char_sandhog_offset sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #3 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
@@ -566,35 +544,30 @@ DiggerCharacter
|
||||
.proc heavysandhog
|
||||
mva #sfx_sandhog sfx_effect
|
||||
mva #char_sandhog_offset sandhogflag
|
||||
; inc FallDown2
|
||||
mva #13 DigLong
|
||||
mva #5 diggery ; how many branches (-1)
|
||||
jmp xdigger
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc dirtclod
|
||||
; inc FallDown2
|
||||
mva #12 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp xdirt
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc dirtball
|
||||
; inc FallDown2
|
||||
mva #22 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp xdirt
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc tonofdirt
|
||||
; inc FallDown2
|
||||
mva #31 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp xdirt
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc dirtcharge
|
||||
; inc FallDown2
|
||||
mva #61 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp ofdirt
|
||||
@@ -602,7 +575,6 @@ DiggerCharacter
|
||||
; ------------------------
|
||||
.proc riotcharge
|
||||
mva #sfx_riot_blast sfx_effect
|
||||
; inc FallDown2
|
||||
mva #31 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp cleanDirt
|
||||
@@ -610,7 +582,6 @@ DiggerCharacter
|
||||
; ------------------------
|
||||
.proc riotblast
|
||||
mva #sfx_riot_blast sfx_effect
|
||||
; inc FallDown2
|
||||
mva #61 ExplosionRadius
|
||||
jsr CalculateExplosionRange
|
||||
jmp cleanDirt
|
||||
@@ -1893,7 +1864,7 @@ MagDeflector
|
||||
bit random ; left or right deflection ?
|
||||
bpl RightDeflection
|
||||
LeftDeflection
|
||||
sbw XHit #18 ; 18 pixels to right and explode...
|
||||
sbw XHit #18 ; 18 pixels to left and explode...
|
||||
bit XHit+1 ; if off-screen ...
|
||||
bpl EndOfMagDeflector ; hit of course but we need RTS
|
||||
adw XHit #36 ; change to right :)
|
||||
|
||||
Reference in New Issue
Block a user