justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-06-20 18:02:33 +01:00
parent 4a84b70801
commit 86b10d02c8
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Inventory/Path.hs
+7 -7
View File
@@ -7,12 +7,12 @@ import Control.Monad
getInventoryPath :: Int -> InventoryPathing -> Int -> Creature -> Maybe Int getInventoryPath :: Int -> InventoryPathing -> Int -> Creature -> Maybe Int
getInventoryPath x ip itid cr = case ip of getInventoryPath x ip itid cr = case ip of
ABSOLUTE | x `IM.member` (cr ^. crInv) -> Just x ABSOLUTE -> checkinvid x
RELCURS -> do RELCURS -> do
selid <- cr ^? crManipulation . manObject . imSelectedItem selid <- cr ^? crManipulation . manObject . imSelectedItem
guard $ (x + selid) `IM.member` (cr ^. crInv) checkinvid (x + selid)
return (x + selid) RELITEM -> checkinvid (itid + x)
RELITEM where
| (itid + x) `IM.member` (cr ^. crInv) -> checkinvid y = do
return $ itid + x guard $ y `IM.member` (cr ^. crInv)
_ -> Nothing return y