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

code cleanup

Browse Source
This commit is contained in:
pkali
2022-05-22 11:25:40 -04:00
parent 9a3cf1251f
commit 26f82b59c1
3 changed files with 28 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+5 -25
View File
@@ -123,26 +123,7 @@ START
lda escFlag lda escFlag
bne START bne START
;entering names of players jsr EnterPlayerNames
mwa #NameDL dlptrs
lda dmactls
and #$fc
ora #$01 ; narrow screen (32 chars)
sta dmactls
VDLI DLIinterruptText ; jsr SetDLI for text (names) screen
mva #0 TankNr
@ tax
lda TankStatusColoursTable,x
sta colpf2s ; set color of player name line
jsr EnterPlayerName
lda escFlag
bne START
inc TankNr
lda TankNr
cmp NumberOfPlayers
bne @-
jsr RandomizeSequence jsr RandomizeSequence
; for the round #1 shooting sequence is random ; for the round #1 shooting sequence is random
@@ -150,17 +131,14 @@ MainGameLoop
VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen
jsr CallPurchaseForEveryTank jsr CallPurchaseForEveryTank
; issue #72 (glitches when switches) ; issue #72 (glitches when switches)
mva #0 dmactl mva #0 dmactl
lda dmactls lda dmactls
and #$fc and #$fc
;ora #$02 ; 2=normal, 3 = wide screen width, 0 = no screen (?) ;ora #$02 ; 2=normal, 3 = wide screen width, 0 = no screen
sta dmactls sta dmactls
VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen
jsr GetRandomWind jsr GetRandomWind
jsr Round jsr Round
@@ -315,6 +293,8 @@ SettingEnergies
jsr placetanks ;let the tanks be evenly placed jsr placetanks ;let the tanks be evenly placed
jsr calculatemountains ;let mountains be nice for the eye jsr calculatemountains ;let mountains be nice for the eye
; jsr calculatemountains0 ;only fort tests - makes mountains flat and 0 height ; jsr calculatemountains0 ;only fort tests - makes mountains flat and 0 height
VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen
mwa #dl dlptrs ; issue #72 (glitches when switches) mwa #dl dlptrs ; issue #72 (glitches when switches)
lda dmactls lda dmactls
and #$fc and #$fc
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+23
View File
@@ -825,6 +825,29 @@ NoArrowDown
rts rts
.endp .endp
; ----------------------------------------------------- ; -----------------------------------------------------
.proc EnterPlayerNames
;entering names of players
mwa #NameDL dlptrs
lda dmactls
and #$fc
ora #$01 ; narrow screen (32 chars)
sta dmactls
VDLI DLIinterruptText ; jsr SetDLI for text (names) screen
mva #0 TankNr
@ tax
lda TankStatusColoursTable,x
sta colpf2s ; set color of player name line
jsr EnterPlayerName
lda escFlag
jne START
inc TankNr
lda TankNr
cmp NumberOfPlayers
bne @-
rts
.endp
; -----------------------------------------------------
.proc EnterPlayerName .proc EnterPlayerName
; in: TankNr ; in: TankNr
; Out: TanksNames, SkillTable ; Out: TanksNames, SkillTable