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
@@ -11,6 +11,11 @@ import Data.Aeson.TH
 import Dodge.Data.Item.Use.Consumption.Ammo
 import Geometry.Data

+data ProjectileType
+    = Grenade
+    | Rocket
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data Projectile
    = Shell
        { _prjPos :: Point2
@@ -25,8 +30,10 @@ data Projectile
        , _prjZ :: Float
        , _prjZVel :: Float
        , _prjUpdates :: [ProjectileUpdate]
+        , _prjType :: ProjectileType
        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''Projectile
+deriveJSON defaultOptions ''ProjectileType
 deriveJSON defaultOptions ''Projectile