23 lines
609 B
Haskell
23 lines
609 B
Haskell
module Dodge.Creature.ChooseTarget where
|
|
|
|
import Control.Lens
|
|
import Dodge.Base
|
|
import Dodge.Data.World
|
|
|
|
targetYouLOS :: Creature -> World -> Maybe Creature
|
|
{-# INLINE targetYouLOS #-}
|
|
targetYouLOS cr w
|
|
| hasLOS (_crPos cr) (_crPos $ you w) w = Just $ you w
|
|
| otherwise = Nothing
|
|
|
|
targetYouCognizant :: Creature -> World -> Maybe Creature
|
|
targetYouCognizant cr w
|
|
| hasLOS (_crPos cr) (_crPos $ you w) w
|
|
&& isCog (cr ^? crPerception . cpAwareness . ix 0) =
|
|
Just $ you w
|
|
| otherwise = Nothing
|
|
where
|
|
isCog x = case x of
|
|
Just (Cognizant _) -> True
|
|
_ -> False
|