Implement basic attention and awareness

src/Dodge/Creature/ChooseTarget.hs

@@ -2,8 +2,22 @@ module Dodge.Creature.ChooseTarget
     where
 import Dodge.Data
 import Dodge.Base
+import Dodge.Creature.AlertLevel.Data
+
+import Control.Lens
+import qualified Data.IntMap.Strict as IM
 
 targetYouLOS :: Creature -> World -> Maybe Creature
 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 ^? crAwarenessLevel . ix 0) = Just $ you w
+    | otherwise = Nothing
+  where
+    isCog x = case x of
+        Just (Cognizant _) -> True
+        _ -> False