Implement burstRifle using attachment weapon chain

src/Dodge/Data/Item/Use.hs

@@ -83,6 +83,8 @@ data HeldParams
         , _randomOffset :: Float
         , _sidePush :: Float
         , _bulGunSound :: SoundID
+        , _weaponInvLock :: Int
+        , _weaponRepeat :: [Int]
         }
     deriving (Eq, Show, Read) --Generic, Flat)
 
@@ -128,6 +130,7 @@ data AimParams = AimParams
 
 data FlareType = DefaultFlareType
     | PistolFlare
+    | HeavySmokeFlare
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Muzzle = Muzzle