Allow for custom reloading sounds

2022-06-21 22:21:18 +01:00
parent 53c8be0679
commit 029b6daf8e
25 changed files with 339 additions and 219 deletions
@@ -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?