Make items recoverable from base type

src/Dodge/Room/Breather.hs

@@ -0,0 +1,34 @@
+module Dodge.Room.Breather where
+--import Dodge.Cleat
+import Dodge.Combine.Data
+import Dodge.Data
+--import Dodge.PlacementSpot
+--import Dodge.RoomLink
+--import Dodge.Default.Room
+import Dodge.Item
+--import Dodge.Creature
+--import Dodge.Room.Pillar
+--import Dodge.Room.Girder
+--import Dodge.Room.Modify.Girder
+--import Dodge.LevelGen.Data
+import RandomHelp
+import Dodge.Tree
+--import Dodge.Placement.Instance
+--import Dodge.LevelGen.Data
+--import Dodge.Room.Procedural
+--import Dodge.Room.Corridor
+--import Dodge.Room.Tanks
+--import Dodge.Room.Link
+--import Dodge.Room.Door
+--import Dodge.Room.Airlock
+import Dodge.Room.Containing
+--import Geometry
+--import MonadHelp
+--import LensHelp
+
+--import qualified Data.Set as S
+
+firstBreather :: State StdGen (MetaTree Room String)
+firstBreather = do
+    itms <- takeOne [[],[itemFromBase $ CRAFT TUBE]]
+    roomsContaining [] itms