Move towards debris slowing movement

src/Dodge/Creature/Statistics.hs

@@ -8,8 +8,11 @@ import LensHelp
 import Data.Maybe
 import Data.IntMap.Merge.Strict
 
+getCrDexterity :: Creature -> Int
+getCrDexterity cr = _dexterity (_crStatistics cr)
+
 getCrStrength :: Creature -> Int
-getCrStrength cr = strFromHeldItem cr + strFromEquipment cr + _crStrength (_crStatistics cr)
+getCrStrength cr = strFromHeldItem cr + strFromEquipment cr + _strength (_crStatistics cr)
 
 strFromEquipment :: Creature -> Int
 strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment

src/Dodge/Data.hs

@@ -378,9 +378,9 @@ data CamouflageStatus
     | Invisible
     deriving (Eq,Ord,Enum)
 data CreatureStatistics = CreatureStatistics
-    { _crStrength       :: Int
-    , _crDexterity      :: Int
-    , _crIntelligence   :: Int
+    { _strength       :: Int
+    , _dexterity      :: Int
+    , _intelligence   :: Int
     }
 data Vocalization 
     = Mute