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
2024-11-04 10:28:21 +00:00
parent 2a314d22e3
commit 0237e655b5
4 changed files with 75 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+13 -16
View File
@@ -384,26 +384,23 @@ shiftInvItemsDown (_, i) x w = fromMaybe w $ do
g i' m = fst <$> IM.lookupGT i' m
updateMouseOverInventory :: Configuration -> World -> World
updateMouseOverInventory cfig w = fromMaybe
(w & hud . hudElement . diMouseOver .~ Nothing)
$ do
sss <- w ^? hud . hudElement . diSections
guard $ ButtonRight `M.notMember` (w ^. input . mouseButtons)
|| not (null $ w ^? hud . hudElement . subInventory . ciSelection)
return $
w & hud . hudElement . diMouseOver
.~ inverseSelNumPos cfig ldp sss (w ^. input . mousePos)
updateMouseOverInventory cfig w =
w & hud . hudElement . diMouseOver .~ newmouseover
where
ldp = invDisplayParams w
newmouseover = do
sss <- w ^? hud . hudElement . diSections
guard $
ButtonRight `M.notMember` (w ^. input . mouseButtons)
|| not (null $ w ^? hud . hudElement . subInventory . ciSelection)
inverseSelNumPos cfig (invDisplayParams w) sss (w ^. input . mousePos)
updateMouseOverCombineInventory :: Configuration -> World -> World
updateMouseOverCombineInventory cfig w = fromMaybe w $ do
sss <- w ^? hud . hudElement . subInventory . ciSections
return $
w & hud . hudElement . subInventory . ciMouseOver
.~ inverseSelNumPos cfig ldp sss (w ^. input . mousePos)
updateMouseOverCombineInventory cfig w =
w & hud . hudElement . subInventory . ciMouseOver .~ newmouseover
where
ldp = secondColumnParams
newmouseover = do
sss <- w ^? hud . hudElement . subInventory . ciSections
inverseSelNumPos cfig secondColumnParams sss (w ^. input . mousePos)
updateWheelEvents :: World -> World
updateWheelEvents w