Displaying White Flag and inverse reaction to fire button.

This commit is contained in:
Pecusx
2022-06-20 13:23:36 +02:00
parent 67b5dfb110
commit 9aaa4fec69
4 changed files with 18 additions and 3 deletions
BIN
View File
Binary file not shown.
+16 -1
View File
@@ -703,7 +703,9 @@ NoPlayerMissile
cmp #ind_Auto_Defense___ ; Auto Defence
beq DrawTankShieldWihHorns
cmp #ind_Mag_Deflector__ ; Mag Deflector
beq DrawTankShieldWihHorns
beq DrawTankShieldWihHorns
cmp #ind_White_Flag_____ ; White Flag
beq DrawTankFlag
bne NoShieldDraw
ShieldDraw
jsr DrawTankShield.DrawInPosition
@@ -714,6 +716,19 @@ DrawTankShieldWihHorns
jsr DrawTankShield.DrawInPosition
jsr DrawTankShieldHorns
rts
DrawTankFlag
lda #$5E ; flag symbol
sta CharCode
lda Ytankstable,x
sec
sbc #8
sta ydraw
lda XtanksTableL,x
sta xdraw
lda XtanksTableH,x
sta xdraw+1
jsr TypeChar
rts
.endp
; -------------------------------------
BIN
View File
Binary file not shown.
+2 -2
View File
@@ -1241,7 +1241,7 @@ pressedSpace
jsr WaitForKeyRelease
lda pressTimer
cmp #25 ; 1/2s
bcs fire
bcc fire
jmp callInventory
fire
RTS
@@ -1589,7 +1589,7 @@ ThereWasNoParachute
.proc DrawTankParachute
;Tank number in X
;--------------------------------------------------
lda #$34 ; parachute symbol
lda #$5A ; parachute symbol
sta CharCode
lda Ytankstable,x
sec