Skip to content
This repository
Browse code

Terrain tweaks. Forests are sparser, and downstairs available on gras…

…sy/dirty terrains.
  • Loading branch information...
commit 5057424ff3da7dc08d5062f7efd935cda19ca6e7 1 parent 4191fcb
Christopher Lane Hinson authored

Showing 1 changed file with 9 additions and 6 deletions. Show diff stats Hide diff stats

  1. +9 6 roguestar-engine/src/TerrainData.hs
15 roguestar-engine/src/TerrainData.hs
@@ -118,7 +118,9 @@ stairsDown seed depth = TerrainPlacement {
118 118 placement_sources =
119 119 [(1%(15+3*depth),RockyGround),
120 120 (1%(25+5*depth),Ice),
121   - (1%(75+15*depth),RockFace)],
  121 + (1%(75+15*depth),RockFace),
  122 + (1%(40+10*depth),Dirt),
  123 + (1%60,Grass)],
122 124 placement_replacements =
123 125 [(1,Downstairs)],
124 126 placement_seed = seed }
@@ -156,6 +158,7 @@ terrainFrequencies SwampBiome = [(40,Forest),(50,Water),(5,Sand),(5,Grass)]
156 158 terrainInterpFn :: (TerrainPatch,TerrainPatch) -> [(Integer,TerrainPatch)]
157 159 terrainInterpFn (a,b) = [(1,a),(1,b)] ++ (terrainInterpRule (a,b)) ++ (terrainInterpRule (b,a))
158 160
  161 +-- Notice, in terrainInterpFn, we always throw in both terrain patches with a weight of 1.
159 162 terrainInterpRule :: (TerrainPatch,TerrainPatch) -> [(Integer,TerrainPatch)]
160 163 terrainInterpRule (RockFace,RockFace) = []
161 164 terrainInterpRule (RockFace,RockyGround) = [(3,RockFace),(1,Rubble),(3,RockyGround)]
@@ -164,12 +167,12 @@ terrainInterpRule (Rubble,x) = [(1,Rubble),(2,Sand),(2,Dirt),(5,x)]
164 167 terrainInterpRule (DeepWater,DeepWater) = []
165 168 terrainInterpRule (DeepWater,Water) = [(3,DeepWater)]
166 169 terrainInterpRule (DeepWater,_) = [(3,Water)]
167   -terrainInterpRule (DeepForest,DeepForest) = []
168   -terrainInterpRule (DeepForest,Forest) = [(3,DeepForest)]
169   -terrainInterpRule (DeepForest,_) = [(5,Forest)]
  170 +terrainInterpRule (DeepForest,DeepForest) = [(1,Grass)]
  171 +terrainInterpRule (DeepForest,Forest) = [(2,Grass)]
  172 +terrainInterpRule (DeepForest,_) = [(1,Forest)]
170 173 terrainInterpRule (Forest,DeepForest) = []
171   -terrainInterpRule (Forest,Forest) = []
172   -terrainInterpRule (Forest,_) = [(1,Grass)]
  174 +terrainInterpRule (Forest,Forest) = [(3,Grass)]
  175 +terrainInterpRule (Forest,_) = [(3,Grass)]
173 176 terrainInterpRule (Water,Water) = [(20,Water),(1,Sand)]
174 177 terrainInterpRule (Water,DeepWater) = []
175 178 terrainInterpRule (Water,_) = [(1,Sand)]

0 comments on commit 5057424

Please sign in to comment.
Something went wrong with that request. Please try again.