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

Tank colors bugfix & new DLI for purchase screen

Browse Source 
He, he.
The tank colors were not taken from the table :)
This commit is contained in:
Pecusx
2022-05-13 09:18:50 +02:00
parent 91b39e736b
commit de5bfab2a8
4 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
constants.asm
+3
View File
@@ -6,10 +6,13 @@
;==========================CONSTANT TABLES, do not erase!=========================== ;==========================CONSTANT TABLES, do not erase!===========================
;=================================================================================== ;===================================================================================
TankColoursTable .BYTE $5a,$dc,$88,$26,$a8,$02 TankColoursTable .BYTE $5a,$dc,$88,$26,$a8,$02
TankStatusColoursTable .BYTE $52,$d2,$82,$22,$a2,$02
dliColorsBack dliColorsBack
:10 .by $04,$02 :10 .by $04,$02
dliColorsFore dliColorsFore
.by $0e .by $0e
TextBackgroundColor = $02 ; REAL constans - use: LDA #TextBackgroundColor
TextForegroundColor = $0c
CashOptionL ;(one zero less than on the screen) CashOptionL ;(one zero less than on the screen)
.by 0,<200,<500,<800,<1000 .by 0,<200,<500,<800,<1000
CashOptionH CashOptionH
scorch.asm
+22 -11
View File
@@ -151,10 +151,12 @@ START
; for the round #1 shooting sequence is random ; for the round #1 shooting sequence is random
MainGameLoop MainGameLoop
VDLI DLIinterrupt ; jsr SetDLI VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen
jsr CallPurchaseForEveryTank jsr CallPurchaseForEveryTank
VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen
mwa #dl dlptrs mwa #dl dlptrs
lda dmactls lda dmactls
and #$fc and #$fc
@@ -395,7 +397,7 @@ DoNotFinishTheRound
mva #1 color ;to display flying point mva #1 color ;to display flying point
lda TankColoursTable,x lda TankStatusColoursTable,x
sta colpf2s ; set color of status line sta colpf2s ; set color of status line
lda SkillTable,x lda SkillTable,x
@@ -784,8 +786,8 @@ deletePtr = temp
jsr WeaponCleanup jsr WeaponCleanup
mva #$2 colpf2s mva #TextBackgroundColor colpf2s
mva #12 colpf3s mva #TextForegroundColor colpf3s
mva #>WeaponFont chbas mva #>WeaponFont chbas
;parameter for old plot (unPlot) max 5 points ;parameter for old plot (unPlot) max 5 points
@@ -819,16 +821,16 @@ SetunPlots
lda #$10 ; P/M priorities (bit 4 joins missiles) lda #$10 ; P/M priorities (bit 4 joins missiles)
sta gtictls sta gtictls
jsr PMoutofScreen jsr PMoutofScreen
lda #$50 ; temporary colours of sprites under tanks lda TankColoursTable ; temporary colours of sprites under tanks
sta $2c0 sta $2c0
lda #$30 lda TankColoursTable+1
sta $2c1 sta $2c1
lda #$70 lda TankColoursTable+2
sta $2c2 sta $2c2
lda #$90 lda TankColoursTable+3
sta $2c3 sta $2c3
LDA #$B0 LDA TankColoursTable+4
STA COLPF3S STA COLPF3S ; WHAT THE FUCK ???? !!!! ????
mva #0 hscrol mva #0 hscrol
@@ -867,7 +869,7 @@ ClearResults
rts rts
.endp .endp
DLIinterrupt .proc DLIinterruptGraph .proc
pha pha
phy phy
ldy dliCounter ldy dliCounter
@@ -889,6 +891,15 @@ DLIinterrupt .proc
rti rti
.endp .endp
DLIinterruptText .proc
pha
sta WSYNC
mva #TextBackgroundColor colpf2
mva #TextForegroundColor colpf3
pla
rti
.endp
VBLinterrupt .proc VBLinterrupt .proc
pha pha
phx phx
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+1 -1
View File
@@ -228,7 +228,7 @@ AfterManualPurchase
jsr PMoutofScreen jsr PMoutofScreen
ldx tankNr ldx tankNr
lda TankColoursTable,x lda TankStatusColoursTable,x
sta colpf2s sta colpf2s
; we are clearing list of the weapons ; we are clearing list of the weapons