Add bee crits

src/Dodge/Creature/Update.hs

@@ -3,6 +3,9 @@
 module Dodge.Creature.Update (updateCreature) where
 
 --import Dodge.WorldEvent.ThingsHit
+import Dodge.Creature.Radius
+import Dodge.Zoning.Creature
+import Dodge.Creature.ChaseCrit
 import Dodge.Creature.Damage
 import Color
 import Control.Monad
@@ -52,7 +55,7 @@ damageCorpse :: Int -> Creature -> World -> World
 damageCorpse _ cr w = w & applyCreatureDamage (cr ^. crDamage) cr
 
 updateLivingCreature :: Creature -> World -> World
-updateLivingCreature cr = case _crType cr of
+updateLivingCreature cr = case cr ^. crType of
     Avatar{} ->
         (cWorld . lWorld . creatures . ix 0 . crType . avatarPulse %~ updatePulse)
             . crUpdate cid
@@ -71,9 +74,72 @@ updateLivingCreature cr = case _crType cr of
             over (cWorld . lWorld . creatures . ix cid) (hoverCritInternal w) w
     SlinkCrit{} -> slinkCritUpdate cid
     SlimeCrit{} -> slimeCritUpdate cid
+    BeeCrit{} -> crUpdate cid . performActions cid . updateBeeCrit cr cid
+    HiveCrit{} -> crUpdate cid . performActions cid . updateHiveCrit cr cid
   where
     cid = cr ^. crID
 
+updateHiveCrit :: Creature -> Int -> World -> World
+updateHiveCrit cr cid w
+    | Just x <- cr ^? crType . hiveChildren . to length
+    , x < 10
+    , Just y <- cr ^? crType . hiveGestation
+    , y == 0 = w 
+        & tocr . crType . hiveChildren .:~ nid
+        & tocr . crType . hiveGestation .~ 50
+        & cWorld . lWorld . creatures . at nid ?~ ncr
+    | Just x <- cr ^? crType . hiveChildren . to length
+    , x < 10 = w
+        & tocr . crType . hiveGestation %~ (max 0 . subtract 1)
+    | otherwise = w
+  where
+    tocr = cWorld . lWorld . creatures . ix cid
+    nid = IM.newKey $ w ^. cWorld . lWorld . creatures
+    ncr = beeCrit & crPos .~ (cr ^. crPos + (0 & _xy +~ 25))
+        & crID .~ nid
+        & crType . beeHive ?~ cid
+
+updateBeeCrit :: Creature -> Int -> World -> World
+updateBeeCrit cr cid w 
+    | Just hcr <- gethive
+    , distance (cr ^. crPos . _xy) (hcr ^. crPos . _xy) < 30 
+    , Just x <- cr ^? crType . beeSlime 
+    , x >= 0.5
+        = w & tocr . crType . beeSlime -~ 0.5
+    | Just hcr <- gethive
+    , Just _ <- cr ^? crStance . carriage . mountID
+    , Just x <- cr ^? crType . beeSlime 
+    , x >= 15
+        = w & tocr . crActionPlan . apAction .~ PathTo (hcr ^. crPos . _xy) NoAction
+            & tocr . crStance . carriage .~ Flying 1
+    | Nothing <- cr ^? crActionPlan . apStrategy . harvestTarget 
+    ,  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)
+    | Just tid <- cr ^? crStance . carriage . mountID
+    , Just SlimeCrit{} <- w ^? cWorld . lWorld . creatures . ix tid . crType = w
+        & tocr . crType . beeSlime +~ 0.5
+        & cWorld . lWorld . creatures . ix tid . crType . slimeRad %~ (sqrt . subtract 0.5 . (^(2::Int)))
+    | Just (tcr,_) <- gettarg = w
+            & tocr . crActionPlan . apAction .~ PathTo (tcr ^. crPos . _xy) NoAction
+    | otherwise = w & tocr . crActionPlan . apStrategy .~ Search
+  where
+    gettarg = do
+        i <- cr ^? crActionPlan . apStrategy . harvestTarget 
+        tcr <-  w ^? cWorld . lWorld . creatures . ix i
+        x <- tcr ^? crType . slimeRad
+        guard $ x > 12
+        return (tcr,i)
+    gethive = do
+        i <- cr ^? crType . beeHive . _Just
+        w ^? cWorld . lWorld . creatures . ix i
+    tocr = cWorld . lWorld . creatures . ix cid
+    isslime tcr = case tcr ^. crType of
+        SlimeCrit {} -> True
+        _ -> False
+
 slimeCritUpdate :: Int -> World -> World
 slimeCritUpdate cid w 
     | r < 5 = w & cWorld . lWorld . creatures . ix cid . crHP .~ CrDestroyed Gibbed
@@ -251,10 +317,7 @@ checkDeath' cr w = case cr ^. crHP of
     tocr = cWorld . lWorld . creatures . ix (_crID cr)
 
 startDeathTimer :: Creature -> Creature
-startDeathTimer cr =
-    cr
-        & crDeathTimer
-        ?~ case cr ^. crType of
+startDeathTimer cr = cr & crDeathTimer ?~ case cr ^. crType of
             HoverCrit{} -> 0
             _ -> 5