Add burst fire, tentative inventory locking

2021-12-04 16:05:46 +00:00
parent 30abc318ae
commit cb670bdfd8
16 changed files with 108 additions and 18 deletions
@@ -210,9 +210,14 @@ dropItem cr invid = rmInvItem cid invid . copyInvItemToFloor cr invid . mayberem
        Just i | i == invid -> creatures . ix cid . crLeftInvSel .~ Nothing
        _ -> id

-{- | Get your creature to drop the item under the cursor.  -}
 youDropItem :: World -> World
-youDropItem w = case yourItem w ^? _Just . itCurseStatus of
+youDropItem w 
+    | _crInvLock (you w) = w
+    | otherwise = youDropItem' w
+
+{- | Get your creature to drop the item under the cursor.  -}
+youDropItem' :: World -> World
+youDropItem' w = case yourItem w ^? _Just . itCurseStatus of
    Just Uncursed -> w
        & dropItem cr (_crInvSel cr) 
        & soundStart (CrSound (_crID cr)) (_crPos cr) whiteNoiseFadeOutS Nothing