Cleanup

src/Dodge/Creature/Update.hs

@@ -66,11 +66,8 @@ updateLivingCreature cr = case cr ^. crType of
             . yourControl
     LampCrit{} -> updateLampoid cr
     BarrelCrit bt -> updateBarreloid bt cr
-    ChaseCrit{} -> \w ->
-        crUpdate cid . performActions cid $
-            over (cWorld . lWorld . creatures . ix cid) (chaseCritInternal w) w
-    CrabCrit{} ->
-        crUpdate cid . performActions cid . crabCritInternal cid
+    ChaseCrit{} -> crUpdate cid . performActions cid . updateChaseCrit cid
+    CrabCrit{} -> crUpdate cid . performActions cid . crabCritInternal cid
     AutoCrit{} -> crUpdate cid
     SwarmCrit{} -> crUpdate cid
     HoverCrit{} -> \w ->
@@ -97,7 +94,7 @@ updateHiveCrit cr cid w
         & tocr . crType . hiveGestation %~ (max 0 . subtract 1)
     | otherwise = w
   where
-    nbees = 50
+    nbees = 25
     tocr = cWorld . lWorld . creatures . ix cid
     nid = IM.newKey $ w ^. cWorld . lWorld . creatures
     ncr = beeCrit & crPos .~ (cr ^. crPos + (0 & _xy +~ 25))
@@ -144,6 +141,7 @@ updateAggroBee cr cid w
     t = \case
         Avatar{} -> True
         ChaseCrit{} -> True
+        CrabCrit{} -> True
         _ -> False
 
 -- do bees need to be able to see slime targets?