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
@@ -5,6 +5,7 @@

 module Dodge.Data.Item.HeldUse where

+import Dodge.Data.Item.Use.Consumption.Ammo
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
@@ -44,6 +45,13 @@ data Euse
    | EonWristShield
    | EoffWristShield
    | EFuelSource {_euseFuelAmount :: Int, _euseFuelMax :: Int}
+    | EBatterySource {_euseBatteryAmount :: Int, _euseBatteryMax :: Int}
+    | EAmmoSource 
+        { _euseAmmoAmount :: Int
+        , _euseAmmoMax :: Int
+        , _euseAmmoSourceType :: AmmoSourceType
+        , _euseAmmoLink :: Maybe Int
+        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Luse