Improve rooms, make consumable use type

src/Dodge/Room/Containing.hs

@@ -0,0 +1,20 @@
+module Dodge.Room.Containing where
+import Dodge.Data
+import Dodge.Tree
+import Dodge.LevelGen.Data
+import Dodge.RandomHelp
+import Dodge.Room.Procedural
+import Dodge.Room.Tanks
+--import Dodge.Item.Equipment
+
+import System.Random
+import Control.Monad.State
+
+
+roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (SubCompTree Room)
+roomsContaining crs its = do
+    endroom <- join $ takeOne
+        [ randomFourCornerRoomCrsIts crs its 
+        , tanksRoom crs its
+        ]
+    return $ treeFromPost [] $ UseAll endroom