mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 14:49:40 +02:00
Tank dropping error at the right edge definitely corrected!
This commit is contained in:
+8
-10
@@ -1129,16 +1129,13 @@ FallingRight
|
|||||||
bit PreviousFall ; bit 6 - left
|
bit PreviousFall ; bit 6 - left
|
||||||
bvs EndRightFall
|
bvs EndRightFall
|
||||||
; we finish falling right if the tank reached the edge of the screen
|
; we finish falling right if the tank reached the edge of the screen
|
||||||
clc
|
|
||||||
lda XtanksTableL,x
|
|
||||||
adc #$08 ; we'll check right side of the char
|
|
||||||
sta temp
|
|
||||||
lda XtanksTableH,x
|
lda XtanksTableH,x
|
||||||
adc #0
|
cmp #>(screenwidth-8-2) ; 2 pixels correction due to a barrel wider than tank
|
||||||
sta temp+1
|
bne @+
|
||||||
cpw temp #screenwidth-2 ; 2 pixels correction due to a barrel wider than tank
|
lda XtanksTableL,x
|
||||||
bcs EndRightFall
|
cmp #<(screenwidth-8-2) ; 2 pixels correction due to a barrel wider than tank
|
||||||
NotLeftEdge
|
@ bcs EndRightFall
|
||||||
|
NotRightEdge
|
||||||
; tank is falling right - modify coorinates
|
; tank is falling right - modify coorinates
|
||||||
clc
|
clc
|
||||||
lda XtankstableL,x
|
lda XtankstableL,x
|
||||||
@@ -1159,6 +1156,7 @@ FallingLeft
|
|||||||
lda XtanksTableL,x
|
lda XtanksTableL,x
|
||||||
cmp #3 ; 2 pixels correction due to a barrel wider than tank
|
cmp #3 ; 2 pixels correction due to a barrel wider than tank
|
||||||
bcc EndLeftFall
|
bcc EndLeftFall
|
||||||
|
NotLeftEdge
|
||||||
; tank is falling left - modify coorinates
|
; tank is falling left - modify coorinates
|
||||||
sec
|
sec
|
||||||
lda XtankstableL,x
|
lda XtankstableL,x
|
||||||
@@ -1206,7 +1204,7 @@ DoNotDrawParachute
|
|||||||
ForceFallLeft
|
ForceFallLeft
|
||||||
sta UnderTank1
|
sta UnderTank1
|
||||||
sty UnderTank2
|
sty UnderTank2
|
||||||
jne TankFallsX
|
jmp TankFallsX
|
||||||
EndOfFall
|
EndOfFall
|
||||||
mva #1 Erase
|
mva #1 Erase
|
||||||
; ldx TankNr
|
; ldx TankNr
|
||||||
|
|||||||
+1
-1
@@ -36,7 +36,7 @@
|
|||||||
;we decided it must go in 'English' to let other people work on it
|
;we decided it must go in 'English' to let other people work on it
|
||||||
|
|
||||||
.macro build
|
.macro build
|
||||||
dta d"1.12" ; number of this build (3 bytes)
|
dta d"1.13" ; number of this build (3 bytes)
|
||||||
.endm
|
.endm
|
||||||
|
|
||||||
icl 'definitions.asm'
|
icl 'definitions.asm'
|
||||||
|
|||||||
BIN
Binary file not shown.
Reference in New Issue
Block a user