#3 Restrict player going places

lib/RPGEngine/Data.hs

@@ -14,9 +14,10 @@ data Game = Game {
 ------------------------------- Level --------------------------------
 
 data Level = Level {
-    layout   :: Layout,
-    items    :: [Item],
-    entities :: [Entity]
+    layout      :: Layout,
+    coordlayout :: [(X, Y, Physical)],
+    items       :: [Item],
+    entities    :: [Entity]
 } deriving (Eq, Show)
 
 type Layout = [Strip]
@@ -37,7 +38,7 @@ type Y = Int
 data Player = Player {
     playerHp  :: Maybe Int,
     inventory :: [Item],
-    coord     :: (X, Y)
+    position  :: (X, Y)
 } deriving (Eq, Show)
 
 instance Living Player where