Commit AFTER playing around with poking/vector sizing a little

src/Dodge/Creature/Impulse/Movement.hs

@@ -27,7 +27,7 @@ crMvAbsolute p' cr =
         & crPos %~ (+.+ p)
         & crMvDir .~ argV p
   where
-    p = strengthFactor (getCrStrength cr) *.* p'
+    p = strengthFactor (getCrMoveSpeed cr) *.* p'
 
 strengthFactor :: Int -> Float
 strengthFactor i

src/Dodge/Creature/Statistics.hs

@@ -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