Commit before door refactor

2022-06-23 09:30:46 +01:00
parent ee47ee8e95
commit 8e3f03637d
11 changed files with 76 additions and 17 deletions
@@ -111,15 +111,14 @@ addButtonSlowDoor x h rm = do
        (rprBool (isUnusedLnkType InLink))
        $  \btplmnt -> Just $ putDoubleDoorThen False col (cond' $ fromJust $ _plMID btplmnt) 
                            30 (V2 0 h) (V2 x h) 2
-        $ \dr1 dr2 -> amountedlight dr1 50
+        $ \dr1 dr2 -> 
+            amountedlight dr1 50
        $ amountedlight dr1 (-50)
        $ amountedlight dr2   50
        $ amountedlight dr2 (-50)
         Nothing
    getdoorpos drid w = let Just (a,b) = w ^? doors . ix drid . drPos
        in (b, argV (a-.-b))
-    --butPosCond = useRoomPosCond $ \rp _ -> isUnusedLnk' rp && yV2 (_rpPos rp) < 0.5 * h 
-    --butPosCond _ = True -- y < h
    col = dim $ light red
    cond' btid w = w ^? buttons . ix btid . btState /= Just BtOff