Added static maps

maps/test.map

@@ -0,0 +1,7 @@
+########################
+#......................#
+#......................#
+#......................#
+#......................#
+#......................#
+########################

src/Dungeon.hs

@@ -1,20 +1,32 @@
 module Dungeon where
 
-import Data.Matrix
+import Data.Matrix hiding ((<|>))
+import Data.Tuple
+import Data.Maybe
+import Control.Applicative ((<|>))
 
-data Cell = Solid | Empty
+data Cell = Solid
+  | Empty
+  deriving (Eq)
 
 instance Show Cell where
-  show Solid = "#"
-  show Empty = "."
+  show cell = [fromJust (lookup cell cellChars <|> Just '?')]
+
+cellChars :: [(Cell, Char)]
+cellChars =
+  [ (Empty, '.')
+  , (Solid, '#')
+  ]
 
 newtype Dungeon = Dungeon (Matrix Cell)
 
 instance Show Dungeon where
   show (Dungeon m) = unlines . map (concatMap show) $ toLists m
 
-makeDungeon :: Int -> Int -> Dungeon
-makeDungeon w h = Dungeon $ matrix h w $ const Empty
+makeDungeonFromFile :: String -> IO Dungeon
+makeDungeonFromFile f = do
+  contents <- readFile f
+  return $ Dungeon $ fromLists $ map (fromJust . (`lookup` map swap cellChars)) <$> lines contents
 
 dungeonToLists :: Dungeon -> [[Cell]]
 dungeonToLists (Dungeon m) = toLists m

src/Game.hs

@@ -17,8 +17,10 @@ data Game = Game
 
 makeLenses ''Game
 
-newGame :: Game
-newGame = Game (makeDungeon 30 10) (Player (0,0))
+newGame :: IO Game
+newGame = do
+  dun <- makeDungeonFromFile "maps/test.map"
+  return $ Game dun (Player (0,0))
 
 runAction :: Action -> Game -> Maybe Game
 runAction (Walk N) game = Just $ game & player . pos . _2 -~ 1

src/Main.hs

@@ -10,7 +10,8 @@ main :: IO ()
 main = do
     cfg <- standardIOConfig
     vty <- mkVty cfg
-    loop vty newGame
+    game <- newGame
+    loop vty game
     shutdown vty
     where loop vty game = do
             update vty $ renderGame game