Identify broken wall collisions

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