Move towards introducing pipes, generalise blocks

src/Dodge/Room/Tanks.hs

@@ -29,6 +29,12 @@ randomTank = takeOne $ map (\f -> f (dim orange) orange)
     , tankSquareDec plusDecoration
     ]
 
+tanksPipesRoom :: RandomGen g => State g Room
+tanksPipesRoom = do
+    thetank <- randomTank
+    let rm = roomRectAutoLinks 200 400  & rmPmnts .:~ thetank
+    return rm
+
 tanksRoom :: RandomGen g => [Creature] -> [Item] -> State g Room
 tanksRoom crs its = do
     w <- state $ randomR (100,400)