Remove shrink gun

2024-10-06 22:09:55 +01:00
parent 597e8dd89d
commit 650854d13e
18 changed files with 17 additions and 99 deletions
@@ -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