diff --git a/src/Dodge/Creature/Action.hs b/src/Dodge/Creature/Action.hs index dcd8b7833..a1257dfa3 100644 --- a/src/Dodge/Creature/Action.hs +++ b/src/Dodge/Creature/Action.hs @@ -20,7 +20,7 @@ import Data.Maybe import Dodge.Base import Dodge.Creature.Action.Blink import Dodge.CreatureEffect -import Dodge.Data.SelectionList +--import Dodge.Data.SelectionList import Dodge.Data.World import Dodge.Default import Dodge.FloatFunction @@ -191,7 +191,8 @@ youDropItem :: World -> World youDropItem w = fromMaybe w $ do curpos <- you w ^? crManipulation . manObject . imSelectedItem - <|> fmap fst (IM.lookupMax =<< w ^? hud . hudElement . diSections . ix 0 . ssItems) +-- <|> fmap fst (IM.lookupMax =<< w ^? hud . hudElement . diSections . ix 0 . ssItems) + <|> fmap fst (IM.lookupMax (you w ^. crInv)) guard $ not $ _crInvLock (you w) return $ w