Work on rocket/grenade launcher

2024-12-27 21:46:46 +00:00
parent 0ef28c132e
commit 5c749bff63
19 changed files with 400 additions and 324 deletions
@@ -27,11 +27,12 @@ data ProjectileHoming
    deriving (Show, Eq, Ord, Read) --Generic, Flat)

 data ProjectileUpdate
-    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
+    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuSmokeless :: Bool}
    | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: ProjectileHoming}
    | ReduceSpinPU {_pjuReduceSpin :: Float}
-    | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt), _pjuTimer :: Int}
+    | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt)
+        ,_pjuTimer :: Int}
    | TimePU
    | CollisionEffectPU {_pjuControlID :: Maybe (NewInt ItmInt)
        ,_pjuDetonatorID :: Maybe (NewInt ItmInt)