diff --git a/src/Dodge/Annotation.hs b/src/Dodge/Annotation.hs
index b2dd91884..cb51a115a 100644
--- a/src/Dodge/Annotation.hs
+++ b/src/Dodge/Annotation.hs
@@ -4,7 +4,7 @@ module Dodge.Annotation
     ( module Dodge.Annotation.Data
     , module Dodge.Annotation
     ) where
-import Dodge.UseAll
+import Dodge.Cleat
 import RandomHelp
 import Dodge.Tree
 import Dodge.Data
diff --git a/src/Dodge/Floor.hs b/src/Dodge/Floor.hs
index 582c8810e..c1e9e8dc2 100644
--- a/src/Dodge/Floor.hs
+++ b/src/Dodge/Floor.hs
@@ -4,7 +4,7 @@
 module Dodge.Floor
     ( initialRoomTree
     ) where
-import Dodge.UseAll
+import Dodge.Cleat
 --import Geometry.Data
 --import Dodge.Data
 import Dodge.LockAndKey
diff --git a/src/Dodge/LockAndKey.hs b/src/Dodge/LockAndKey.hs
index 4a6ee6bc1..ff08ba44a 100644
--- a/src/Dodge/LockAndKey.hs
+++ b/src/Dodge/LockAndKey.hs
@@ -1,6 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.LockAndKey where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Data
 import Dodge.Tree
 --import Dodge.LevelGen.Data
diff --git a/src/Dodge/Room/BlinkAcross.hs b/src/Dodge/Room/BlinkAcross.hs
index aff99311e..f7a7da9e8 100644
--- a/src/Dodge/Room/BlinkAcross.hs
+++ b/src/Dodge/Room/BlinkAcross.hs
@@ -1,7 +1,7 @@
 module Dodge.Room.BlinkAcross where
 --import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Data
 import Dodge.Tree
 --import Dodge.RoomLink
diff --git a/src/Dodge/Room/Branch.hs b/src/Dodge/Room/Branch.hs
index 48e0a1f8e..3487ccbf1 100644
--- a/src/Dodge/Room/Branch.hs
+++ b/src/Dodge/Room/Branch.hs
@@ -6,7 +6,7 @@ module Dodge.Room.Branch
 --import Geometry
 --import Dodge.LevelGen.Data
 import Dodge.Data
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Room.Door
 import Dodge.Room.Link
 import Dodge.Room.Procedural
diff --git a/src/Dodge/Room/Containing.hs b/src/Dodge/Room/Containing.hs
index cad2ecf5f..c98b4766f 100644
--- a/src/Dodge/Room/Containing.hs
+++ b/src/Dodge/Room/Containing.hs
@@ -8,7 +8,7 @@ import Dodge.Room.Procedural
 import Dodge.Room.Tanks
 import Dodge.Room.Link
 import Dodge.Room.Ngon
-import Dodge.UseAll
+import Dodge.Cleat
 import LensHelp
 import Geometry
 --import Dodge.Item.Equipment
diff --git a/src/Dodge/Room/GlassLesson.hs b/src/Dodge/Room/GlassLesson.hs
index f6b95812a..d4f7dbb65 100644
--- a/src/Dodge/Room/GlassLesson.hs
+++ b/src/Dodge/Room/GlassLesson.hs
@@ -1,6 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.GlassLesson where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Annotation.Data
 import Dodge.RoomLink
 import Dodge.Creature
diff --git a/src/Dodge/Room/LasTurret.hs b/src/Dodge/Room/LasTurret.hs
index f00beb187..c71ceed1a 100644
--- a/src/Dodge/Room/LasTurret.hs
+++ b/src/Dodge/Room/LasTurret.hs
@@ -1,7 +1,7 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.LasTurret where
 import Dodge.LevelGen.Data
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.PlacementSpot
 import Dodge.Data
 import Dodge.Tree
