Cleanup projectile update

This commit is contained in:
2024-12-28 22:07:05 +00:00
parent 30be7b0983
commit ad7be9152a
3 changed files with 58 additions and 73 deletions
+1 -6
View File
@@ -1,5 +1,5 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
@@ -9,8 +9,6 @@ module Dodge.Data.Item.Use.Consumption.Ammo (
module Dodge.Data.Payload,
) where
import Dodge.Data.Item.Location
import NewInt
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
@@ -22,9 +20,6 @@ data ProjectileUpdate
| StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
| RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
| ReduceSpinPU {_pjuReduceSpin :: Float}
-- | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt)
-- ,_pjuTimer :: Int}
-- | TimePU
| ApplyGravityPU
deriving (Show, Eq, Ord, Read) --Generic, Flat)