Refactor

src/Dodge/Creature/Action.hs

@@ -3,11 +3,12 @@
 {-# LANGUAGE BangPatterns #-}
 module Dodge.Creature.Action 
     ( module Dodge.Creature.Action
-    , useItem
-    , tryUseItem
+    , module Dodge.Creature.Action.UseItem
+    , module Dodge.Creature.Action.Movement
     )
     where
 import Dodge.Creature.Action.UseItem
+import Dodge.Creature.Action.Movement
 import Dodge.WorldEvent.Shockwave
 import Dodge.Data
 import Dodge.Base
@@ -87,12 +88,6 @@ stepForward speed cr = over (crState . stance . carriage) f cr
     f (w@Walking {}) = w {_stepToAdd = ceiling speed}
     f s = s
 
-{- Determine the speed modifier of an item. -}
-equipSpeed :: Item -> Float
-equipSpeed NoItem = 1
-equipSpeed it | _itIdentity it == FrontArmour = 0.75
-              | _itIdentity it == FlameShield = 0.75
-              | otherwise                     = 1
 
 turnTo 
     :: Point2   -- ^ Target point