about summary refs log tree commit diff
path: root/src/Xanthous/Generators/LevelContents.hs
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2020-01-25T15·57-0500
committerGriffin Smith <root@gws.fyi>2020-01-25T15·57-0500
commit5337d7c0eb4e4c6ab835f959c59dff6ee8d879fc (patch)
tree37a46169ec6e8a7b63b8eb9b0ec65fec216a317b /src/Xanthous/Generators/LevelContents.hs
parent7082a4088ba06c825eb45f89888fed2f4577ed10 (diff)
Lower the maximum gormlak coefficient
Little too easy to generate tons of gormlaks and then immediately die.
Diffstat (limited to 'src/Xanthous/Generators/LevelContents.hs')
-rw-r--r--src/Xanthous/Generators/LevelContents.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Generators/LevelContents.hs b/src/Xanthous/Generators/LevelContents.hs
index 117860405a..5f83a83a3b 100644
--- a/src/Xanthous/Generators/LevelContents.hs
+++ b/src/Xanthous/Generators/LevelContents.hs
@@ -76,7 +76,7 @@ randomDoors cells = do
       and [tl, t, tr, b] && (and . fmap not) [l, r]
 
 randomCreatures :: MonadRandom m => Cells -> m (EntityMap Creature)
-randomCreatures = randomEntities Creature.newWithType (0.0007, 0.003)
+randomCreatures = randomEntities Creature.newWithType (0.0007, 0.002)
 
 tutorialMessage :: MonadRandom m
   => Cells