module Dodge.WorldBool
    where
import Dodge.Data
import Data.Maybe
import Control.Lens

doWdBl :: WdBl -> World -> Bool
doWdBl wb w = case wb of
    WdTrig i -> fromMaybe False $ w ^? triggers . ix i
    WdBlDoorMoving i -> fromMaybe False $ do
        dr <- w ^? doors . ix i
        return (DoorHalfway == _drStatus dr)