Cleanup

2022-06-08 22:34:29 +01:00
parent 970858e129
commit 4e4759fb1c
17 changed files with 77 additions and 112 deletions
@@ -214,11 +214,6 @@ invSideEff :: Creature -> World -> World
 invSideEff cr w = weaponReloadSounds cr $ IM.foldrWithKey f w (_crInv cr)
  where 
    f i it w' = doItemTargeting i cr w' & maybe id (\g -> g it cr) (it ^? itEffect . ieInv)
--        Nothing -> id
--        Just g  -> g it cr
--    f i it w' = doItemTargeting i cr w' & case it ^? itEffect . ieInv of
--        Nothing -> id
--        Just g  -> g it cr

 itemUpdate :: Creature -> Int -> Item -> Item
 itemUpdate cr i