diff --git a/src/Dodge/Room/LongDoor.hs b/src/Dodge/Room/LongDoor.hs
index 3f730c0c8..c7c6d0d2a 100644
--- a/src/Dodge/Room/LongDoor.hs
+++ b/src/Dodge/Room/LongDoor.hs
@@ -3,7 +3,7 @@
  -}
 module Dodge.Room.LongDoor where
 import Dodge.Data
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.RoomLink
 import Dodge.Base
 import Dodge.Tree
diff --git a/src/Dodge/Room/LongRoom.hs b/src/Dodge/Room/LongRoom.hs
index 24e4cbe9c..b34d9813d 100644
--- a/src/Dodge/Room/LongRoom.hs
+++ b/src/Dodge/Room/LongRoom.hs
@@ -1,6 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.LongRoom where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.RoomLink
 import Dodge.Tree
 --import Dodge.Default.Room
diff --git a/src/Dodge/Room/Pillar.hs b/src/Dodge/Room/Pillar.hs
index fb85d4b41..7b640fb54 100644
--- a/src/Dodge/Room/Pillar.hs
+++ b/src/Dodge/Room/Pillar.hs
@@ -1,6 +1,6 @@
 module Dodge.Room.Pillar where
 import Dodge.Data
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.PlacementSpot
 import Dodge.Room.Modify.Girder
 import Dodge.LevelGen.Data
diff --git a/src/Dodge/Room/RezBox.hs b/src/Dodge/Room/RezBox.hs
index b39718a48..e226dc6fd 100644
--- a/src/Dodge/Room/RezBox.hs
+++ b/src/Dodge/Room/RezBox.hs
@@ -1,6 +1,6 @@
 module Dodge.Room.RezBox where
 import Dodge.LevelGen.Data
-import Dodge.UseAll
+import Dodge.Cleat
 --import Dodge.PlacementSpot
 --import Dodge.Room.RunPast
 import Dodge.RoomLink
diff --git a/src/Dodge/Room/RoadBlock.hs b/src/Dodge/Room/RoadBlock.hs
index bb20e6bb5..3b7ab55be 100644
--- a/src/Dodge/Room/RoadBlock.hs
+++ b/src/Dodge/Room/RoadBlock.hs
@@ -1,6 +1,6 @@
 {- Connecting rooms designed with a pass-through technique in mind.  -}
 module Dodge.Room.RoadBlock where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Data
 import Dodge.RoomLink
 import Geometry
diff --git a/src/Dodge/Room/Room.hs b/src/Dodge/Room/Room.hs
index 4b5ec6d15..eecd30882 100644
--- a/src/Dodge/Room/Room.hs
+++ b/src/Dodge/Room/Room.hs
@@ -8,7 +8,7 @@ module Dodge.Room.Room
     , pistolerRoom
     , spawnerRoom
     ) where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Data
 import Dodge.PlacementSpot
 import Dodge.RoomLink
diff --git a/src/Dodge/Room/RunPast.hs b/src/Dodge/Room/RunPast.hs
index 0ea17556b..3f6e0b9e2 100644
--- a/src/Dodge/Room/RunPast.hs
+++ b/src/Dodge/Room/RunPast.hs
@@ -1,7 +1,7 @@
 module Dodge.Room.RunPast 
     ( lockedStart
     ) where
-import Dodge.UseAll
+import Dodge.Cleat
 import Geometry.Polygon
 import Dodge.LevelGen.Data
 import Dodge.LightSource
diff --git a/src/Dodge/Room/SensorDoor.hs b/src/Dodge/Room/SensorDoor.hs
index cc18a3eee..977e51e2e 100644
--- a/src/Dodge/Room/SensorDoor.hs
+++ b/src/Dodge/Room/SensorDoor.hs
@@ -1,7 +1,7 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.SensorDoor where
 import Dodge.Annotation.Data
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
 import Dodge.Placement.Instance.Terminal
diff --git a/src/Dodge/Room/Start.hs b/src/Dodge/Room/Start.hs
index 81f6e9c05..6793cc647 100644
--- a/src/Dodge/Room/Start.hs
+++ b/src/Dodge/Room/Start.hs
@@ -3,7 +3,7 @@ module Dodge.Room.Start
     ( startRoom
     , randomChallenges
     ) where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Data
 import Dodge.LevelGen.Data
 --import Dodge.PlacementSpot
