Liquid Dirt bug and little optimization

This commit is contained in:
Pecusx
2022-06-03 10:30:02 +02:00
parent c12049d0d7
commit 8f0bd8ca81
2 changed files with 16 additions and 25 deletions
BIN
View File
Binary file not shown.
+11 -20
View File
@@ -679,7 +679,7 @@ dirtLoop
jsr circle jsr circle
inw ydraw inw ydraw
jsr circle jsr circle
dew ydraw .nowarn dew ydraw
inc radius inc radius
lda radius lda radius
cmp ExplosionRadius cmp ExplosionRadius
@@ -895,9 +895,9 @@ EndOfTheDirt
.endp .endp
; ---------------- ; ----------------
.proc xliquiddirt ; .proc xliquiddirt ;
mva xdraw TempXfill mwa xdraw TempXfill
RepeatFill RepeatFill
mva TempXfill xdraw mwa TempXfill xdraw
jsr checkRollDirection jsr checkRollDirection
; HowMuchToFall - direction ; HowMuchToFall - direction
; $FF - we are in a hole (flying in missile direction) ; $FF - we are in a hole (flying in missile direction)
@@ -1235,33 +1235,24 @@ AfterStrongShoot
mva #sfx_shoot sfx_effect mva #sfx_shoot sfx_effect
; Shoots tank nr X !!! :) ; Shoots tank nr X !!! :)
;ldx TankNr ; set the starting coordinates of bullet with correction
lda xtankstableL,x
sta xtraj+1
lda xtankstableH,x
sta xtraj+2
lda ytankstable,x
sta ytraj+1
lda #$00
sta ytraj+2
; correction of the starting coordinates of bullet
; to start where the tank's barrel ends ; to start where the tank's barrel ends
; (without it bullet would go from the left lower corner of the tank) ; (without it bullet would go from the left lower corner of the tank)
;ldx TankNr
ldy Angle ldy Angle
clc clc
lda xtraj+1 lda xtankstableL,x
adc EndOfTheBarrelX,y ; correction of X adc EndOfTheBarrelX,y ; correction of X
sta xtraj+1 sta xtraj+1
lda xtraj+2 lda xtankstableH,x
adc #0 adc #$00
sta xtraj+2 sta xtraj+2
sec sec
lda ytraj+1 lda ytankstable,x
sbc EndOfTheBarrelY,y ; correction of Y sbc EndOfTheBarrelY,y ; correction of Y
sta ytraj+1 sta ytraj+1
lda ytraj+2 lda #$00
sbc #0 sbc #$00
sta ytraj+2 sta ytraj+2
jsr Flight jsr Flight