Add rooms, placements and room positions

2022-03-08 22:57:58 +00:00
parent 2e1c7f2687
commit ff6064a3b6
14 changed files with 315 additions and 138 deletions
@@ -118,8 +118,8 @@ addButtonSlowDoor x h rm = do
    aboveH y = (sndV2 . fst) y > h + 40
    butDoor _ _ = putLitButOnPos col butPosCond
        $  \btid -> Just $ putDoubleDoor False col (cond' btid) (V2 0 h) (V2 x h) 2
-    butPosCond (UnusedLink (V2 x' y') a') _ | y' < 0.5 * h 
-                = Just (PS (V2 x' y') a' , UsedSpot (V2 x' y') a')
+    butPosCond (UnusedLink (V2 x' y') a' _) _ | y' < 0.5 * h 
+                = Just (PS (V2 x' y') a' , UsedSpot (V2 x' y') a' (S.singleton RoomPosExLink))
    butPosCond _ _ = Nothing
    --butPosCond _ = True -- y < h
    col = dim $ light red