Delete file

2023-02-20 00:13:43 +00:00
parent adbfe5b73b
commit ab69de73c7
1 changed files with 0 additions and 37 deletions
@@ -1,37 +0,0 @@
 {- Functions that affect the world according to what pressed buttons are stored in a Set.  -}
 module Dodge.Update.UsingInput (
 --    updateUsingInput,
 ) where
 import Control.Lens
 import qualified Data.Map.Strict as M
 import Dodge.Base.You
 --import Dodge.Combine
 import Dodge.Creature.Impulse.UseItem
 import Dodge.Data.Combine
 import Dodge.Data.SelectionList
 import Dodge.Data.World
 import Dodge.InputFocus
 --import Dodge.Inventory
 --import Dodge.Inventory.Add
 import Dodge.Terminal.LeftButton
 import Geometry
 import SDL
 --    maybeexitcombine w'
 --        | ButtonRight `M.member` _mouseButtons (_input w) =
 --            (hud . hudElement . subInventory . subInvMap %~ setShownIntMap) $
 --                (hud . hudElement . subInventory . subInvMap . smItems .~ combineList w') w'
 --        | otherwise = w' & hud . hudElement . subInventory .~ NoSubInventory
 -- note "sort" on the inventory indices; otherwise
 -- lower items may be shifted up and items below these removed instead
 doCombine :: Int -> World -> World
 doCombine i w = undefined
 -- case w ^? hud . hudElement . subInventory . subInvMap . smShownItems . ix i . siPayload of
 --    Nothing -> w
 --    Just (CombinableItem is it _) -> createAndSelectItem it $ foldr (rmInvItem 0) w (sort is)