diff options
| -rw-r--r-- | src/Xanthous/Generators/LevelContents.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Generators/LevelContents.hs b/src/Xanthous/Generators/LevelContents.hs index 117860405ac3..5f83a83a3b6e 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 |