23 lines
989 B
Haskell
23 lines
989 B
Haskell
module Dodge.WorldBool where
|
|
|
|
import Control.Lens
|
|
import Data.Maybe
|
|
import Dodge.Creature.Test
|
|
import Dodge.CreatureEffect
|
|
import Dodge.Data.World
|
|
import qualified IntMapHelp as IM
|
|
|
|
doWdBl :: WdBl -> World -> Bool
|
|
doWdBl wb w = case wb of
|
|
WdBlConst bl -> bl
|
|
WdTrig i -> fromMaybe False $ w ^? cWorld . lWorld . triggers . ix i
|
|
WdBlDoorMoving i -> fromMaybe False $ do
|
|
dr <- w ^? cWorld . lWorld . doors . ix i
|
|
return (DoorHalfway == _drStatus dr)
|
|
WdBlCrFilterNearPoint r p t -> any (crNearPoint r p) (IM.filter (doCrBl t) (w ^. cWorld . lWorld . creatures))
|
|
--WdBlBtOn btid -> _btState (_buttons (_cWorld w) IM.! btid) == BtOn -- unsafe
|
|
WdBlBtOn btid -> (w ^?! cWorld . lWorld . buttons . ix btid . btState) == BtOn -- unsafe
|
|
--WdBlBtNotOff btid -> _btState (_buttons (_cWorld w) IM.! btid) /= BtOff -- unsafe
|
|
WdBlBtNotOff btid -> (w ^?! cWorld . lWorld . buttons . ix btid . btState) /= BtOff -- unsafe
|
|
WdBlNegate x -> not $ doWdBl x w
|