Commit AFTER playing around with poking/vector sizing a little

2024-10-01 12:32:23 +01:00
parent 8348c1234c
commit 6438da0037
12 changed files with 301 additions and 1889 deletions
@@ -1,5 +1,5 @@
 module Dodge.Creature.Statistics (
-    getCrStrength,
+    getCrMoveSpeed,
    getCrDexterity,
 ) where

@@ -13,8 +13,8 @@ import LensHelp
 getCrDexterity :: Creature -> Int
 getCrDexterity cr = _dexterity (_crStatistics cr)

-getCrStrength :: Creature -> Int
-getCrStrength cr = strFromHeldItem cr + strFromEquipment cr + _strength (_crStatistics cr)
+getCrMoveSpeed :: Creature -> Int
+getCrMoveSpeed cr = strFromHeldItem cr + strFromEquipment cr + _strength (_crStatistics cr)

 strFromEquipment :: Creature -> Int
 strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment