From 34d8425520e0daca61cea1460be03d938a1aed11 Mon Sep 17 00:00:00 2001 From: justin Date: Fri, 8 May 2026 10:50:36 +0100 Subject: [PATCH] Speed up slime rad change --- src/Dodge/Creature/Update.hs | 4 ++-- src/Dodge/TestString.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Dodge/Creature/Update.hs b/src/Dodge/Creature/Update.hs index accd3e4a0..35cdb0bc9 100644 --- a/src/Dodge/Creature/Update.hs +++ b/src/Dodge/Creature/Update.hs @@ -301,8 +301,8 @@ setSlimeDir cid cr w = do doSlimeRadChange :: Creature -> Creature doSlimeRadChange = crType . slimeSlimeChange %~ f where - f x | x > 100 = x - 100 - | x < -100 = x + 100 + f x | x > 1000 = x - 1000 + | x < -1000 = x + 1000 | otherwise = 0 splitSlimeCrit' :: Point2 -> Point2 -> Int -> Creature -> World -> Maybe World diff --git a/src/Dodge/TestString.hs b/src/Dodge/TestString.hs index 8d7aaeb87..bcb236a14 100644 --- a/src/Dodge/TestString.hs +++ b/src/Dodge/TestString.hs @@ -58,8 +58,8 @@ crs :: Universe -> [Creature] crs u = u ^.. uvWorld . cWorld . lWorld . creatures . each testStringInit :: Universe -> [String] -testStringInit u = [show . getSum $ foldMap (Sum . crslime) (crs u)] - --u = u ^.. tocrs . each . filtered isBee . crActionPlan . apStrategy . to show +testStringInit u = -- [show . getSum $ foldMap (Sum . crslime) (crs u)] + u ^.. tocrs . each . crType . slimeSlimeChange . 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