Tweak creature awareness

src/Dodge/Creature/Perception.hs

@@ -147,8 +147,8 @@ awakeLevelPerception :: Creature -> Float
 awakeLevelPerception cr = case _crAwakeLevel $ _crPerception cr of
     Comatose    -> 0
     Asleep      -> 10
-    Lethargic   -> 100
+    Lethargic   -> 200
-    Vigilant    -> 1000
+    Vigilant    -> 500
     Overstrung  -> 10000
 
 newSounds :: World -> [(Point2,Float)]
@@ -166,7 +166,6 @@ rememberSounds w cr = cr
     awakeupdate | null closesounds = id
         | otherwise = crPerception . crAwakeLevel .~ Vigilant
     closesounds = map fst (filter (soundIsClose cr) (newSounds w))
-    
 
 soundIsClose :: Creature -> (Point2,Float) -> Bool
 soundIsClose cr (pos,vol) = vol > (_auDist . _crAudition $ _crPerception cr) (dist pos (_crPos cr))

src/Dodge/Creature/ReaderUpdate.hs

@@ -107,7 +107,7 @@ viewTarget w cr = do
                     & crActionPlan . crAction %~ replaceNullWith (TurnToA p)
                     & crIntention . viewPoint .~ Nothing
                | otherwise -> cr' & crActionPlan . crAction %~ replaceNullWith (PathTo p)
-        Nothing -> cr & crPerception . crAwakeLevel .~ Lethargic
+        Nothing -> cr-- & crPerception . crAwakeLevel .~ Lethargic
   where
     cr' = cr & crPerception . crAwakeLevel .~ Vigilant
 

src/Dodge/Default.hs

@@ -104,7 +104,7 @@ defaultIntention = Intention
     }
 defaultChaseMvType :: CrMvType
 defaultChaseMvType = CrMvType
-    { _mvSpeed = 3
+    { _mvSpeed = 2
     , _mvTurnRad = f
     , _mvTurnJit = 0.2
     , _mvAimSpeed   = g
@@ -128,7 +128,7 @@ defaultAimingCrit :: Creature
 defaultAimingCrit = defaultCreature { _crMvType = defaultAimMvType }
 
 yourDefaultSpeed :: Float
-yourDefaultSpeed = 4
+yourDefaultSpeed = 3
 
 yourDefaultStrideLength :: Int
 yourDefaultStrideLength = 40