Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -1,5 +1,6 @@
 module Dodge.Data.Item.HeldUse where
 import Dodge.Combine.Data
+import Dodge.Data.CamouflageStatus

 data HeldUse = HeldDoNothing 
    | HeldUseAmmoParams
@@ -18,6 +19,20 @@ data HeldUse = HeldDoNothing
    | HeldForceField
    | HeldShatter

+data Cuse = CDoNothing
+    | CHeal Int
+
+data Euse = EDoNothing
+    | EDetector Detector
+    | EMagShield
+    | EWristShield
+    | EHeadLamp
+    | ECamouflage CamouflageStatus
+
+    | EonWristShield
+
+    | EoffWristShield
+
 data Luse = LDoNothing
    | LRewind
    | LShrink