Remove (by commenting out) module item-type system

src/Dodge/Item/Held/BatteryGuns.hs

@@ -21,7 +21,8 @@ sparkGun =
 
 teslaGun :: Item
 teslaGun =
-    defaultBatteryGun
+    --defaultBatteryGun
+    defaultHeldItem
         & itUse . heldParams .~ BeamShooterParams (Just (elecCrackleS,2))
         & itDimension . dimRad .~ 9
         & itDimension . dimCenter .~ V3 4 0 0
@@ -43,7 +44,7 @@ teslaGun =
 lasGun :: Item
 lasGun =
     defaultHeldItem
-        & itType . iyModules .~ batteryModules
+--        & itType . iyModules .~ batteryModules
 --        & itUse . heldMods .~ PistolMod 
         & itUse . heldParams .~ BeamShooterParams (Just (tone440sawtoothquietS,2))
         & itUse . heldAmmoTypes .~ singleAmmo ElectricalAmmo
@@ -119,17 +120,17 @@ tractorGunTweak =
 --        & itUse . heldAim . aimMuzzles 
 --            .~ [Muzzle (V2 30 y) 0 0 0 DefaultFlareType MuzzleLaser Nothing | y <- spreadFromCenter n 1]
 
-defaultBatteryGun :: Item
-defaultBatteryGun =
-    defaultHeldItem
-        & itType . iyModules .~ batteryModules
+--defaultBatteryGun :: Item
+--defaultBatteryGun =
+--    defaultHeldItem
+--        & itType . iyModules .~ batteryModules
 
-batteryModules :: M.Map ModuleSlot ItemModuleType
-batteryModules =
-    M.fromList
-        [ (ModBattery, EMPTYMODULE)
-        , (ModTeleport, EMPTYMODULE)
-        ]
+--batteryModules :: M.Map ModuleSlot ItemModuleType
+--batteryModules =
+--    M.fromList
+--        [ (ModBattery, EMPTYMODULE)
+--        , (ModTeleport, EMPTYMODULE)
+--        ]
 
 --lasCircle :: Item
 --lasCircle =

src/Dodge/Item/Held/Cane.hs

@@ -57,7 +57,7 @@ rifle =
         & itUse . heldAim . aimRange .~ 1
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1.5}
         & itUse . heldAim . aimMuzzles . ix 0 . mzPos .~ V2 25 0
-        & itType . iyModules . at ModHeldAttach ?~ EMPTYMODULE
+--        & itType . iyModules . at ModHeldAttach ?~ EMPTYMODULE
 
 --repeater :: Item
 --repeater =
@@ -71,7 +71,7 @@ autoRifle =
         & itType . iyBase .~ HELD AUTORIFLE
         & itUse . heldTriggerType .~ AutoTrigger
 --        & itUse . heldMods .~ AutoRifleMod
-        & itType . iyModules . at ModAutoMag ?~ EMPTYMODULE
+--        & itType . iyModules . at ModAutoMag ?~ EMPTYMODULE
 
 --    & itUse . useDelay . rateMax .~ 6
 burstRifle :: Item

src/Dodge/Item/Held/Launcher.hs

@@ -38,7 +38,7 @@ launcher =
         & itUse . heldAim . aimMuzzles . ix 0 . mzEffect .~ MuzzleLauncher
         & itUse . heldAmmoTypes .~ singleAmmo ProjectileAmmo
         & itType . iyBase .~ HELD LAUNCHER
-        & itType . iyModules . at ModLauncherHoming ?~ EMPTYMODULE
+--        & itType . iyModules . at ModLauncherHoming ?~ EMPTYMODULE
         & itUse . heldParams . muzVel .~ ConstFloat 0
         & itUse . heldParams . rifling .~ ConstFloat 0
         & itUse . heldParams . recoil .~ 0

src/Dodge/Item/Held/Stick.hs

@@ -57,7 +57,7 @@ autoPistol =
         & itUse . heldTriggerType .~ AutoTrigger
         & itUse . heldParams . bulGunSound ?~ (tap1S,0)
         & itType . iyBase .~ HELD AUTOPISTOL
-        & itType . iyModules . at ModAutoMag ?~ EMPTYMODULE
+--        & itType . iyModules . at ModAutoMag ?~ EMPTYMODULE
 
 machinePistol :: Item
 machinePistol =
@@ -66,7 +66,7 @@ machinePistol =
         --rateMax .~ 2
 --        & itUse . heldMods .~ PistolMod -- (ammoCheckI : machinePistolAfterHamMods)
         & itType . iyBase .~ HELD MACHINEPISTOL
-        & itType . iyModules . at ModAutoMag .~ Nothing
+--        & itType . iyModules . at ModAutoMag .~ Nothing
         & itUse . heldParams . recoil .~ 20
 
 smg :: Item

src/Dodge/Item/Held/Utility.hs

@@ -35,7 +35,7 @@ forceFieldGun :: Item
 forceFieldGun =
     defaultHeldItem
 --        & itUse . useTargeting ?~ TargetRBLine
-        & itType . iyModules . at ModTarget ?~ TARGET TargetRBLine
+--        & itType . iyModules . at ModTarget ?~ TARGET TargetRBLine
         & itParams .~ ParamMID Nothing
 --        & itUse . heldUse .~ HeldForceField --useForceFieldGun
         & itUse . heldDelay .~ NoDelay