Work on airlocks

2025-08-23 17:42:36 +01:00
parent f641805845
commit 32d7120177
19 changed files with 380 additions and 334 deletions
@@ -39,6 +39,6 @@ triggerDoorRoom inplid =
        -- note no bounds
        }
  where
-    f (pmnt : _) = putDoubleDoor DoorObstacle (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
-    f _ = error "tried to put a door using an empty placement list"
+    f _ (pmnt : _) = putDoubleDoor DoorObstacle (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
+    f _ _ = error "tried to put a door using an empty placement list"
    cond pmnt = WdTrig $ fromJust (_plMID pmnt)