Cleanup

2022-06-14 16:23:15 +01:00
parent 0434968b73
commit af161bc82c
2 changed files with 4 additions and 2 deletions
@@ -57,10 +57,11 @@ startRoom i = join (takeOne
     --       <&> (,TreeSubLabelling "chainUses <$> sequence [powerFakeout,weaponRoom i]" Nothing))
     --     wat
     -- rezBoxesWp                >>= rToOnward "rezBoxesWp"
-    attachOnward "rezBoxThenWeaponRoom" <$> preCritStart <*> weaponRoom i
+--    attachOnward "startThenWeaponRoom" <$> preCritStart <*> weaponRoom i
 --     startThenWeaponRoom i
 --     rezBoxesWpCrit            >>= rToOnward "rezBoxesWpCrit"
 --     runPastStart i             >>= rToOnward ("runPastStart " ++ show i)
+     attachOnward "startThenCraft" <$> preCritStart <*> (startCrafts >>= roomsContaining [])
 --     startCrafts >>= roomsContaining' [] >>= preCritStart
 --        >>= rToOnward "startCrafts >>= roomsContaining [] >>= preCritStart"
    ])