Move toward external function for shell update

src/Dodge/Data/Ammo.hs

@@ -4,5 +4,11 @@ module Dodge.Data.Ammo where
 
 data ProjectileDraw = DrawShell | DrawRemoteShell | DrawDrone | DrawBlankProjectile
 data ProjectileCreate = CreateShell
-data ProjectileUpdate = LaunchPJ | SpinPJ | ThrustPJ | FloatPJ
+data ProjectileUpdate 
+    = PJThrust {_pjuStart :: Int, _pjuEnd :: Int}
+    | PJSpin   {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
+    | PJTrack  {_pjuStart :: Int, _pjuEnd :: Int, _pjuITID :: Int}
+    | PJReduceSpin {_pjuReduceSpin :: Float}
+    | PJRemoteDirection {_pjuStart :: Int, _pjuEnd :: Int}
+    | PJPayload {_pjuTime :: Int}