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

Cleanup buttons

Browse Source
This commit is contained in:
justin
2025-06-25 22:10:38 +01:00
parent 2f130c5bed
commit a25fa34461
3 changed files with 55 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/SelectedClose.hs
+4 -5
View File
@@ -1,16 +1,15 @@
module Dodge.SelectedClose (getSelectedCloseObj,interactWithCloseObj) where
module Dodge.SelectedClose (getSelectedCloseObj, interactWithCloseObj) where
import Dodge.Button.Event
import Dodge.Inventory.Add
import Control.Lens
import Dodge.Button.Event
import Dodge.Data.World
import Dodge.Inventory.Add
import NewInt
interactWithCloseObj :: Either FloorItem Button -> World -> World
interactWithCloseObj e w = worldEventFlags . at InventoryChange ?~ () $ case e of
(Left flit) -> pickUpItem 0 flit w
(Right but) -> doButtonEvent (_btEvent but) but w
(Right but) -> doButtonEvent (but ^. btEvent) but w
getSelectedCloseObj :: World -> Maybe (Either FloorItem Button)
getSelectedCloseObj w = do