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

Better Napalms range calculation

Browse Source
This commit is contained in:
Pecusx
2022-07-06 20:43:24 +02:00
parent 9ee021b1f5
commit 8e60cfa723
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+4 -4
View File
@@ -304,7 +304,7 @@ NoLowerCircle
sty magic sty magic
RepeatNapalm ; external loop (for fire animation) RepeatNapalm ; external loop (for fire animation)
mwa xcircle xdraw mwa xcircle xdraw
sbw xdraw #(napalmRadius) ; 10 characters on left side hit point sbw xdraw #(napalmRadius) ; 10 pixels on left side hit point
ldy #0 ldy #0
sty magic+1 sty magic+1
RepeatFlame ; internal loop (draw flames) RepeatFlame ; internal loop (draw flames)
@@ -351,7 +351,7 @@ CharOffTheScreen
adw xdraw #1 ; next char 1 pixels to right adw xdraw #1 ; next char 1 pixels to right
inc magic+1 inc magic+1
lda magic+1 lda magic+1
cmp #(2*napalmRadius+1) ; 10 chars on left, 10 chars on right and 1 in center cmp #(2*napalmRadius+1) ; 10 pixels on left, 10 pixels on right and 1 in center
jne RepeatFlame jne RepeatFlame
dec magic dec magic
jpl RepeatNapalm jpl RepeatNapalm
@@ -365,7 +365,7 @@ BurnedCheckLoop
beq EndNurnedCheckLoop beq EndNurnedCheckLoop
;here the tank exist ;here the tank exist
; calculate right edge of the fire ; calculate right edge of the fire
adw xcircle #(napalmRadius-8) xdraw ; 10 characters on right side hit point (right edge of the fire - character width) adw xcircle #(napalmRadius+4+4) xdraw ; 10 pixels on right side hit point + half character width + correction
; now we compare tank position with right edge of the fire (napalm) ; now we compare tank position with right edge of the fire (napalm)
lda XtankstableH,x lda XtankstableH,x
cmp xdraw+1 cmp xdraw+1
@@ -375,7 +375,7 @@ BurnedCheckLoop
@ @
bcs TankOutOfFire bcs TankOutOfFire
; let's calculate left edge of the fire ; let's calculate left edge of the fire
sbw xcircle #(napalmRadius+1) xdraw ; 10 chars on left and 1 in center sbw xcircle #(napalmRadius+8+4-4) xdraw ; 10 pixels on left + character width (tank) + half character - correction
bpl @+ bpl @+
mwa #0 xdraw ; left screen edge mwa #0 xdraw ; left screen edge
@ @