Make ammo magazines into own item type

2024-06-22 12:03:32 +01:00
parent 35a56eef56
commit 8e127f0603
17 changed files with 258 additions and 255 deletions
@@ -43,6 +43,7 @@ itemEffect cr it w = case it ^. itUse of
    (ConsumeUse eff _) -> useC eff it cr $ rmInvItem (_crID cr) itRef w
    CraftUse{} -> w
    AttachUse{} -> w
+    AmmoMagUse{} -> w
  where
    itRef = cr ^?! crManipulation . manObject . inInventory . ispItem -- unsafe!! TODO change
    hammerTest f = case _crHammerPosition cr of