Constinue work on respawn

2025-08-14 19:22:26 +01:00
parent dd1f3b2ef5
commit 04c60151e1
7 changed files with 153 additions and 157 deletions
@@ -34,11 +34,7 @@ rezBox' = do
    return $
        tToBTree "rezBox'" $
            treePost
-                [ roomRect 40 60 1 1
-                    & rmPmnts .~ [sPS (V2 20 1) 0 $ PutLS col]
-                    & restrictInLinks (\(V2 _ h, _) -> h < 1)
-                    & restrictOutLinks (\(V2 _ h, _) -> h > 59)
-                    & rmName .~ "rezBox"
+                [ rezBox col
                , cleatOnward door
                ]