Work on bee/slime pincushion

src/Dodge/Creature/Update.hs

@@ -107,9 +107,9 @@ updateBeeCrit cr cid w
     , x >= 0.5
         = w & tocr . crType . beeSlime -~ 0.5
     | Just hcr <- gethive
-    , Just _ <- cr ^? crStance . carriage . mountID
+    , Just mid <- cr ^? crStance . carriage . mountID
     , Just x <- cr ^? crType . beeSlime 
-    , x >= 15
+    , x >= 15 || mountshakeoff mid
         = w & tocr . crActionPlan . apAction .~ PathTo (hcr ^. crPos . _xy) NoAction
             & tocr . crStance . carriage .~ Flying 0
     | Just hcr <- gethive
@@ -120,8 +120,11 @@ updateBeeCrit cr cid w
     ,  Just tcr <- find isslime $ crsNearCirc (cr ^. crPos . _xy) 100 w =
          w & tocr . crActionPlan . apStrategy .~ HarvestFrom (tcr ^. crID)
     | Just (tcr,ti) <- gettarg
-    , distance (cr ^. crPos . _xy) (tcr ^. crPos . _xy) < 0.5*crRad (tcr ^. crType) = w
-        & tocr . crStance . carriage .~ Mounted ti (cr ^. crPos - tcr ^. crPos)
+    , distance (cr ^. crPos . _xy) (tcr ^. crPos . _xy) < 0.5*crRad (tcr ^. crType) 
+    , Just r <- tcr ^? crType . slimeRad
+    , Just d <- tcr ^? crType . slimeCompression
+        = w
+        & tocr . crStance . carriage .~ Mounted ti (cr ^. crPos - tcr ^. crPos & _xy %~ compressionScale (vNormal ((1/r) *^d)))
     | Just tid <- cr ^? crStance . carriage . mountID
     , Just SlimeCrit{} <- w ^? cWorld . lWorld . creatures . ix tid . crType = w
         & tocr . crType . beeSlime +~ sspeed
@@ -130,7 +133,11 @@ updateBeeCrit cr cid w
             & tocr . crActionPlan . apAction .~ PathTo (tcr ^. crPos . _xy) NoAction
     | otherwise = w & tocr . crActionPlan . apStrategy .~ Search
   where
-    sspeed = 0.1
+    mountshakeoff mid = fromMaybe True $ do
+        mcr <- w ^? cWorld . lWorld . creatures . ix mid
+        SlimeCrit {_slimeSplitTimer = x} <- mcr ^? crType
+        return $ x > 0
+    sspeed = 0.05
     gettarg = do
         i <- cr ^? crActionPlan . apStrategy . harvestTarget 
         tcr <-  w ^? cWorld . lWorld . creatures . ix i