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,36 @@
+module Dodge.Default.Item.Use (
+    module Dodge.Default.Item.Use,
+    module Dodge.Default.Item.Use.AimParams,
+    module Dodge.Default.Item.Use.Consumption,
+    module Dodge.Default.Item.Use.Equipment,
+) where
+
+import Dodge.Data.Item.Use
+import Dodge.Default.Item.Use.AimParams
+import Dodge.Default.Item.Use.Consumption
+import Dodge.Default.Item.Use.Equipment
+
+defaultLeftUse :: ItemUse
+defaultLeftUse =
+    LeftUse
+        { _leftUse = LDoNothing
+        , _leftDelay = FixedRate{_rateMax = 8, _rateTime = 0}
+        , _leftHammer = HammerUp
+        , _equipEffect = defaultEquip
+        , _leftConsumption = defaultLeftLoadable
+        }
+
+defaultEquipUse :: ItemUse
+defaultEquipUse = EquipUse{_equipEffect = defaultEquip}
+
+defaultHeldUse :: ItemUse
+defaultHeldUse =
+    HeldUse
+        { _heldUse = HeldDoNothing
+        , _heldDelay = FixedRate{_rateMax = 8, _rateTime = 0}
+        , _heldMods = HeldModNothing
+        , _heldHammer = HammerUp
+        , _heldAim = defaultAimParams
+        , _heldScroll = HeldScrollDoNothing
+        , _heldConsumption = defaultLoadable
+        }