Add crab crit, rethink Action datatype slightly

2026-04-07 15:29:02 +01:00
parent 35d169b585
commit f0e568e694
25 changed files with 606 additions and 465 deletions
@@ -41,15 +41,8 @@ tocrs :: (IM.IntMap Creature
 tocrs = uvWorld . cWorld . lWorld . creatures

 testStringInit :: Universe -> [String]
-testStringInit u = 
-    [ show $ inverseSelNumPos (u ^. uvConfig) invDP 
-        (u ^. uvWorld . input . mousePos) (u ^. uvWorld . hud . diSections)
-    , show $ do
-            (i',xs) <- IM.lookupMax (u ^. uvWorld . hud . diSections)
-            (j',_) <- xs ^. ssItems . to IM.lookupMax
-            return (i',j')
-    ]
-
+testStringInit u = u ^.. tocrs . ix 1 . crActionPlan . apStrategy . to show
+    <> u ^.. tocrs . ix 1 . crActionPlan . apAction . to show
 --  where
 --    tocr = uvWorld . cWorld . lWorld . creatures . ix 0
 --    f = fromMaybe 0