@@ -82,38 +82,19 @@ rezBoxStart = do
     ls <- rezColor
     return $ treePost [ rezBox ls, cleatOnward door ]
 
-rezBoxesThenWeaponRoom :: RandomGen g => Int -> State g (MetaTree Room String)
-rezBoxesThenWeaponRoom i = do
-    rboxes <- rezBoxes
-    wroom  <- weaponRoom i
-    return $ attachOnward "rezBoxesThenWeaponRoom" rboxes wroom
-
 preCritStart :: RandomGen g => State g (MetaTree Room String)
 preCritStart = join $ takeOneWeighted 
-    [10,10,(1::Float)]
+    [10,10,1::Float]
     [rezBoxes
     ,rezBox'
     ,attachOnward "rezBoxPowerFakeout" <$> rezBox' <*> powerFakeout'
     ]
 
-startThenWeaponRoom :: RandomGen g => Int -> State g (MetaTree Room String)
-startThenWeaponRoom i = do
-    startrm <- preCritStart
-    wroom <- weaponRoom i
-    return $ attachOnward "rezBoxThenWeaponRoom" startrm wroom
-
-rezBoxThenRoom :: RandomGen g => Room -> State g (Tree Room)
-rezBoxThenRoom r = do
-    rcol <- rezColor
-    return $ treeFromTrunk [ rezBox rcol, cleatOnward door] $ pure r
-
-rezBoxThenRooms :: RandomGen g => Tree Room -> State g (Tree Room)
-rezBoxThenRooms r = do
-    rcol <- rezColor
-    return . treeFromTrunk [ rezBox rcol, door] $ r
-
 startCrafts :: RandomGen g => State g [Item]
 startCrafts = takeOne $ map (map makeTypeCraft)
     [ [PIPE,PIPE,HARDWARE]
     , [TUBE,PIPE,HARDWARE]
+    , [PIPE,HARDWARE,HARDWARE]
+    , [TUBE,TUBE,HARDWARE]
+    , [TUBE,HARDWARE,HARDWARE]
     ]
diff --git a/src/Dodge/Room/Warning.hs b/src/Dodge/Room/Warning.hs
index 965f146db..0a6de658c 100644
--- a/src/Dodge/Room/Warning.hs
+++ b/src/Dodge/Room/Warning.hs
@@ -1,6 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.Warning where
-import Dodge.UseAll
+import Dodge.Cleat
 import Dodge.Terminal
 --import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
diff --git a/src/Dodge/UseAll.hs b/src/Dodge/UseAll.hs
deleted file mode 100644
index 7cd789e2e..000000000
--- a/src/Dodge/UseAll.hs
+++ /dev/null
@@ -1,31 +0,0 @@
---{-# LANGUAGE TupleSections #-}
-module Dodge.UseAll 
-    ( toLabel
-    , cleatOnward
-    , cleatSide
-    , rToOnward
-    , cleatLabel
-    ) where
-import Dodge.Data
-import Dodge.Tree.Compose
-
-import Data.Tree
-import Control.Lens
-import qualified Data.Set as S
-
-toLabel :: Int -> Room -> Maybe Room
-toLabel i rm
-    | LabelCluster i `elem` rm ^?! rmClusterStatus . csLinks = Just rm
-    | otherwise = Nothing
-
-rToOnward :: Monad m => String -> Tree Room -> m (MetaTree Room String)
-rToOnward s t = return $ tToBTree s t
-
-cleatOnward :: Room -> Room
-cleatOnward = rmClusterStatus . csLinks .~ S.singleton OnwardCluster
-
-cleatSide :: Room -> Room
-cleatSide = rmClusterStatus . csLinks . at SideCluster ?~ ()
-
-cleatLabel :: Int -> Room -> Room
-cleatLabel i = rmClusterStatus . csLinks .~ S.singleton (LabelCluster i)