Automatically order placements

src/Dodge/Room/Tutorial.hs

@@ -53,8 +53,7 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , lasSensorTurretTest
---ccc        , passthroughLockKeyLists lockRoomKeyItems itemRooms
+        , passthroughLockKeyLists lockRoomKeyItems itemRooms
 --bbb        , --        , return . tToBTree "door" $ treePost [corridor, cleatOnward door]
 --bbb          corDoor
 --bbb        , --        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
@@ -107,7 +106,7 @@ foldMTRS xs = do
 
 setTreeInts :: Tree Room -> State LayoutVars ([Int], Tree Room)
 setTreeInts x = do
-    y <- traverse setRoomInt x
+    y <- traverse storeRoomID x
     return (foldMap ((: []) . fst) y, fmap snd y)
 
 tutDrop :: State LayoutVars (MetaTree Room String)
@@ -115,7 +114,7 @@ tutDrop = do
     x <- shuffleLinks =<< roomNgon 6 100
     i <- nextLayoutInt
     -- let y = decontamRoom i
-    (j, y) <- setRoomInt (decontamRoom i)
+    (j, y) <- storeRoomID (decontamRoom i)
     rm <- roomRectAutoLights 40 100
     return $
         tToBTree "TutDrop" $