Allow for bullet drag

src/Dodge/Item/Data.hs

@@ -13,40 +13,40 @@ data HammerPosition
     | HammerUp
   deriving
     (Eq, Ord, Show)
-data ItemIdentity 
-    = Pistol
-    | SpreadGun
-    | MultGun
-    | HvAutoGun
-    | AutoGun
-    | LtAutoGun
-    | MiniGun
-    | Medkit25
-    | MagShield
-    | FrontArmour
-    | JetPack
-    | FlameShield
-    | Generic
-    | SparkGun
-    | ShatterGun
-    | LongGun
-    | Flamethrower
-    | Blinker
-    | Rewinder
-    | Grenade
-    | RemoteBomb
-    | TeslaGun
-    | LasGun
-    | ForceFieldGun
-    | GrapGun
-    | TractorGun 
-    | Launcher
-    | RemoteLauncher
-    | LightningGun
-    | PoisonSprayer
-    | FlatShield
-  deriving 
-    (Eq,Show,Ord,Enum)
+--data ItemIdentity 
+--    = Pistol
+--    | SpreadGun
+--    | MultGun
+--    | HvAutoGun
+--    | AutoGun
+--    | LtAutoGun
+--    | MiniGun
+--    | Medkit25
+--    | MagShield
+--    | FrontArmour
+--    | JetPack
+--    | FlameShield
+--    | Generic
+--    | SparkGun
+--    | ShatterGun
+--    | LongGun
+--    | Flamethrower
+--    | Blinker
+--    | Rewinder
+--    | Grenade
+--    | RemoteBomb
+--    | TeslaGun
+--    | LasGun
+--    | ForceFieldGun
+--    | GrapGun
+--    | TractorGun 
+--    | Launcher
+--    | RemoteLauncher
+--    | LightningGun
+--    | PoisonSprayer
+--    | FlatShield
+--  deriving 
+--    (Eq,Show,Ord,Enum)
 data AimStance
     = TwoHandTwist
     | TwoHandFlat
@@ -85,7 +85,7 @@ data UseDelay -- should just be Delay
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels   {_spreadAngle :: Float}
-    | RotatingBarrels {_rotatingBarrelAccuracy :: Float}
+    | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
 makeLenses ''BarrelSpread
 makeLenses ''HammerType
 makeLenses ''ItZoom