Add randomness to multiple crab evasions

src/Dodge/Humanoid.hs

@@ -26,20 +26,22 @@ chaseCritInternal w cr =
         , const (crVocalization %~ updateVocTimer)
         ]
 
-crabCritInternal :: World -> Creature -> Creature
-crabCritInternal w =
-    (crVocalization %~ updateVocTimer)
-        . (crType . meleeCooldownL %~ max 0 . subtract 1)
-        . (crType . meleeCooldownR %~ max 0 . subtract 1)
-        . (crType . dodgeCooldown %~ max 0 . subtract 1)
-        . searchIfDamaged
-        . targetYouWhenCognizant w
-        . perceptionUpdate [0] w
-        . crabActionUpdate w
-        . setMvPosToTargetCr w
-        . setViewPos w
+crabCritInternal :: Int -> World -> World
+crabCritInternal cid w =
+--    (crVocalization %~ updateVocTimer)
+        (tocr %~ ((crType . meleeCooldownL %~ max 0 . subtract 1)))
+        . (tocr %~ ((crType . meleeCooldownR %~ max 0 . subtract 1)))
+        . (tocr %~ ((crType . dodgeCooldown %~ max 0 . subtract 1)))
+        . (tocr %~ (searchIfDamaged))
+        . (tocr %~ (targetYouWhenCognizant w))
+        . (tocr %~ (perceptionUpdate [0] w))
+        . crabActionUpdate cid
+        . (tocr %~ (setMvPosToTargetCr w))
+        . (tocr %~ (setViewPos w))
 --        . overrideMeleeCloseTarget w
-        . doStrategyActions
+        $ (tocr %~ doStrategyActions) w
+  where
+    tocr = cWorld . lWorld . creatures . ix cid
 
 hoverCritInternal :: World -> Creature -> Creature
 hoverCritInternal w cr =