Remove hvAuto, replace with machineGun

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

@@ -8,6 +8,7 @@ module Dodge.Item.Weapon.BulletGun.Rod
     ) where
 import Dodge.Data
 import Dodge.Item.Weapon.BulletGun.Clip
+import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Particle.HitEffect
 import Dodge.Particle.Damage
 --import Dodge.ChainEffect
@@ -32,7 +33,7 @@ import Shape
 --import Sound.Data
 import LensHelp
 
---import Data.Maybe
+import Data.Maybe
 --import qualified Data.Sequence as Seq
 --import Control.Lens
 --import Control.Monad.State
@@ -76,7 +77,6 @@ bangRod = defaultGun
         { _laType = basicBullet
         , _laMax = 1
         , _laReloadTime = 20
-        , _laReloadType = ActiveClear
         }
     } 
     & itUse . useAim . aimWeight .~ 8
@@ -139,3 +139,23 @@ machineGun :: Item
 machineGun = bangRod
     & itName .~ "MACHINEGUN"
     & itType .~ MACHINEGUN
+    & itUse .~ (ruseAmmoParamsRate 25 NoHammer
+        [ ammoCheckI
+        , rateIncAB (torqueBeforeAtLeast 0.1 0.1) withTorqueAfter
+        , withSoundStart bangEchoS
+        , withThinSmokeI
+        , withMuzFlareI
+        ]
+        & useAim . aimWeight .~ 8
+        & useAim . aimRange .~ 1
+        & useAim . aimStance .~ TwoHandTwist
+        & useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
+        & useDelay .~ VariableRate {_rateMax = 25, _rateMaxMax = 24, _rateMinMax = 7, _rateTime = 0}
+        )
+    & itConsumption . laMax .~ 100
+    & itConsumption . laReloadTime .~ 75
+    & itInvSize .~ 3
+    & itParams. torqueAfter .~ 0.2 -- not sure if this is necessary?
+    & itInvDisplay .~ \it -> head (basicItemDisplay it) : 
+        ["*FIRERATE:" ++ fromMaybe "" (maybeRateStatus it)
+        ]