Hovercraft fix for buried tank

2022-08-21 21:13:43 +02:00
parent 8f9e5d018b
commit 514638e1ca
2 changed files with 23 additions and 0 deletions
@@ -2491,6 +2491,29 @@ ReachSky
    sta LineYdraw
    lda #0
    jsr TypeLine4x4.staplot4x4color
 	; and Soildown at the start (for correct mountaintable if tank was buried)
 	; calculate range
 	ldx TankNr
 	sec
 	lda XtankstableL,x
 	sbc #2
 	sta RangeLeft
 	lda XtankstableH,x
 	sbc #0
 	sta RangeLeft+1
 	clc
 	lda XtankstableL,x
 	adc #10
 	sta RangeRight
 	lda XtankstableH,x
 	adc #0
 	sta RangeRight+1
 	; hide tanks and ...
 	mva #1 Erase
    jsr DrawTanks
 	jsr SoilDown2
 	mva #0 Erase
    jsr DrawTanks
 	ldx TankNr
 	; check keyboard/joy and move tank left/right - code copied from BeforeFire