Add dimensions to all items

src/Dodge/Room/Start.hs

@@ -33,26 +33,28 @@ import System.Random
 minigunfakeout :: RandomGen g => State g (Tree (Either Room Room))
 minigunfakeout = do
     rcol <- rezColor
-    ncor <- state $ randomR (1,3)
+    ncor <- state $ randomR (0,2)
     roomwithmini <- randomiseAllLinks $ roomRectAutoLinks 150 150
-        & rmPmnts %~ ([plRRpt 0 (PutFlIt miniGun),plRRpt 0 (PutFlIt shrinkGun)]++)
+        & rmPmnts %~ (plRRpt 0 (PutFlIt miniGun):)
+    randcors <- replicateM ncor $ (fmap Left . randomiseOutLinks) corridor
     return $ ([Left $ rezBox rcol
                 ,Left door
                 ,Left roomwithmini 
                 ,Left door
                 ] 
-            ++ replicate ncor (Left corridor)
-            ++ [Left keyholeCorridor,Left corridor])
+            ++ randcors
+            ++ [Left $ corridor & rmPmnts %~ ( plRRpt 0 (PutFlIt shrinkGun) :)
+                ,Left keyholeCorridor,Left corridor])
         `treeFromPost` Right door
 
 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = join $ takeOne 
     [ minigunfakeout
-    --, rezBoxesWp
-    --, rezBoxesThenWeaponRoom
-    --, rezBoxThenWeaponRoom
-    --, rezBoxesWpCrit
-    --, runPastStart
+    , rezBoxesWp
+    , rezBoxesThenWeaponRoom
+    , rezBoxThenWeaponRoom
+    , rezBoxesWpCrit
+    , runPastStart
     ]
 
 runPastStart :: RandomGen g => State g (Tree (Either Room Room))