This commit is contained in:
2025-10-29 12:18:55 +00:00
parent c9ec962575
commit 40c1907689
5 changed files with 11 additions and 16 deletions
+2 -1
View File
@@ -14,6 +14,7 @@ doWdBl wb w = case wb of
WdBlDoorMoving i -> fromMaybe False $ do
dr <- w ^? cWorld . lWorld . doors . ix i
return (0 /= _drLerp dr && 1 /= _drLerp dr)
WdBlCrFilterNearPoint r p t -> any (crNearPoint r p) (IM.filter (doCrBl t) (w ^. cWorld . lWorld . creatures))
WdBlCrFilterNearPoint r p t
-> any (crNearPoint r p) (IM.filter (doCrBl t) (w ^. cWorld . lWorld . creatures))
WdBlBtOn btid -> w ^?! cWorld . lWorld . buttons . ix btid . btEvent . btOn -- unsafe
WdBlNegate x -> not $ doWdBl x w