Identify broken wall collisions

src/Dodge/Room/Corridor.hs

@@ -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

src/Dodge/Room/RoadBlock.hs

@@ -98,7 +98,7 @@ lasTunnel = defaultRoom
     , _rmBound  = polys
     , _rmLinks  = [(V2 20 190,1.5* pi),(V2 0 20,0.5* pi)]
     , _rmPmnts     = [putLasTurret & plSpot .~ PS (V2 10 240) (1.5*pi)
-        , lowWall (rectNSEW 65 40 0 25)
+        , midWall (rectNSEW 65 40 0 25)
         , mntLS vShape (V2 50 10) (V3 40 20 50)
         ]
     }

src/Dodge/Room/Start.hs

@@ -16,6 +16,8 @@ import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.Item.Random
+import Dodge.Item.Weapon.BulletGuns
+import Dodge.Item.Weapon.Utility
 --import Dodge.LevelGen.Data
 import Geometry.Data
 import Padding
@@ -31,8 +33,15 @@ import System.Random
 minigunfakeout :: RandomGen g => State g (Tree (Either Room Room))
 minigunfakeout = do
     rcol <- rezColor
-    ncor <- state $ randomR (1,5)
-    return $ ([Left $ rezBox rcol,Left door] ++ replicate ncor (Left corridor)
+    ncor <- state $ randomR (1,3)
+    roomwithmini <- randomiseAllLinks $ roomRectAutoLinks 150 150
+        & rmPmnts %~ ([plRRpt 0 (PutFlIt miniGun),plRRpt 0 (PutFlIt shrinkGun)]++)
+    return $ ([Left $ rezBox rcol
+                ,Left door
+                ,Left roomwithmini 
+                ,Left door
+                ] 
+            ++ replicate ncor (Left corridor)
             ++ [Left keyholeCorridor,Left corridor])
         `treeFromPost` Right door