Implement different door speeds

2025-10-25 09:57:13 +01:00
parent 3f5f5d2c6b
commit c2cc38a642
7 changed files with 72 additions and 89 deletions
@@ -132,19 +132,17 @@ addButtonSlowDoor x h rm = do
            .++~ [MountedLS (fromJust $ _plMID plls), MountedProp (fromJust $ _plMID plpr)]
    -- TODO make the height of this light source and of other mounted lights
    -- be taken from a single consistent source
-    --thewall = switchWallCol red
-    thewall = defaultDoorWall
    butDoor = putLitButOnPos
        col
        (rprBool (isUnusedLnkType InLink))
        $ \btplmnt -> Just $
            putDoubleDoorThen
-                thewall
+                defaultDoorWall
                (WdBlBtOn $ fromJust $ _plMID btplmnt)
                30
                (V2 0 h)
                (V2 x h)
-                2
+                0.5
                $ \dr1 dr2 ->
                    amountedlight dr1 50 $
                        amountedlight dr1 (-50) $