Move toward moving lights on doors

2022-03-09 22:41:17 +00:00
parent 027b4b7d8b
commit c583d33b57
6 changed files with 31 additions and 25 deletions
@@ -117,7 +117,8 @@ addButtonSlowDoor x h rm = do
    belowH y = (sndV2 . fst) y < h - 40
    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
+        $  \btid -> Just $ putDoubleDoorThen False col (cond' btid) (V2 0 h) (V2 x h) 2
+        $ \dr1 dr2 -> Nothing
    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