Move to using RoomLink datatype

2021-11-23 20:45:39 +00:00
parent a66ea1d922
commit 1f2d767d5e
18 changed files with 160 additions and 122 deletions
@@ -34,4 +34,5 @@ centerVaultExplosiveExit = do
            ,sPS (V2 0 0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
            ]
    r <- centerVaultRoom 120 120 50 <&> rmPmnts %~ (extraPS ++)
-    randomiseLinksBy shuffleTail r <&> rmOutLinks %~ take 2
+    --randomiseLinksBy shuffleTail r <&> rmOutLinks %~ take 2
+    return $ r & rmOutLinks %~ take 2