Implement terminals

2022-03-14 20:39:23 +00:00
parent 1b6f11709c
commit f16f32d9d3
30 changed files with 313 additions and 119 deletions
@@ -117,7 +117,7 @@ addButtonSlowDoor x h rm = do
         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 = 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