Remove shrink gun

src/Dodge/Creature/Action.hs

@@ -186,16 +186,13 @@ youDropItem w = fromMaybe w $ do
     curpos <-
         you w ^? crManipulation . manObject . imSelectedItem
             <|> fmap fst (IM.lookupMax =<< w ^? hud . hudElement . diSections . sssSections . ix 0 . ssItems)
-    guard $ not $ _crInvLock (you w) || cursed
+    guard $ not $ _crInvLock (you w)
     return $
         w
             & dropItem cr curpos
             & soundStart (CrSound (_crID cr)) (_crPos cr) whiteNoiseFadeOutS Nothing
   where
     cr = you w
-    cursed = fromMaybe False $ do
-        it <- yourSelectedItem w
-        return $ it ^. itCurseStatus /= Uncursed
 
 sizeSelf :: Float -> Creature -> World -> Maybe World
 sizeSelf x cr w

src/Dodge/Creature/Impulse/UseItem.hs

@@ -5,6 +5,7 @@ module Dodge.Creature.Impulse.UseItem (
     useItemHotkey,
 ) where
 
+import Dodge.Luse
 import Dodge.SelectUse
 import Dodge.Item.Grammar
 import Dodge.Data.ComposedItem
@@ -19,7 +20,6 @@ import Dodge.HeldUse
 import Dodge.Hotkey
 import Dodge.Inventory
 import Dodge.Item.Location
-import Dodge.Luse
 import qualified IntMapHelp as IM
 
 useRootItem :: Int -> World -> World