Allow for bullet drag

src/Dodge/Creature/Impulse/Movement.hs

@@ -106,8 +106,8 @@ creatureTurnToward p turnSpeed cr
 equipSpeed :: Item -> Float
 equipSpeed _ = 1
 {- | Speed modifier of an item when aiming. -}
-equipAimSpeed :: Item -> Float
+equipAimSpeed :: Item -> Float -- TODO remove/rethink
 equipAimSpeed it 
-    | _itIdentity it == FrontArmour = 0.5
-    | _itIdentity it == FlameShield = 0.5
+    | _itCombineType it == FRONTARMOUR = 0.5
+    | _itCombineType it == FLAMESHIELD = 0.5
     | otherwise                     = 1

src/Dodge/Creature/Impulse/UseItem.hs

@@ -4,7 +4,7 @@ module Dodge.Creature.Impulse.UseItem
     , useLeftItem
     ) where
 import Dodge.Data
-import Dodge.Inventory
+--import Dodge.Inventory
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
@@ -22,7 +22,7 @@ tryUseItem cr' w = case w ^? creatures . ix (_crID cr') of
     Nothing -> w
 
 itemEffect :: Creature -> Item -> World -> World
-itemEffect cr Consumable{_cnEffect=eff } w = maybe w (rmSelectedInvItem (_crID cr)) (eff (_crID cr) w)
+--itemEffect cr Consumable{_cnEffect=eff } w = maybe w (rmSelectedInvItem (_crID cr)) (eff (_crID cr) w)
 itemEffect cr it w = case it ^? itUse of
     Just RightUse {_rUse = eff,_useMods = usemods} -> foldr ($) eff usemods it cr w
     Just LeftUse {} -> w