Identify broken wall collisions

2021-11-19 00:35:04 +00:00
parent 15f2c419d2
commit b1a49bbdc3
13 changed files with 112 additions and 24 deletions
@@ -32,9 +32,13 @@ corridor = defaultRoom
 keyholeCorridor :: Room
 keyholeCorridor = corridor
    { _rmPath  = []
-    , _rmPmnts = [ lowWall $ rectNSEW 50 30 0 15
-        , lowWall $ rectNSEW 50 30 25 40]
+    , _rmPmnts = 
+        [ midWall $ rectNSEW top bot 0  15
+        , midWall $ rectNSEW top bot 25 40]
    }
+  where
+    top = 55
+    bot = 25
    
 corridorN :: Room
 corridorN = defaultRoom