Cleanup

src/Dodge/Item/Held/BatteryGuns.hs

@@ -16,7 +16,7 @@ import Dodge.Data.Item
 --import Dodge.Reloading.Action
 import Dodge.Tesla.ItemParams
 import Geometry.Data
-import qualified IntMapHelp as IM
+--import qualified IntMapHelp as IM
 
 sparkGun :: Item
 sparkGun =
@@ -75,13 +75,13 @@ lasGun =
         -- & itUse . heldAim . aimMuzPos .~ 30
         & itType .~ HELD LASGUN
 
-lasGunTweak :: TweakParam
-lasGunTweak =
-    TweakParam
-        { _tweakType = TweakPhaseV
-        , _tweakVal = 1
-        , _tweakMax = 3
-        }
+--lasGunTweak :: TweakParam
+--lasGunTweak =
+--    TweakParam
+--        { _tweakType = TweakPhaseV
+--        , _tweakVal = 1
+--        , _tweakMax = 3
+--        }
 
 tractorGun :: Item
 tractorGun =
@@ -98,13 +98,13 @@ tractorGun =
         & itUse . heldAim . aimMuzzles . ix 0 . mzEffect .~ MuzzleTractor
         & itType .~ HELD TRACTORGUN
 
-tractorGunTweak :: TweakParam
-tractorGunTweak =
-    TweakParam
-        { _tweakType = TweakTractionPower
-        , _tweakVal = 1
-        , _tweakMax = 4
-        }
+--tractorGunTweak :: TweakParam
+--tractorGunTweak =
+--    TweakParam
+--        { _tweakType = TweakTractionPower
+--        , _tweakVal = 1
+--        , _tweakMax = 4
+--        }
 
 --lasWide :: Int -> Item
 --lasWide n =

src/Dodge/Item/Held/Launcher.hs

@@ -63,34 +63,34 @@ launcherX i =
 --        & itScope .~ RemoteScope (V2 0 0) 1
 ----        & itUse . heldConsumption . laAmmoType . amPjDraw .~ DrawRemoteShell
 
-basicAmPjMoves :: IM.IntMap TweakParam
-basicAmPjMoves =
-    IM.fromList . zip [0 ..] $
-        [ spinDrag
-        , spinStart
-        , thrustParam
-        ]
+--basicAmPjMoves :: IM.IntMap TweakParam
+--basicAmPjMoves =
+--    IM.fromList . zip [0 ..] $
+--        [ spinDrag
+--        , spinStart
+--        , thrustParam
+--        ]
 
-spinDrag :: TweakParam
-spinDrag =
-    TweakParam
-        { _tweakType = TweakSpinDrag
-        , _tweakVal = 1
-        , _tweakMax = 5
-        }
-
-spinStart :: TweakParam
-spinStart =
-    TweakParam
-        { _tweakType = TweakSpinAmount
-        , _tweakVal = 2
-        , _tweakMax = 5
-        }
-
-thrustParam :: TweakParam
-thrustParam =
-    TweakParam
-        { _tweakType = TweakThrustDelay
-        , _tweakVal = 1
-        , _tweakMax = 5
-        }
+--spinDrag :: TweakParam
+--spinDrag =
+--    TweakParam
+--        { _tweakType = TweakSpinDrag
+--        , _tweakVal = 1
+--        , _tweakMax = 5
+--        }
+--
+--spinStart :: TweakParam
+--spinStart =
+--    TweakParam
+--        { _tweakType = TweakSpinAmount
+--        , _tweakVal = 2
+--        , _tweakMax = 5
+--        }
+--
+--thrustParam :: TweakParam
+--thrustParam =
+--    TweakParam
+--        { _tweakType = TweakThrustDelay
+--        , _tweakVal = 1
+--        , _tweakMax = 5
+--        }