13 lines
324 B
Haskell
13 lines
324 B
Haskell
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)
|