first cheap attempt mountains heights #86

constants.asm

@@ -22,6 +22,7 @@ MaxWindTable   .by 5,20,40,70,99
 RoundsTable    .by 10,20,30,40,50
 flyDelayTable  .by 255,150,75,35,1
 seppukuTable   .by 255, 45,25,15,9
+mountainsDeltaTableH .by 0,1,3,5,7
 ;------------------------------------------------
 LevelNameBeginL ; begins of level names
     .by <NamesOfLevels,<(NamesOfLevels+10),<(NamesOfLevels+20)

definitions.asm

@@ -6,7 +6,7 @@ screenwidth = screenBytes*8 ; Max screenwidth = 512!!!
 margin = 48 ;mountain drawing Y variable margin
 display = $1010 ;screen takes $2K due to clearing routine
 MaxPlayers = 6
-maxOptions = 7  ;number of all options
+maxOptions = 8  ;number of all options
 PMOffset = $23 ; P/M to graphics offset
 napalmRadius = 10
 

display.asm

@@ -110,6 +110,7 @@ OptionsHere
  dta d"Rounds   :   10   20   30   40   50     "
  dta d"Missiles :  slug slow norm fast hare    "
  dta d"Seppuku  :  nevr rare norm oftn alws    "
+ dta d"Mountains:   NL   BE   CZ   CH   NP     "
 OptionsScreenEnd
 ;-----------------------------------------------
 MoreUp

grafproc.asm

@@ -1038,7 +1038,7 @@ NextPart
     lda random
     sta delta ; it is after the dot (xxx.delta)
     lda random
-    and #$03 ;(max delta)
+    and mountainDelta ;(max delta)
     sta delta+1 ; before the dot (delta+1.delta)
 
     lda random

textproc.asm

@@ -124,6 +124,11 @@ OptionsFinished
     lda seppukuTable,y
     sta seppukuVal
     
+    ;8th option (how aggressive are mountains)
+    ldy OptionsTable+7
+    lda mountainsDeltaTableH,y
+    sta mountainDelta
+    
     rts
 ;--------
 ; inversing selected option (cursor)
@@ -1514,8 +1519,6 @@ end_found
     rts
 .endp
 
-
-
 ;-------------------------------
 .proc TypeLine4x4 ;
 ;-------------------------------

variables.asm

@@ -12,9 +12,10 @@ TanksNames  ; DO NOT ZERO - ticket #24
     :6 dta d"        "
 ;----------------------------------------------------
 ;Options DO NOT ZERO - ticket #27
-OptionsTable .by 0,1,2,2,0,1,3
+OptionsTable .by 0,1,2,2,0,1,3,2
 RoundsInTheGame .by 10 ;how many rounds in the current game
 seppukuVal .by 75
+mountainDelta .by 3
 ;----------------------------------------------------
 skilltable   ; computer controlled players' skills (1-8), 0 - human (no cleaning, ticket #30)
     .DS [MaxPlayers]