Separate out creature data

2022-07-21 23:15:53 +01:00
parent dfc9b2dca9
commit d4e5b02874
6 changed files with 445 additions and 402 deletions
@@ -0,0 +1,54 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Creature.Misc
+    ( module Dodge.Data.Creature.Misc
+    , module Dodge.Data.CamouflageStatus
+    ) where
+import Dodge.Data.CamouflageStatus
+import Sound.Data
+import Geometry.Data
+import Color
+import Control.Lens
+data CreatureStatistics = CreatureStatistics
+    { _strength       :: Int
+    , _dexterity      :: Int
+    , _intelligence   :: Int
+    }
+  deriving (Eq,Ord,Show)
+data Vocalization 
+    = Mute
+    | Vocalization
+        {_vcSound :: SoundID
+        ,_vcWarnings :: [SoundID]
+        ,_vcMaxCoolDown :: Int
+        ,_vcCoolDown    :: Int
+        }
+  deriving (Eq,Ord,Show)
+data CrMvType 
+    = NoMvType
+    | MvWalking { _mvSpeed :: Float }
+    | CrMvType
+        { _mvSpeed      :: Float
+        , _mvTurnRad    :: Float -> Float
+        , _mvTurnJit    :: Float
+        , _mvAimSpeed   :: Float -> Float
+        }
+data HumanoidAI = YourAI | ChaseAI | InanimateAI | SpreadGunAI | PistolAI
+    | LtAutoAI | LauncherAI | SwarmAI | AutoAI | FlockArmourChaseAI | MiniGunAI
+    | LongAI | MultGunAI
+data CreatureType
+    = Humanoid
+        { _skinHead     :: Color
+        , _skinUpper    :: Color
+        , _skinLower    :: Color
+        , _humanoidAI   :: HumanoidAI
+        }
+    | Barreloid {_barrelType :: BarrelType}
+    | Lampoid {_lampHeight :: Float, _lampColor :: Point3, _lampLSID :: Maybe Int}
+    | Turretoid
+    | NonDrawnCreature
+data BarrelType = PlainBarrel | ExplosiveBarrel
+makeLenses ''CreatureStatistics
+makeLenses ''Vocalization
+makeLenses ''CrMvType 
+makeLenses ''CreatureType