Add missing file, workaround for placement positions bug

2022-03-08 07:59:36 +00:00
parent 79b5241c32
commit 59e6f433ff
16 changed files with 67 additions and 86 deletions
@@ -66,7 +66,7 @@ anoToRoomTree anos = case anos of
    [AirlockAno] -> airlock >>=  roomThenCorridor
    [FirstWeapon] -> do
        branchWP <- branchRectWith weaponRoom
-        blockedC <- longBlockedCorridor
+        blockedC <- longBlockedCorridor 3
        join $ takeOne $ return (passUntilUseAll branchWP [blockedC]) : replicate 5 weaponRoom
    [EndRoom] -> fmap (pure . UseAll) (telRoomLev 1)
    (SpecificRoom rt:_) -> rt