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

cosmetics

Browse Source
This commit is contained in:
Pecusx
2022-06-16 18:34:00 +02:00
parent f924868459
commit c86dcd7c59
4 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+3 -3
View File
@@ -363,7 +363,7 @@ endcircleloop
rts rts
.endp .endp
;---- ;----
splot8 .proc .proc splot8
; plot xcircle+XC,ycircle+YC ; plot xcircle+XC,ycircle+YC
; plot xcircle+XC,ycircle-YC ; plot xcircle+XC,ycircle-YC
; plot xcircle-XC,ycircle-YC ; plot xcircle-XC,ycircle-YC
@@ -462,7 +462,7 @@ splot8 .proc
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
clearscreen .proc .proc clearscreen
;-------------------------------------------------- ;--------------------------------------------------
lda #$ff lda #$ff
@@ -476,7 +476,7 @@ clearscreen .proc
rts rts
.endp .endp
;-------------------------------*------------------ ;-------------------------------*------------------
placetanks .proc .proc placetanks
;-------------------------------------------------- ;--------------------------------------------------
ldx #(MaxPlayers-1) ;maxNumberOfPlayers-1 ldx #(MaxPlayers-1) ;maxNumberOfPlayers-1
lda #0 lda #0
scorch.asm
+9 -9
View File
@@ -733,7 +733,7 @@ NotNegativeShieldEnergy
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
GetRandomWind .proc .proc GetRandomWind
;in: MaxWind (byte) ;in: MaxWind (byte)
;out: Wind (word) ;out: Wind (word)
;uses: _ ;uses: _
@@ -762,7 +762,7 @@ GetRandomWind .proc
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
PMoutofScreen .proc .proc PMoutofScreen
;-------------------------------------------------- ;--------------------------------------------------
lda #$00 ; let all P/M disappear lda #$00 ; let all P/M disappear
:8 sta hposp0+# :8 sta hposp0+#
@@ -903,7 +903,7 @@ ClearResults
rts rts
.endp .endp
DLIinterruptGraph .proc .proc DLIinterruptGraph
pha pha
phy phy
ldy dliCounter ldy dliCounter
@@ -920,7 +920,7 @@ DLIinterruptGraph .proc
rti rti
.endp .endp
DLIinterruptText .proc .proc DLIinterruptText
pha pha
sta WSYNC sta WSYNC
mva #TextBackgroundColor colpf2 mva #TextBackgroundColor colpf2
@@ -930,7 +930,7 @@ DLIinterruptNone
rti rti
.endp .endp
VBLinterrupt .proc .proc VBLinterrupt
pha pha
phx phx
phy phy
@@ -1017,7 +1017,7 @@ UsageLoop
rts rts
.endp .endp
;---------------------------------------------- ;----------------------------------------------
RandomizeAngle .proc ; .proc RandomizeAngle
; routine returns in A ; routine returns in A
; a valid angle for the tank's barrel. ; a valid angle for the tank's barrel.
; X is not changed ; X is not changed
@@ -1040,7 +1040,7 @@ RandomizeAngle .proc ;
rts rts
.endp .endp
;---------------------------------------------- ;----------------------------------------------
RandomizeForce .proc .proc RandomizeForce
; routine returns in ForceTable/L/H ; routine returns in ForceTable/L/H
; valid force of shooting for TankNr ; valid force of shooting for TankNr
; in X must be TankNr ; in X must be TankNr
@@ -1253,7 +1253,7 @@ getkeyend
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
getkeynowait .proc; .proc getkeynowait
;-------------------------------------------------- ;--------------------------------------------------
jsr WaitForKeyRelease jsr WaitForKeyRelease
lda kbcode lda kbcode
@@ -1261,7 +1261,7 @@ getkeynowait .proc;
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
WaitForKeyRelease .proc .proc WaitForKeyRelease
;-------------------------------------------------- ;--------------------------------------------------
lda JSTICK0 lda JSTICK0
and #$0f and #$0f
textproc.asm
+1 -1
View File
@@ -8,7 +8,7 @@
;---------------------------------------- ;----------------------------------------
;-------------------------------------------------- ;--------------------------------------------------
Options .proc .proc Options
;-------------------------------------------------- ;--------------------------------------------------
; start-up screen - options, etc. ; start-up screen - options, etc.
; this function returns: ; this function returns:
weapons.asm
+4
View File
@@ -2314,6 +2314,8 @@ CheckCollisionWithTankLoop
cmp xdraw cmp xdraw
@ @
bcs LeftFromTheTank ;add 8 double byte bcs LeftFromTheTank ;add 8 double byte
; now we use Y as low byte and A as high byte of checked position (right edge of tank)
; it is tricky but fast and much shorter
clc clc
adc #8 adc #8
tay tay
@@ -2341,6 +2343,8 @@ DeadTank
bne CheckCollisionWithTankLoop bne CheckCollisionWithTankLoop
rts rts
CheckCollisionWithShieldedTank CheckCollisionWithShieldedTank
; now we use Y as low byte and A as high byte of checked position (left right edgs of shield)
; it is tricky but fast and much shorter
lda xtankstableL,x lda xtankstableL,x
sec sec
sbc #4 ; 5 pixels more on left side sbc #4 ; 5 pixels more on left side