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 rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
.proc SoilDown3 .proc SoilDownTurbo
;-------------------------------------------------- ;--------------------------------------------------
; fast SoilDown froc - test ; fast SoilDown froc - test
jsr ClearTanks jsr ClearTanks
@@ -807,7 +807,7 @@ NoPlot
ldx TankNr ldx TankNr
sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter
jsr SetFullScreenSoilRange jsr SetFullScreenSoilRange
jmp SoilDown2.NoClearTanks jmp SoilDown.NoClearTanks
; rts ; rts
; in order to optimize the fragment repeated in both internal loops ; 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 ldx TankNr
sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter sta ActiveDefenceWeapon,x ; deactivate Nuclear Winter
jsr SetFullScreenSoilRange jsr SetFullScreenSoilRange
jmp SoilDown2.NoClearTanks jmp SoilDown.NoClearTanks
; rts ; rts
; in order to optimize the fragment repeated in both internal loops ; in order to optimize the fragment repeated in both internal loops
game.asm
+1 -1
View File
@@ -441,7 +441,7 @@ GoExplosion
continueMainRoundLoopAfterSeppuku continueMainRoundLoopAfterSeppuku
AfterExplode AfterExplode
jsr SoilDown2 ; allways jsr SoilDown ; allways
NoFallDown2 NoFallDown2
;here tanks are falling down ;here tanks are falling down
mva tankNr tempor2 mva tankNr tempor2
grafproc.asm
+10 -1
View File
@@ -1289,7 +1289,7 @@ drawmountainspixelloop
rts rts
*/ */
;-------------------------------------------------- ;--------------------------------------------------
.proc SoilDown2 .proc SoilDown
;-------------------------------------------------- ;--------------------------------------------------
; how it is supposed to work: ; how it is supposed to work:
@@ -1418,6 +1418,15 @@ ColumnIsReady
bcc FalloutOfLine bcc FalloutOfLine
beq 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 jsr CheckExitKeys ; Check for O, Esc or Start+Option keys
spl:rts ; exit if pressed 'Exit 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 SecondRepeat
; soil must fall down now! there is no other way... ; soil must fall down now! there is no other way...
; hide tanks or they fall down with soil ; hide tanks or they fall down with soil
jsr SoilDown2 jsr SoilDown
; it looks like force is divided by 4 here BUT" ; it looks like force is divided by 4 here BUT"
; in Flight routine force is multiplied by 2 and left ; in Flight routine force is multiplied by 2 and left
@@ -151,7 +151,7 @@ EndOfLeapping
jsr CalculateExplosionRange0 jsr CalculateExplosionRange0
jsr xmissile.NoRangeCalc jsr xmissile.NoRangeCalc
jsr SoilDown2 jsr SoilDown
; ;
jsr cleartanks ; maybe not? jsr cleartanks ; maybe not?
mva #1 color mva #1 color
@@ -2474,7 +2474,7 @@ MIRValreadyAll
jsr DisplayOffensiveTextNr jsr DisplayOffensiveTextNr
; temporary removing tanks from the screen (otherwise they will fall down with soil) ; temporary removing tanks from the screen (otherwise they will fall down with soil)
jsr SoilDown2 jsr SoilDown
mva #$ff HitFlag ; but why ?? mva #$ff HitFlag ; but why ??
rts rts
.endp .endp
@@ -2730,7 +2730,7 @@ ReachSky
adc #0 adc #0
sta RangeRight+1 sta RangeRight+1
; hide tanks and ... ; hide tanks and ...
jsr SoilDown2 jsr SoilDown
jsr ClearScreenSoilRange jsr ClearScreenSoilRange
ldx TankNr ldx TankNr
@@ -2999,7 +2999,7 @@ NotHighest
; calculate range ; calculate range
jsr CalculateSoildown jsr CalculateSoildown
; hide tanks and ... ; hide tanks and ...
jsr SoilDown2 jsr SoilDown
ldx TankNr ldx TankNr
rts rts