Improve door crushing

2026-03-26 19:21:10 +00:00
parent 31d7a00ecf
commit 01b765300e
10 changed files with 107 additions and 87 deletions
@@ -352,7 +352,7 @@ muzzleWallCheck w cr = fromMaybe cr $ do
        cp = cr ^. crPos . _xy
 --        cop = cr ^. crOldPos . _xy
    r <- boundPointsRect (cp : ps)
-    let wls = uncurry wlsNearRect r w & filter (not . _wlTouchThrough)
+    let wls = uncurry wlsNearRect r w & IM.elems & filter (not . _wlTouchThrough)
        vs = mapMaybe (g cp wls) ps
    return $ if null vs 
        then cr