Remove list of projectile updates

src/Dodge/Projectile/Create.hs

@@ -43,13 +43,11 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
                 , _pjID = i
                 , _pjDir = dir'
                 , _pjSpin = 0
-                , _pjSpinFactor = spinfactor
                 , _pjPayload = payload
                 , _pjTimer = lifespan
-                , _pjUpdates =
-                    anyspin
---                        <> [ RemoteDirectionPU 330 0
---                           ]
+                , _pjBarrelSpin = bs
+--                , _pjUpdates =
+--                    anyspin
                 , _pjType = pjtype
                 , _pjDetonatorID = mdetonator
                 , _pjScreenID = mscreen
@@ -58,14 +56,10 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
     crvelcomponent = case stab of
         Just StabOrthReduce -> projV (cr ^. crPos - cr ^. crOldPos) (unitVectorAtAngle dir)
         _ -> cr ^. crPos - cr ^. crOldPos
-    anyspin = case stab of
-        Just StabOrthReduce -> []
-        Just StabSpinIncrease -> [StartSpinPU (lifespan - 15) (_crID cr) 4]
-        _ -> [StartSpinPU (lifespan - 15) (_crID cr) 2]
-    spinfactor = case stab of
-        Just StabOrthReduce -> 0
-        Just StabSpinIncrease -> 2
-        _ -> 1
+    bs = case stab of
+        Just StabOrthReduce -> Nothing
+        Just StabSpinIncrease -> Just (_crID cr, 5)
+        _ -> Just (_crID cr, 2)
     speed = case pjtype of
         Grenade{} -> 4
         Rocket{} -> 1