Rollers bug (blast radius at right edge of the screen)

This commit is contained in:
Pecusx
2022-07-16 00:40:41 +02:00
parent 12150a47c1
commit 9e695f8fcd
2 changed files with 5 additions and 4 deletions
BIN
View File
Binary file not shown.
+5 -4
View File
@@ -901,13 +901,12 @@ UpNotYet
beq HowMuchToFallRight2 beq HowMuchToFallRight2
.nowarn dew xdraw .nowarn dew xdraw
lda xdraw lda xdraw
ora xdraw+1
jne RollinContinues ; like cpw xdraw #0 jne RollinContinues ; like cpw xdraw #0
lda xdraw+1
jne RollinContinues
beq ExplodeNow beq ExplodeNow
HowMuchToFallRight2 HowMuchToFallRight2
inw xdraw inw xdraw
cpw xdraw #screenwidth cpw xdraw #screenwidth-1 ; if without -1 it miscalculates range of explosion (why? !!!)
jne RollinContinues jne RollinContinues
ExplodeNow ExplodeNow
mwa xdraw xcircle ; we must store somewhere (BAD) mwa xdraw xcircle ; we must store somewhere (BAD)
@@ -1077,7 +1076,9 @@ UpNotYet2
cmp #1 cmp #1
beq HowMuchToFallRight3 beq HowMuchToFallRight3
.NOWARN dew xdraw .NOWARN dew xdraw
cpw xdraw #$ffff lda xdraw
and xdraw+1
cmp #$ff ; like cpw xdraw #$ffff
jne RollinContinuesLiquid jne RollinContinuesLiquid
beq FillNow beq FillNow
HowMuchToFallRight3 HowMuchToFallRight3