Add alteRifle

src/Dodge/Item/Held/Cane.hs

@@ -1,5 +1,6 @@
 module Dodge.Item.Held.Cane (
     volleyGun,
+    alteRifle,
     rifle,
     autoRifle,
     burstRifle,
@@ -49,7 +50,7 @@ volleyGun i =
         & itType .~ HELD (VOLLEYGUN i)
         & itAmmoSlots .~ IM.fromList (zip [0..i-1] $ repeat BulletAmmo)
         & itUse . heldParams . weaponRepeat .~ [1..i-1]
-        & itUse . heldUseEffect .~ (RandomiseMuzzleFrames i)
+        & itUse . heldUseEffect .~ RandomiseMuzzleFrames i
 
 rifle :: Item
 rifle =
@@ -61,6 +62,12 @@ rifle =
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1.5}
         & itUse . heldAim . aimMuzzles . ix 0 . mzPos .~ V2 25 0
 
+alteRifle :: Item
+alteRifle = rifle
+    & itType .~ HELD ALTERIFLE
+    & itUse . heldUseEffect .~ SwitchAlteRifle
+    & itAmmoSlots .~ IM.fromList (zip [0..1] $ repeat BulletAmmo)
+
 --repeater :: Item
 --repeater =
 --    rifle