Improve drag inventory selection

2026-04-06 19:01:57 +01:00
parent 608de9f2ed
commit 35d169b585
4 changed files with 32 additions and 11 deletions
@@ -41,8 +41,14 @@ tocrs :: (IM.IntMap Creature
 tocrs = uvWorld . cWorld . lWorld . creatures

 testStringInit :: Universe -> [String]
-testStringInit u = u ^.. tocrs . each . crStance . carriage . to show
-    <> u ^.. tocrs . each . crPos . _z . to show
+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')
+    ]

 --  where
 --    tocr = uvWorld . cWorld . lWorld . creatures . ix 0