Start refactoring held item use

2022-07-20 16:03:35 +01:00
parent 2c6e5e818a
commit eeb98eb151
18 changed files with 164 additions and 109 deletions
@@ -0,0 +1,21 @@
+module Dodge.Data.Item.HeldUse where
+import Dodge.Combine.Data
+
+data HeldUse = HeldDoNothing 
+    | HeldUseAmmoParams
+    | HeldOverNozzlesUseGasParams
+    | HeldPJCreation
+    | HeldPJCreationX Int
+    | HeldFireRemoteShell
+    | HeldExplodeRemoteShell Int Int
+    | HeldDetectorEffect Detector
+    | HeldTeslaArc
+    | HeldLaser
+    | HeldCircleLaser
+    | HeldDualLaser
+    | HeldTractor
+    | HeldSonicWave
+    | HeldForceField
+    | HeldShatter
+
+data HeldUseMods = HeldModsDoNothing