Move towards incorporating sound into ai

src/Dodge/Creature/ChooseTarget.hs

@@ -3,7 +3,7 @@ module Dodge.Creature.ChooseTarget
 import Dodge.Data
 import Dodge.Base
 import Dodge.Base.Collide
-import Dodge.Creature.AlertLevel.Data
+import Dodge.Creature.Perception.Data
 
 import Control.Lens
 --import qualified Data.IntMap.Strict as IM
@@ -17,7 +17,8 @@ targetYouLOS cr w
 targetYouCognizant :: Creature -> World -> Maybe Creature
 targetYouCognizant cr w 
     | hasLOS (_crPos cr) (_crPos $ you w) w
-        && isCog (cr ^? crAwarenessLevel . ix 0) = Just $ you w
+        && isCog (cr ^? crPerception . crAwarenessLevel . ix 0) 
+                = Just $ you w
     | otherwise = Nothing
   where
     isCog x = case x of