Add laser central room, using new placement/roompos functionality

2021-11-21 17:44:32 +00:00
parent 48cd59069c
commit 2f3896345d
12 changed files with 127 additions and 76 deletions
@@ -116,7 +116,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'
+    butPosCond (UnusedLink (V2 x' y') a') | y' < 0.5 * h 
+                = Just (PS (V2 x' y') a' , PosPl (V2 x' y') a')
    butPosCond _ = Nothing
    --butPosCond _ = True -- y < h
    col = dim $ light red