Cleanup, split CWorld into separate file

src/Dodge/HeldUse.hs

@@ -35,7 +35,14 @@ useMod hm = case hm of
         [ ammoCheckI
         , useTimeCheck
         , lockInvFor 10
-        , repeatOnFrames [1..9]
+        , repeatOnFrames [1..9] FlameSpitterRepeatMod
+        , withRandomItemParams f
+        , useAmmoAmount 1
+        , withSidePushI 5
+        , withSidePushAfterI 20
+        ]
+    FlameSpitterRepeatMod ->
+        [ ammoCheckI
         , withRandomItemParams f
         , useAmmoAmount 1
         , withSidePushI 5
@@ -239,7 +246,16 @@ useMod hm = case hm of
         , useTimeCheck
         , sideEffectOnFrame 7 (\_ cr -> TorqueCr 0.2 (_crID cr)) --(torqueSideEffect 0.2)
         , lockInvFor 7
-        , \f' it -> repeatOnFrames (take (_laLoaded (_itConsumption it) - 1) [3,6]) f' it
+        , repeatOnFrames [3,6] BurstRifleRepeatMod
+        , withSoundStart tap3S
+        , useAmmoAmount 1
+        , applyInaccuracy
+        , withMuzFlareI
+        , withRecoil
+        ]
+    BurstRifleRepeatMod ->
+        [ ammoCheckI
+        , sideEffectOnFrame 7 (\_ cr -> TorqueCr 0.2 (_crID cr)) --(torqueSideEffect 0.2)
         , withSoundStart tap3S
         , useAmmoAmount 1
         , applyInaccuracy
@@ -278,7 +294,19 @@ useMod hm = case hm of
         -- rather than locking the inventory, a better solution may be to check
         -- that the weapon is still in your hands in the repeated frames
         , lockInvFor 10
-        , \f' it -> repeatOnFrames (take (_laLoaded (_itConsumption it) - 1) [2,4,6,8,10]) f' it
+        , repeatOnFrames [2,4,6,8,10] RevolverXRepeatMod
+        , withSoundStart tap3S 
+        , useAmmoUpTo 1
+        , applyInaccuracy
+        , withMuzFlareI
+--        , spreadLoaded
+        , withTorqueAfter
+        , withRecoil
+        ]
+    RevolverXRepeatMod ->
+        [ ammoCheckI
+        -- rather than locking the inventory, a better solution may be to check
+        -- that the weapon is still in your hands in the repeated frames
         , withSoundStart tap3S 
         , useAmmoUpTo 1
         , applyInaccuracy