Can pick up items by dragging

2024-11-25 14:03:42 +00:00
parent 691ed23eb4
commit 951d1191cc
4 changed files with 30 additions and 23 deletions
@@ -206,10 +206,11 @@ hasLOS p1 p2 =

 hasButtonLOS :: Point2 -> Point2 -> World -> Bool
 {-# INLINE hasButtonLOS #-}
-hasButtonLOS p1 p2 =
-    not
-        . collidePointTestFilter (not . _wlTouchThrough) p1 p2
-        . wlsNearSeg p1 p2
+hasButtonLOS _ _ = const True
+--hasButtonLOS p1 p2 =
+--    not
+--        . collidePointTestFilter (not . _wlTouchThrough) p1 p2
+--        . wlsNearSeg p1 p2

 hasLOSIndirect :: Point2 -> Point2 -> World -> Bool
 {-# INLINE hasLOSIndirect #-}