SoilDownTurbo fixed, and added as option in Main Menu

This commit is contained in:
Pecusx
2023-06-12 21:57:30 +02:00
parent ecf02ed94c
commit ccb360d168
6 changed files with 33 additions and 13 deletions
+3 -1
View File
@@ -198,7 +198,6 @@ ClearPlot
drawmountainsloop
jsr DrawMountainLine
NoMountain
inw modify
inw xdraw
cpw xdraw #screenwidth
@@ -229,6 +228,8 @@ NotLower
adw xbyte #screenBytes
inc ydraw
lda ydraw
cmp #screenheight
beq NoClearSky
cmp temp2
bne @-
NoClearSky
@@ -288,6 +289,7 @@ drawline
bne drawline
; end of Drawline proc
.ENDIF
NoMountain
rts
.endp
;--------------------------------------------------
+10 -1
View File
@@ -70,7 +70,9 @@
OptionsMainLoop
lda WindChangeInRound
sta OptionsHere+126
sta OptionsHere+128
lda FastSoilDown
sta OptionsHere+88
jsr OptionsInversion
jsr getkey
@@ -137,6 +139,13 @@ OptionsNoTab
sta WindChangeInRound
rts
NotWind
cmp #$02
bne NotGravity
lda FastSoilDown
eor #$66 ; 'f' character
sta FastSoilDown
rts
NotGravity
ldy GradientNr
iny
cpy #$03