Implement remote screen for launcher projectiles

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