Allow for bullet drag

src/Dodge/Item/Weapon/Utility.hs

@@ -19,7 +19,7 @@ import Control.Lens
 rewindGun :: Item
 rewindGun = defaultGun
     { _itName = "REWINDER"
-    , _itIdentity = Rewinder
+    , _itCombineType = REWINDER
     , _itConsumption = ChargeableAmmo
         { _wpMaxCharge  = 250
         , _wpCharge = 0
@@ -55,7 +55,7 @@ useRewindGun _ _ w = case _rewindWorlds w of
 shrinkGun :: Item
 shrinkGun = defaultGun
     { _itName = "SHRINKER"
-    , _itIdentity = Generic
+    , _itCombineType = SHRINKER
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100
@@ -85,7 +85,7 @@ useShrinkGun cr invid w = if _itBool $ _itAttachment it
 blinkGun :: Item
 blinkGun = defaultGun 
     { _itName = "BLINKER"
-    , _itIdentity = Blinker
+    , _itCombineType = BLINKER
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100
@@ -117,7 +117,7 @@ autoEffectGun name eff = defaultAutoGun
 forceFieldGun :: Item
 forceFieldGun = defaultGun 
     { _itName = "FORCEFIELD"
-    , _itIdentity = ForceFieldGun
+    , _itCombineType = FORCEFIELD
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100