Work on rocket/grenade launcher

src/Dodge/Data/Item/Combine.hs

@@ -70,8 +70,9 @@ data AttachType
     = ZOOMSCOPE
     | BULLETSYNTH
     | REMOTESCREEN
-    | REMOTECONTROLLER
+    | JOYSTICK
     | REMOTEDETONATOR
+    | SMOKEREDUCER
     | HOMINGMODULE
     | AUGMENTEDHUD
     | SHELLPAYLOAD {_shellPayload :: Payload}

src/Dodge/Data/Item/Use.hs

@@ -70,6 +70,8 @@ data TriggerType = AutoTrigger | HammerTrigger
 data AttachParams
     = APLinkProjectile
         {_apLinkedProjectile :: Maybe Int}
+    | APProjectiles
+        {_apProjectiles :: [Int]}
     | APInt {_apInt :: Int}
     | APNothing
     deriving (Eq, Show, Read) 

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

@@ -27,11 +27,12 @@ data ProjectileHoming
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data ProjectileUpdate
-    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
+    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuSmokeless :: Bool}
     | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
     | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: ProjectileHoming}
     | ReduceSpinPU {_pjuReduceSpin :: Float}
-    | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt), _pjuTimer :: Int}
+    | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt)
+        ,_pjuTimer :: Int}
     | TimePU
     | CollisionEffectPU {_pjuControlID :: Maybe (NewInt ItmInt)
         ,_pjuDetonatorID :: Maybe (NewInt ItmInt)