Add creature statistics, speed depends on strength and equip weight

2022-05-22 12:25:15 +01:00
parent ee31fcbdd9
commit 6891bd7541
5 changed files with 46 additions and 24 deletions
@@ -296,6 +296,12 @@ data Creature = Creature
    , _crMvType         :: CrMvType
    , _crHammerPosition :: HammerPosition
    , _crName           :: String
+    , _crStatistics     :: CreatureStatistics
+    }
+data CreatureStatistics = CreatureStatistics
+    { _crStrength       :: Int
+    , _crDexterity      :: Int
+    , _crIntelligence   :: Int
    }
 data Vocalization 
    = Mute
@@ -1307,3 +1313,4 @@ makeLenses ''Beam
 makeLenses ''BeamType
 makeLenses ''WorldBeams
 makeLenses ''ArcStep
+makeLenses ''CreatureStatistics