starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-21 06:39:46 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

Meteors only in the cartridge version. Rounds without meteors.

Browse Source
This commit is contained in:
Pecusx
2023-09-04 09:25:22 +02:00
parent 08a895c7fe
commit fb0a4baaa9
6 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/interrupts.asm
+2
View File
@@ -143,6 +143,7 @@ lab2
; ------- RMT ------- ; ------- RMT -------
SkipRMTVBL SkipRMTVBL
; ------ meteors ------ start ; ------ meteors ------ start
.IF TARGET = 5200 .OR CART_VERSION = 1
ldx #0 ldx #0
bit Mcounter bit Mcounter
bpl MeteorOnSky bpl MeteorOnSky
@@ -180,6 +181,7 @@ GoSecondPlot
jsr GoMplot2 jsr GoMplot2
SkipSecondPlot SkipSecondPlot
SkipMeteors SkipMeteors
.ENDIF
; ------ meteors ------ end ; ------ meteors ------ end
bit ScrollFlag bit ScrollFlag
bpl EndOfCreditsVBI bpl EndOfCreditsVBI
game.asm
+6 -1
View File
@@ -259,6 +259,9 @@ noRandomMountains
mva #$00 TankSequencePointer mva #$00 TankSequencePointer
lda random
sta MeteorsRound ; Turns meteors on or off during the next round.
;---------round screen is ready--------- ;---------round screen is ready---------
mva #TextForegroundColor COLOR1 ; status line "on" mva #TextForegroundColor COLOR1 ; status line "on"
rts rts
@@ -361,8 +364,10 @@ CheckNextTankAD
jsr PutTankNameOnScreen jsr PutTankNameOnScreen
; jsr DisplayStatus ; There is no need anymore, it is always after PutTankNameOnScreen ; jsr DisplayStatus ; There is no need anymore, it is always after PutTankNameOnScreen
bit MeteorsRound
bmi @+
mva #0 MeteorsFlag mva #0 MeteorsFlag
@
lda SkillTable,x lda SkillTable,x
beq ManualShooting beq ManualShooting
scorch.asm
+2 -1
View File
@@ -46,7 +46,8 @@ AdditionalZPvariables = $20
.zpvar Mpoint1Y .byte ; meteor first point Y position .zpvar Mpoint1Y .byte ; meteor first point Y position
.zpvar Mcounter .byte ; meteor length counter ( $ff - no meteor on sky ) .zpvar Mcounter .byte ; meteor length counter ( $ff - no meteor on sky )
.zpvar Mpoint2Y .byte ; meteor last point Y position .zpvar Mpoint2Y .byte ; meteor last point Y position
.zpvar MeteorsFlag .byte ; $ff - block meteors .zpvar MeteorsFlag .byte ; set 7th bit - block meteors
.zpvar MeteorsRound .byte ; set 7th bit - block meteors in round
FirstZpageVariable = $51 FirstZpageVariable = $51
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
scorchC64.asm
+3 -2
View File
@@ -35,9 +35,10 @@
icl 'definitions.asm' icl 'definitions.asm'
;--------------------------------------------------- ;---------------------------------------------------
FirstZpageVariable = $54 ; $57 FirstZpageVariable = $53 ; $57
.zpvar DliColorBack .byte = FirstZpageVariable .zpvar DliColorBack .byte = FirstZpageVariable
.zpvar MeteorsFlag .byte .zpvar MeteorsFlag .byte ; set 7th bit - block meteors
.zpvar MeteorsRound .byte ; set 7th bit - block meteors in round
.zpvar GradientNr .byte .zpvar GradientNr .byte
.zpvar GradientColors .word .zpvar GradientColors .word
.zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn) .zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn)