Meteors as compilation option

This commit is contained in:
Pecusx
2023-09-09 20:34:49 +02:00
parent 4489f1ef32
commit 9f9bf04cda
4 changed files with 7 additions and 3 deletions
+3 -1
View File
@@ -161,12 +161,14 @@ ClearPlot
rts rts
.endp .endp
.IF METEORS = 1
; ----------------------------------------- ; -----------------------------------------
.proc ExPlot ;ExPlot (EplotX, EplotY) .proc ExPlot ;ExPlot (EplotX, EplotY)
; EOR plot: ; EOR plot:
; Inverts color of a pixel ; Inverts color of a pixel
; Note: No coordinate control!!! ; Note: No coordinate control!!!
; With off-screen coordinates, it can damage main program. ; With off-screen coordinates, it can damage main program.
; only for ingame meteors
; ----------------------------------------- ; -----------------------------------------
; let's calculate coordinates from xdraw and ydraw ; let's calculate coordinates from xdraw and ydraw
;xbyte = xbyte/8 ;xbyte = xbyte/8
@@ -190,7 +192,7 @@ ClearPlot
sta (EplotByte),y sta (EplotByte),y
rts rts
.endp .endp
.ENDIF
; ----------------------------------------- ; -----------------------------------------
.proc point_plot .proc point_plot
; ----------------------------------------- ; -----------------------------------------
+2 -2
View File
@@ -143,7 +143,7 @@ lab2
; ------- RMT ------- ; ------- RMT -------
SkipRMTVBL SkipRMTVBL
; ------ meteors ------ start ; ------ meteors ------ start
.IF TARGET = 5200 .OR CART_VERSION = 1 .IF METEORS = 1
ldx #0 ldx #0
bit Mcounter bit Mcounter
bpl MeteorOnSky bpl MeteorOnSky
@@ -287,7 +287,7 @@ exit
rti rti
.ENDIF .ENDIF
; ------ meteors plot/flight subroutine ------ start ; ------ meteors plot/flight subroutine ------ start
.IF TARGET = 5200 .OR CART_VERSION = 1 .IF METEORS = 1
GoMplot GoMplot
lda Mpoint1Y,x lda Mpoint1Y,x
cmp #64 cmp #64
+2
View File
@@ -15,6 +15,8 @@
;--------------------------------------------------- ;---------------------------------------------------
.def CART_VERSION = 0 .def CART_VERSION = 0
; if 1 - dual splash screen ; if 1 - dual splash screen
.def METEORS = 1
; if 1 - meteors on game
.def XCORRECTION_FOR_PM = 0 .def XCORRECTION_FOR_PM = 0
; if 1 - active x position of tanks correction fo PMG ; if 1 - active x position of tanks correction fo PMG
.def FASTER_GRAF_PROCS = 1 .def FASTER_GRAF_PROCS = 1
BIN
View File
Binary file not shown.