Simplify buttons

2025-06-25 21:37:32 +01:00
parent 6e9d4918a1
commit a9cae4d409
13 changed files with 130 additions and 140 deletions
@@ -73,7 +73,8 @@ twinSlowDoorRoom w h x =
    thedoor btid =
        defaultDoor
            & drSpeed .~ wlSpeed
-            & drTrigger .~ WdBlBtNotOff btid
+--            & drTrigger .~ WdBlBtNotOff btid
+            & drTrigger .~ WdBlBtOn btid
    col = dim $ dim $ bright red

 twinSlowDoorChasers :: RandomGen g => State g Room
@@ -134,7 +135,8 @@ addButtonSlowDoor x h rm = do
            putDoubleDoorThen
                DoorObstacle
                thewall
-                (WdBlBtNotOff $ fromJust $ _plMID btplmnt)
+--                (WdBlBtNotOff $ fromJust $ _plMID btplmnt)
+                (WdBlBtOn $ fromJust $ _plMID btplmnt)
                30
                (V2 0 h)
                (V2 x h)