Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 21:34:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Displaying White Flag and inverse reaction to fire button.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
artwork/tanks.fnt
BIN
View File
Binary file not shown.
grafproc.asm
+16 -1
View File
@@ -703,7 +703,9 @@ NoPlayerMissile
cmp #ind_Auto_Defense___ ; Auto Defence cmp #ind_Auto_Defense___ ; Auto Defence
beq DrawTankShieldWihHorns beq DrawTankShieldWihHorns
cmp #ind_Mag_Deflector__ ; Mag Deflector cmp #ind_Mag_Deflector__ ; Mag Deflector
beq DrawTankShieldWihHorns beq DrawTankShieldWihHorns
cmp #ind_White_Flag_____ ; White Flag
beq DrawTankFlag
bne NoShieldDraw bne NoShieldDraw
ShieldDraw ShieldDraw
jsr DrawTankShield.DrawInPosition jsr DrawTankShield.DrawInPosition
@@ -714,6 +716,19 @@ DrawTankShieldWihHorns
jsr DrawTankShield.DrawInPosition jsr DrawTankShield.DrawInPosition
jsr DrawTankShieldHorns jsr DrawTankShieldHorns
rts 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 .endp
; ------------------------------------- ; -------------------------------------
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+2 -2
View File
@@ -1241,7 +1241,7 @@ pressedSpace
jsr WaitForKeyRelease jsr WaitForKeyRelease
lda pressTimer lda pressTimer
cmp #25 ; 1/2s cmp #25 ; 1/2s
bcs fire bcc fire
jmp callInventory jmp callInventory
fire fire
RTS RTS
@@ -1589,7 +1589,7 @@ ThereWasNoParachute
.proc DrawTankParachute .proc DrawTankParachute
;Tank number in X ;Tank number in X
;-------------------------------------------------- ;--------------------------------------------------
lda #$34 ; parachute symbol lda #$5A ; parachute symbol
sta CharCode sta CharCode
lda Ytankstable,x lda Ytankstable,x
sec sec