Unify launcher projectiles

src/Dodge/Data/Item/HeldUse.hs

@@ -15,7 +15,7 @@ import Control.Lens
 data Huse
     = HeldDoNothing
 --    | HeldFireRemoteShell
-    | HeldExplodeRemoteShell Int Int
+--    | HeldExplodeRemoteShell Int Int
     | HeldDetectorEffect Detector
     | HeldForceField
 --    | HeldShatter

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

@@ -25,14 +25,14 @@ data ProjectileUpdate
     = PJThrust {_pjuStart :: Int, _pjuEnd :: Int}
     | PJSpin {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
 --    | PJTrack {_pjuStart :: Int, _pjuEnd :: Int, _pjuScreenID :: Int}
-    | PJRemoteSetDirection {_pjuStart :: Int, _pjuEnd :: Int, _pjuScreenID :: Int}
+    | PJRemoteSetDirection {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: Maybe Int}
     | PJReduceSpin {_pjuReduceSpin :: Float}
 --    | PJRemoteDirection {_pjuStart :: Int, _pjuEnd :: Int, _pjuCID :: Int, _pjuITID :: Int}
 --    | PJSetScope {_pjuITID :: Int}
-    | PJRetireRemote {_pjuItID :: Int, _pjuTimer :: Int, _pjuPJID :: Int}
+    | PJRetireRemote {_pjuScreenID :: Maybe Int, _pjuTimer :: Int, _pjuPJID :: Int}
     | PJDecTimMvVel
-    | PJShellCollisionCheck
-    | PJRemoteShellCollisionCheck {_pjuScreenID :: Int}
+--    | PJShellCollisionCheck
+    | PJRemoteShellCollisionCheck {_pjuScreenID :: Maybe Int}
 --    | PJRemoteShellExplosion
     deriving (Show, Eq, Ord, Read) --Generic, Flat)