Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -0,0 +1,22 @@
+module Dodge.Default.Item.Use.Consumption where
+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
+        }
+
+defaultBulletLoadable :: HeldConsumption
+defaultBulletLoadable = defaultLoadable & laAmmoType .~ basicBullet
+
+defaultLeftLoadable :: LeftConsumption
+defaultLeftLoadable = AutoRecharging 10 10 100 100