Start simplifying projectile update

src/Dodge/Data/Projectile.hs

@@ -33,9 +33,9 @@ data Projectile = Shell
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ProjectileUpdate
-    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
-    | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
-    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
+    = --ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
+     StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
+--    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data ProjectileType

src/Dodge/Data/Prop.hs

@@ -68,10 +68,8 @@ data PropDraw
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data PropUpdate
-    = PropUpdateAnd PropUpdate PropUpdate
-    | PropFallSmallBounceDamage
-    | PropFallSmallBounce
-    | PropUpdateId
+    = PropUpdateId
+    | PropUpdateAnd PropUpdate PropUpdate
     | PropRotate Float
     | PropSetToggleAnd WdBl PropUpdate
     | PropUpdates [PropUpdate]