From e927de6508180c6231063ceb03c892ef28d57f09 Mon Sep 17 00:00:00 2001 From: justin Date: Tue, 5 May 2026 20:41:09 +0100 Subject: [PATCH] Improve bee crit update --- src/Dodge/Creature/Update.hs | 1 + src/Dodge/TestString.hs | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Dodge/Creature/Update.hs b/src/Dodge/Creature/Update.hs index db17127ef..d37b56e2d 100644 --- a/src/Dodge/Creature/Update.hs +++ b/src/Dodge/Creature/Update.hs @@ -187,6 +187,7 @@ updateCalmBee cr cid w & tocr . crActionPlan . apAction .~ NoAction | Just (tcr,_) <- gettarg = w & tocr . crActionPlan . apAction .~ PathTo (tcr ^. crPos . _xy) NoAction + | Just (HarvestFrom{}) <- cr ^? crActionPlan . apStrategy = startsearch | Just (SearchTimed 0) <- cr ^? crActionPlan . apStrategy = starthivereturn | Just PathTo{} <- cr ^? crActionPlan . apAction = w & tocr . crActionPlan . apStrategy . searchTimer %~ (max 0 . subtract 1) diff --git a/src/Dodge/TestString.hs b/src/Dodge/TestString.hs index 3c347c8e6..b20178c8f 100644 --- a/src/Dodge/TestString.hs +++ b/src/Dodge/TestString.hs @@ -48,7 +48,8 @@ isBee cr = case cr ^. crType of _ -> False testStringInit :: Universe -> [String] -testStringInit u = u ^.. tocrs . each . filtered isBee . crActionPlan . apStrategy . to show +testStringInit _ = mempty + --u = u ^.. tocrs . each . filtered isBee . crActionPlan . apStrategy . to show -- u ^.. tocrs . ix 1 . crPos . _xy . to show -- <> u ^.. tocrs . ix 1 . crType . slimeCompression . to show -- <> u ^.. tocrs . ix 1 . crType . slimeCompression . to norm . to show