Continue refactor of bullet gun effect chain

src/Dodge/Data/Item/Combine.hs

@@ -168,7 +168,6 @@ data HeldItemType
     | GRAPECANNON {_xNum :: Int}
     | MINIGUNX {_xNum :: Int}
     | VOLLEYGUN {_xNum :: Int}
-    | MULTIGUN {_xNum :: Int}
     | RIFLE
 --    | REPEATER
     | AUTORIFLE

src/Dodge/Data/Item/HeldUse.hs

@@ -82,8 +82,8 @@ data HeldMod
 --    | AmmoUseCheckMod
 --    | AmmoHammerTimeUseOneMod
 --    | BangCaneMod
-    | VolleyGunMod
-    | MultiGunMod
+--    | VolleyGunMod
+--    | MultiGunMod
 --    | AutoRifleMod
     | BangRodMod
     | ElephantGunMod
@@ -98,7 +98,7 @@ data HeldMod
     | BurstRifleRepeatMod
     | MiniGunMod Int
 --    | SmgMod
-    | BangConeMod
+--    | BangConeMod
     | TractorMod --apply with AmmoCheckMod
     | FireRemoteShellMod
     | ExplodeRemoteShellMod

src/Dodge/Data/Item/Use.hs

@@ -11,8 +11,10 @@ module Dodge.Data.Item.Use (
     module Dodge.Data.Item.Use.Consumption,
     module Dodge.Data.Hammer,
     module Dodge.Data.Item.Targeting,
+    module Dodge.Data.GenFloat
 ) where
 
+import Dodge.Data.GenFloat
 import Sound.Data
 import qualified Data.IntMap.Strict as IM
 import Geometry.Data
@@ -74,8 +76,8 @@ data HeldParams
     | GasSprayParams
         {_gasCreation :: GasCreate}
     | BulletShooterParams
-        { _muzVel :: Float
-        , _rifling :: Float
+        { _muzVel :: GenFloat
+        , _rifling :: GenFloat
         , _recoil :: Float
         , _torqueAfter :: Float
         , _randomOffset :: Float

src/Dodge/Data/LWorld.hs

@@ -143,6 +143,7 @@ data LWorld = LWorld
     , _selLocation :: Int
     , _distortions :: [Distortion]
     , _lClock :: Int
+    , _lTestString :: [String]
     }
 data WorldBeams = WorldBeams
     { _blockingBeams :: [Beam]