Start trying to remove _ssItems as much as possible
This commit is contained in:
@@ -20,7 +20,7 @@ import Data.Maybe
|
|||||||
import Dodge.Base
|
import Dodge.Base
|
||||||
import Dodge.Creature.Action.Blink
|
import Dodge.Creature.Action.Blink
|
||||||
import Dodge.CreatureEffect
|
import Dodge.CreatureEffect
|
||||||
import Dodge.Data.SelectionList
|
--import Dodge.Data.SelectionList
|
||||||
import Dodge.Data.World
|
import Dodge.Data.World
|
||||||
import Dodge.Default
|
import Dodge.Default
|
||||||
import Dodge.FloatFunction
|
import Dodge.FloatFunction
|
||||||
@@ -191,7 +191,8 @@ youDropItem :: World -> World
|
|||||||
youDropItem w = fromMaybe w $ do
|
youDropItem w = fromMaybe w $ do
|
||||||
curpos <-
|
curpos <-
|
||||||
you w ^? crManipulation . manObject . imSelectedItem
|
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)
|
guard $ not $ _crInvLock (you w)
|
||||||
return $
|
return $
|
||||||
w
|
w
|
||||||
|
|||||||
Reference in New Issue
Block a user