Work towards adding external ammo sources

2023-05-17 11:01:52 +01:00
parent 63c71c852d
commit 7df81559d9
30 changed files with 246 additions and 196 deletions
@@ -1,18 +1,23 @@
 module Dodge.Default.Item.Use.Consumption where
+
+import Control.Lens
+import Dodge.Data.Item.Use.Consumption
 import Dodge.Item.Weapon.Bullet
 import Dodge.Reloading.Action
-import Dodge.Data.Item.Use.Consumption
-import Control.Lens

 defaultLoadable :: HeldConsumption
 defaultLoadable =
    LoadableAmmo
        { _laAmmoType = GenericAmmo
-        , _laMax = 15
-        , _laLoaded = 0
-        , _laPrimed = True
-        , _laCycle = [loadEject 10, loadInsert 10, loadPrime 10]
-        , _laProgress = Nothing
+        , _laSource =
+            InternalSource InternalAmmo
+                { _iaMax = 15
+                , _iaLoaded = 0
+                , _iaPrimed = True
+                , _iaCycle = [loadEject 10, loadInsert 10, loadPrime 10]
+                , _iaProgress = Nothing
+                }
+        , _laSourceType = BulletSource
        }

 defaultBulletLoadable :: HeldConsumption