Move towards debris slowing movement

2022-06-18 01:26:17 +01:00
parent 5f68b512dd
commit 66fda3fb93
2 changed files with 7 additions and 4 deletions
@@ -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