Fix equipment equipping/moving with right click

2024-11-04 20:41:20 +00:00
parent 489ff21e12
commit 38ab6a35da
9 changed files with 124 additions and 118 deletions
@@ -91,7 +91,7 @@ drawRootCursor w sss msel ldp cfig = fromMaybe mempty $ do
    inv <- w ^? cWorld . lWorld . creatures . ix 0 . crInv
    (x,y) <- getRootItemBounds j inv
    return $ drawSSMultiCursor sss (Just (0,x)) (Just (y- x)) ldp 
-        (BoundaryCursor [minBound .. maxBound])  cfig 
+        (BoundaryCursor [minBound ..])  cfig 

 getRootItemBounds :: Int -> IM.IntMap Item -> Maybe (Int,Int)
 getRootItemBounds i inv = do