Randomise volleygun muzzle order

src/Dodge/Data/Item/Combine.hs

@@ -63,11 +63,6 @@ data CraftType
     | WIRE
     | FUELCELL
     | PORTABLEFUSION
---    | FRAGMODULE
---    | FLASHMODULE
---    | GASINJECTOR
---    | FLAKCRAFT
---    | FRAGCRAFT
     deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
 data AttachType

src/Dodge/Data/Item/Use.hs

@@ -40,6 +40,7 @@ data ItemUse
         , _heldParams :: HeldParams
         , _heldTriggerType :: TriggerType
         , _heldFrame :: Int
+        , _heldUseEffect :: HeldUseEffect
         }
     | UseEquip { _uequipEffect :: EquipEffect }
     | UseAttach {_uaParams :: AttachParams}
@@ -48,6 +49,11 @@ data ItemUse
     | UseBulletMod { _ubMod :: BulletMod }
     deriving (Eq, Show, Read)
 
+data HeldUseEffect
+    = NoHeldUseEffect
+    | RandomiseMuzzleFrames Int
+    deriving (Eq, Show, Read)
+
 data UseFocus
     = UseFromRoot
     | UseFromLocation
@@ -202,6 +208,8 @@ makeLenses ''MuzzleEffect
 makeLenses ''AmmoPerShot
 makeLenses ''UseCondition
 makeLenses ''UseFocus
+makeLenses ''HeldUseEffect
+deriveJSON defaultOptions ''HeldUseEffect
 deriveJSON defaultOptions ''UseFocus
 deriveJSON defaultOptions ''UseCondition
 deriveJSON defaultOptions ''MuzzleEffect

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -43,6 +43,8 @@ data AmmoType
     | ElectricalAmmo
     | DroneAmmo
     | GasAmmo
+    | PrintMaterial
+    | ExplosivePutty
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ForceFieldType = DefaultForceField