Improve doors

2026-03-24 00:35:15 +00:00
parent 7917192b77
commit 832bebb597
10 changed files with 190 additions and 165 deletions
@@ -40,7 +40,10 @@ data Door = Door
    , _drMounts :: [MountedObject]
    }

-data DoorUpdate = DoorDoNothing | DoorLerp {_drLerpSpeed :: Float}
+data DoorUpdate 
+    = DoorDoNothing 
+    | DoorLerp {_drLerpSpeed :: Float}
+    | DoorLerpWithTimer {_drLerpTimer :: Int, _drLerpSpeed :: Float}


 makeLenses ''Door