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
@@ -38,7 +38,11 @@ itemEffect cr it w = case it ^? itUse of

 --this is ugly
 useLeftItem :: Int -> World -> World
-useLeftItem cid w = case cr ^? crInv . ix crinvsel . itUse . lUse of
+useLeftItem cid w | _crInvLock $ _creatures w IM.! cid = w
+    | otherwise = useLeftItem' cid w
+
+useLeftItem' :: Int -> World -> World
+useLeftItem' cid w = case cr ^? crInv . ix crinvsel . itUse . lUse of
    Just f -> f cr crinvsel (w & creatures . ix cid . crLeftInvSel ?~ crinvsel)
    Nothing -> case _crLeftInvSel cr of
        Just invid -> case _itUse $ _crInv cr IM.! invid of