Fix volleyGun

src/Dodge/BaseTriggerType.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 
 module Dodge.BaseTriggerType (
-    baseTriggerType,
+    itemTriggerType,
     module Dodge.Data.TriggerType,
 ) where
 
@@ -9,8 +9,8 @@ import Control.Lens
 import Dodge.Data.Item
 import Dodge.Data.TriggerType
 
-baseTriggerType :: Item -> TriggerType
-baseTriggerType itm = case itm ^. itType of
+itemTriggerType :: Item -> TriggerType
+itemTriggerType itm = case itm ^. itType of
     HELD hit -> heldTriggerType hit
     _ -> NoTrigger
 
@@ -28,7 +28,7 @@ heldTriggerType = \case
     BLUNDERBUSS -> HammerTrigger
     GRAPECANNON{} -> HammerTrigger
     MINIGUNX{} -> AutoTrigger
-    VOLLEYGUN i -> BurstTrigger [1 .. i-1]
+    VOLLEYGUN i -> BurstTrigger $ fmap (3*) [1 .. i-1]
     RIFLE -> HammerTrigger
     ALTERIFLE -> HammerTrigger
     AUTORIFLE -> AutoTrigger