Implement remote screen for launcher projectiles

src/Dodge/Data/Item/Combine.hs

@@ -191,7 +191,7 @@ data HeldItemType
     | TRACTORGUN
     | LAUNCHER
     | LAUNCHERX {_xNum :: Int}
-    | REMOTELAUNCHER
+--    | REMOTELAUNCHER
     | POISONSPRAYER
     | DRONELAUNCHER
     | SHATTERGUN

src/Dodge/Data/Item/HeldUse.hs

@@ -14,11 +14,11 @@ import Control.Lens
 
 data Huse
     = HeldDoNothing
-    | HeldFireRemoteShell
+--    | HeldFireRemoteShell
     | HeldExplodeRemoteShell Int Int
     | HeldDetectorEffect Detector
     | HeldForceField
-    | HeldShatter
+--    | HeldShatter
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Cuse
@@ -58,7 +58,7 @@ data Luse
 
 data HeldMod
     = PistolMod
-    | FireRemoteShellMod
+--    | FireRemoteShellMod
     | ExplodeRemoteShellMod
     | DoNothingMod
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Use.hs

@@ -112,7 +112,7 @@ data AmmoParams
     | ProjectileParams
         { _ampPayload :: Payload
         , _ampPjDraw :: ProjectileDraw
-        , _ampPjCreation :: ProjectileCreate
+--        , _ampPjCreation :: ProjectileCreate
         }
     | GasParams {_ampCreateGas :: GasFuel}
     deriving (Eq, Show, Read) --Generic, Flat)

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

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