Move towards incorporating sound into ai

src/Dodge/Creature/ChaseCrit.hs

@@ -8,7 +8,7 @@ import Dodge.Creature.Picture
 import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Impulse
 import Dodge.Creature.Action
-import Dodge.Creature.AlertLevel
+import Dodge.Creature.Perception
 import Dodge.Creature.State
 import Dodge.Creature.State.Data
 import Dodge.Item.Consumable
@@ -38,9 +38,10 @@ chaseCrit = defaultCreature
         doStrategyActionsR >=>
         performActionsR >=>
         overrideMeleeCloseTargetR >=>
-        setTargetMv (pure . _crTarget) >=>
+        setMvPos >=>
+--        setTargetMv (pure . _crTarget) >=>
         goToTarget >=>
-        basicPerceptionUpdateR [0] >=>
+        perceptionUpdate [0] >=>
         targetYouWhenCognizantR >=>
         return . (crMeleeCooldown %~ max 0 . subtract 1)
     , _crHP = 300