Cleanup
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user