Allow for custom reloading sounds

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -10,6 +10,7 @@ module Dodge.Item.Weapon.BulletGun.Cane
     , miniGunX
     ) where
 --import Dodge.Particle.Bullet.HitEffect
+import Dodge.Reloading.Action
 --import Dodge.WorldEvent.HitEffect
 import Dodge.Item.Weapon.BulletGun.Clip
 import Dodge.Data
@@ -73,7 +74,7 @@ bangCane = defaultBulletWeapon
     } & itUse . useAim . aimStance .~ OneHand
     & itType . iyBase .~ BANGCANE
     & itConsumption . laMax .~ 1
-    & itConsumption . laCycle .~ [Insert 10 (Just 1)]
+    & itConsumption . laCycle .~ [loadPartialInsert 10 1]
 bangCaneX :: Int -> Item
 bangCaneX i = bangCane
     { _itUse = ruseAmmoParamsRate 6 upHammer
@@ -139,7 +140,7 @@ rifle = bangCane
     & itUse . useAim . aimStance .~ TwoHandTwist
     & itType . iyBase .~ RIFLE
     & itConsumption . laMax .~ 1
-    & itConsumption . laCycle .~ [Eject 5, Insert 5 Nothing,Prime 5]
+    & itConsumption . laCycle .~ [loadEject 5, loadInsert 5 ,loadPrime 5]
     & itUse . useAim . aimWeight .~ 6
     & itUse . useAim . aimRange .~ 1
 --    & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
@@ -148,7 +149,7 @@ repeater :: Item
 repeater = rifle
     & itType . iyModules . at ModRifleMag ?~ EMPTYMODULE
     & itType . iyBase .~ REPEATER
-    & itConsumption . laCycle .~ [Eject 5, Insert 15 Nothing,Prime 15]
+    & itConsumption . laCycle .~ [loadEject 5, loadInsert 15 ,loadPrime 15]
     & itConsumption . laMax .~ 15
     & itDimension . dimSPic .~ (\it -> noPic $ baseRifleShape
             <> makeTinClipAt 0 (V3 10 (-2) 0) it
@@ -251,7 +252,7 @@ miniGunX i = defaultAutoGun
         { _laMax = 1500
         , _laLoaded = 1500
         }
-        & laCycle .~ [Eject 40, Insert 40 Nothing,Prime 40]
+        & laCycle .~ [loadEject 40, loadInsert 40 ,loadPrime 40]
     , _itUse = miniGunUse i
         & useDelay .~ WarmUpNoDelay {_warmTime = 0,_warmMax = 100}
         & useAim . aimWeight .~ 6

src/Dodge/Item/Weapon/BulletGun/Rod.hs

@@ -7,6 +7,7 @@ module Dodge.Item.Weapon.BulletGun.Rod
     , machineGun
     ) where
 import Dodge.Data
+import Dodge.Reloading.Action
 import Dodge.Item.Weapon.BulletGun.Clip
 import Dodge.Particle.HitEffect
 import Dodge.Particle.Damage
@@ -70,7 +71,7 @@ bangRod = defaultBulletWeapon
         }
     } 
     & itConsumption . laMax .~ 1
-    & itConsumption . laCycle .~ [Eject 5, Insert 10 Nothing, Prime 5]
+    & itConsumption . laCycle .~ [loadEject 5, loadInsert 10 , loadPrime 5]
     & itType . iyBase .~ BANGROD
     & itUse . useAim . aimWeight .~ 8
     & itUse . useAim . aimRange .~ 1
@@ -141,6 +142,6 @@ machineGun = bangRod
         & useDelay .~ VariableRate {_rateMax = 25, _rateMaxMax = 24, _rateMinMax = 7, _rateTime = 0}
         )
     & itConsumption . laMax .~ 100
-    & itConsumption . laCycle .~ [Eject 10, Insert 40 Nothing, Prime 10]
+    & itConsumption . laCycle .~ [loadEject 10, loadInsert 40 , loadPrime 10]
     & itInvSize .~ 3
     & itParams. torqueAfter .~ 0.2 -- not sure if this is necessary?

src/Dodge/Item/Weapon/BulletGun/Stick.hs

@@ -8,6 +8,7 @@ module Dodge.Item.Weapon.BulletGun.Stick
     , revolverX
     ) where
 import Dodge.Item.Weapon.BulletGun.Clip
+import Dodge.Reloading.Action
 import Dodge.Data
 import Dodge.ChainEffect
 import Dodge.Default.Weapon
@@ -78,7 +79,7 @@ bangStick i = defaultBulletWeapon
     }
     & itType . iyBase .~ BANGSTICK i
     & itConsumption . laMax .~ i
-    & itConsumption . laCycle .~ [Insert 10 (Just 1)]
+    & itConsumption . laCycle .~ [loadPartialInsert 10 1]
 baseStickShapeX :: Int -> Shape
 baseStickShapeX i = foldMap f [0..i-1]
   where
@@ -108,7 +109,7 @@ revolver = pistol
     & itConsumption .~ 
         (defaultBulletLoadable
             & laMax .~ 6
-            & laCycle .~ [Insert 10 (Just 1)] )
+            & laCycle .~ [loadPartialInsert 10 1] )
     & itDimension . dimSPic .~ (\it -> noPic $ baseStickShape <> revolverClip it)
     & itType . iyBase .~ REVOLVER
 
@@ -157,7 +158,7 @@ pistol :: Item
 pistol = bangStick 1
     & itConsumption .~ ( defaultBulletLoadable
         & laMax .~ 15
-        & laCycle .~ [Eject 5, Insert 5 Nothing, Prime 5] )
+        & laCycle .~ [loadEject 5, loadInsert 5 , loadPrime 5] )
     & itUse .~ ruseAmmoParamsRate 6 upHammer (ammoHammerCheck : pistolAfterHamMods)
     & itDimension . dimSPic .~ (\it -> noPic $ baseStickShape <> makeTinClipAt pi (V3 5 2 0) it)
     & itParams %~