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