Start simplifying/removing Wall records

2025-10-23 18:11:01 +01:00
parent fc7c4d6468
commit 819f0d37ea
18 changed files with 230 additions and 243 deletions
@@ -73,7 +73,7 @@ twinSlowDoorRoom w h x =
        ]
    thedoor btid =
        defaultDoor
-            & drSpeed .~ wlSpeed
+            & drUpdate . drLerpSpeed .~ wlSpeed
 --            & drTrigger .~ WdBlBtNotOff btid
            & drTrigger .~ WdBlBtOn btid
    col = dim $ dim $ bright red
@@ -334,4 +334,4 @@ centerVaultRoom w h d =
    thedoor btid =
        defaultDoor
            & drTrigger .~ WdBlBtOn btid
-            & drSpeed .~ 2
+            & drUpdate . drLerpSpeed .~ 2