Start unifying heldUse and heldMods

2024-09-15 10:54:24 +01:00
parent cde7bc9aef
commit 6f372109d9
33 changed files with 585 additions and 270 deletions
@@ -27,8 +27,8 @@ import Dodge.Data.Item.Targeting

 data ItemUse
    = HeldUse
-        { _heldUse :: Huse
-        , _heldDelay :: UseDelay
+        { -- _heldUse :: Huse
+         _heldDelay :: UseDelay
        , _heldMods :: HeldMod
        , _heldHammer :: HammerPosition
        , _heldAim :: AimParams
@@ -118,6 +118,7 @@ data Muzzle = Muzzle
    { _mzPos :: V2 Float
    , _mzRot :: Float
    , _mzInaccuracy :: Float
+    , _mzAmmoSlot :: Int
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)