Make reloading based upon creature stance

src/Dodge/Data.hs

@@ -482,14 +482,19 @@ data Equipment = Equipment
 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _useAim . _itUse
 
+data TransferState
+    = Transfer { _transferAmount :: Int , _transferTime :: Int}
+    | NoTransfer
+  deriving (Eq,Ord,Show)
+
 data ItemConsumption
     = LoadableAmmo
-        { _laType  :: AmmoType
-        , _laMax   :: Int
+        { _laType       :: AmmoType
+        , _laMax        :: Int
         , _laLoaded     :: Int
-        , _laReloadTime     :: Int
-        , _laReloadState    :: Maybe' Int
-        , _laReloadType     :: ReloadType
+        , _laReloadTime :: Int
+        , _laTransfer   :: TransferState
+        , _laReloadType :: ReloadType
         }
     | ChargeableAmmo
         { _wpMaxCharge  :: Int
@@ -549,7 +554,7 @@ data ItemPortage
 
 data ReloadType 
     = ActiveClear
-    | ActivePartial Int
+    | ActivePartial {_partialReloadAmount :: Int}
     | PassiveReload SoundID
   deriving Eq
 
@@ -1476,6 +1481,7 @@ makeLenses ''ItEffect
 makeLenses ''FloorItem
 makeLenses ''ItemConsumption
 makeLenses ''AmmoType
+makeLenses ''TransferState
 makeLenses ''TweakParam
 makeLenses ''Prop
 makeLenses ''Modification