Move towards fixing remote launcher

src/Dodge/Projectile/Create.hs

@@ -5,6 +5,7 @@ import Dodge.Item.Location
 import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
+import Data.Maybe
 
 createProjectile :: ProjectileCreate -> Item -> Creature -> World -> World
 createProjectile pt = case pt of
@@ -16,7 +17,9 @@ fireShell it cr =
     makeShell
         it
         cr
-        [ PJSpin 335 (_crID cr) spinamount
+        [ PJShellCollisionCheck
+        , PJDecTimMvVel
+        , PJSpin 335 (_crID cr) spinamount
         , PJThrust (350 - thrustdelay) 0
         , PJReduceSpin (1 - fromIntegral spindrag * 2 / 200)
         ]
@@ -44,7 +47,7 @@ makeShell it cr theupdate w =
                 , _prjPayload = _amPayload $ _laAmmoType am
                 , _prjTimer = 350
                 , _prjUpdates = theupdate
-                , _prjMITID = _itID it
+                , _prjMITID = Just . fromJust $ _itID it
                 }
   where
     i = IM.newKey $ _props (_cWorld w)
@@ -198,7 +201,9 @@ fireTrackingShell it cr w = addTrackRocket w'
         makeShell
             it
             cr
-            [ PJSpin 335 (_crID cr) spinamount
+            [ PJRemoteShellCollisionCheck
+            , PJDecTimMvVel
+            , PJSpin 335 (_crID cr) spinamount
             , PJTrack (350 - thrustdelay) 0 itid
             , PJThrust (350 - thrustdelay) 0
             , PJReduceSpin (1 - fromIntegral spindrag * 2 / 200)