Add new weapons

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -4,7 +4,9 @@ module Dodge.Item.Weapon.BulletGun.Cane
     , repeater
     , rifle
     , autoRifle
-    , assaultRifle
+    , burstRifle
+    , completeBurstRifle
+    , fastBurstRifle
     , miniGun
     , miniGun'
     ) where
@@ -171,16 +173,17 @@ autoRifle = repeater
     & itType .~ AUTORIFLE
     & itUse . useMods %~ ((ammoCheckI :) . tail)
 --    & itUse . useDelay . rateMax .~ 6
-assaultRifle :: Item
-assaultRifle = repeater
-    & itName .~ "ASSAULTRIFLE"
-    & itType .~ ASSAULTRIFLE
+burstRifle :: Item
+burstRifle = repeater
+    & itName .~ "BURSTRIFLE"
+    & itType .~ BURSTRIFLE
+    & itParams . gunBarrels . brlInaccuracy .~ 0.05
     & itUse . useDelay . rateMax .~ 18
     & itUse . useMods .~
         [ ammoHammerCheck
         , useTimeCheck
-        , torqueAfterI 0.2
-        , lockInvFor 10
+        , sideEffectOnFrame 7 (torqueSideEffect 0.2)
+        , lockInvFor 7
         , \f it -> repeatOnFrames (take (_ammoLoaded (_itConsumption it) - 1) [3,6]) f it
         , withSoundStart tap3S
         , useAmmoAmount 1
@@ -188,6 +191,42 @@ assaultRifle = repeater
         , withMuzFlareI
         , withRecoilI 50
         ]
+fastBurstRifle :: Item
+fastBurstRifle = repeater
+    & itName .~ "FASTBURSTRIFLE"
+    & itType .~ FASTBURSTRIFLE
+    & itParams . gunBarrels . brlInaccuracy .~ 0.06
+    & itUse . useDelay . rateMax .~ 18
+    & itUse . useMods .~
+        [ ammoHammerCheck
+        , useTimeCheck
+        , sideEffectOnFrame 9 (torqueSideEffect 0.4)
+        , lockInvFor 9
+        , \f it -> repeatOnFrames (take (_ammoLoaded (_itConsumption it) - 1) [2,4,6,8]) f it
+        , withSoundStart tap3S
+        , useAmmoAmount 1
+        , applyInaccuracy
+        , withMuzFlareI
+        , withRecoilI 50
+        ]
+completeBurstRifle :: Item
+completeBurstRifle = repeater
+    & itName .~ "COMPLETEBURSTRIFLE"
+    & itType .~ COMPLETEBURSTRIFLE
+    & itParams . gunBarrels . brlInaccuracy .~ 0.1
+    & itUse . useDelay . rateMax .~ 28
+    & itUse . useMods .~
+        [ ammoHammerCheck
+        , useTimeCheck
+        , sideEffectOnFrame 15 (torqueSideEffect 0.8)
+        , lockInvFor 15
+        , \f it -> repeatOnFrames (take (_ammoLoaded (_itConsumption it) - 1) [1..14]) f it
+        , withSoundStart tap3S
+        , useAmmoAmount 1
+        , applyInaccuracy
+        , withMuzFlareI
+        , withRecoilI 50
+        ]
 miniGun' :: Item
 miniGun' = miniGun & itConsumption . ammoLoaded .~ 0
 miniGun :: Item