diff options
Diffstat (limited to 'src/Xanthous/Generators.hs')
| -rw-r--r-- | src/Xanthous/Generators.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xanthous/Generators.hs b/src/Xanthous/Generators.hs index 6b1a57299ea1..490e50ea60a8 100644 --- a/src/Xanthous/Generators.hs +++ b/src/Xanthous/Generators.hs @@ -14,6 +14,7 @@ module Xanthous.Generators , levelItems , levelCreatures , levelCharacterPosition + , levelTutorialMessage , generateLevel ) where -------------------------------------------------------------------------------- @@ -91,6 +92,7 @@ data Level = Level { _levelWalls :: !(EntityMap Wall) , _levelItems :: !(EntityMap Item) , _levelCreatures :: !(EntityMap Creature) + , _levelTutorialMessage :: !(EntityMap GroundMessage) , _levelCharacterPosition :: !Position } makeLenses ''Level @@ -103,4 +105,5 @@ generateLevel gen ps dims = do _levelItems <- randomItems cells _levelCreatures <- randomCreatures cells _levelCharacterPosition <- chooseCharacterPosition cells + _levelTutorialMessage <- tutorialMessage cells _levelCharacterPosition pure Level {..} |