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

SoulDownTurbo works (press START key)

Browse Source
This commit is contained in:
Pecusx
2023-06-12 20:03:44 +02:00
parent 3787823288
commit ecf02ed94c
7 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/gr_basics.asm
+2 -2
View File
@@ -368,7 +368,7 @@ NothingToFall
rts
.endp
;--------------------------------------------------
.proc SoilDown3
.proc SoilDownTurbo
;--------------------------------------------------
; fast SoilDown froc - test
jsr ClearTanks
@@ -807,7 +807,7 @@ NoPlot
ldx TankNr
sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter
jsr SetFullScreenSoilRange
jmp SoilDown2.NoClearTanks
jmp SoilDown.NoClearTanks
; rts
; in order to optimize the fragment repeated in both internal loops
C64/gr_basics.asm
+1 -1
View File
@@ -741,7 +741,7 @@ NoPlot
ldx TankNr
sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter
jsr SetFullScreenSoilRange
jmp SoilDown2.NoClearTanks
jmp SoilDown.NoClearTanks
; rts
; in order to optimize the fragment repeated in both internal loops
game.asm
+1 -1
View File
@@ -441,7 +441,7 @@ GoExplosion
continueMainRoundLoopAfterSeppuku
AfterExplode
jsr SoilDown2 ; allways
jsr SoilDown ; allways
NoFallDown2
;here tanks are falling down
mva tankNr tempor2
grafproc.asm
+10 -1
View File
@@ -1289,7 +1289,7 @@ drawmountainspixelloop
rts
*/
;--------------------------------------------------
.proc SoilDown2
.proc SoilDown
;--------------------------------------------------
; how it is supposed to work:
@@ -1418,6 +1418,15 @@ ColumnIsReady
bcc FalloutOfLine
beq FalloutOfLine
.IF TARGET = 800
.IF FASTER_GRAF_PROCS = 1
lda CONSOL
and #%00000001 ; START KEY
bne NoFastDown
jmp SoilDownTurbo.NoClearTanks
NoFastDown
.ENDIF
.ENDIF
jsr CheckExitKeys ; Check for O, Esc or Start+Option keys
spl:rts ; exit if pressed 'Exit keys'
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+5 -5
View File
@@ -115,7 +115,7 @@ GoBabyNukeSFX
SecondRepeat
; soil must fall down now! there is no other way...
; hide tanks or they fall down with soil
jsr SoilDown2
jsr SoilDown
; it looks like force is divided by 4 here BUT"
; in Flight routine force is multiplied by 2 and left
@@ -151,7 +151,7 @@ EndOfLeapping
jsr CalculateExplosionRange0
jsr xmissile.NoRangeCalc
jsr SoilDown2
jsr SoilDown
;
jsr cleartanks ; maybe not?
mva #1 color
@@ -2474,7 +2474,7 @@ MIRValreadyAll
jsr DisplayOffensiveTextNr
; temporary removing tanks from the screen (otherwise they will fall down with soil)
jsr SoilDown2
jsr SoilDown
mva #$ff HitFlag ; but why ??
rts
.endp
@@ -2730,7 +2730,7 @@ ReachSky
adc #0
sta RangeRight+1
; hide tanks and ...
jsr SoilDown2
jsr SoilDown
jsr ClearScreenSoilRange
ldx TankNr
@@ -2999,7 +2999,7 @@ NotHighest
; calculate range
jsr CalculateSoildown
; hide tanks and ...
jsr SoilDown2
jsr SoilDown
ldx TankNr
rts