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
@@ -1,6 +1,7 @@
 module Dodge.Default.Weapon
    where
 import Dodge.Data
+import Dodge.Reloading.Action
 import Dodge.Item.Weapon.Bullet
 import Dodge.Default.Item
 import Dodge.Item.Draw
@@ -19,7 +20,7 @@ defaultLoadable = LoadableAmmo
    { _laAmmoType   = GenericAmmo
    , _laMax        = 15
    , _laLoaded     = 0
-    , _laCycle      = [Eject 10, Insert 10 Nothing, Prime 10]
+    , _laCycle      = [loadEject 10, loadInsert 10, loadPrime 10]
    , _laProgress   = Nothing
    }
 defaultBulletLoadable :: ItemConsumption