Tweak "magnets" that affect bullet movement

src/Dodge/HeldUse.hs

@@ -492,7 +492,7 @@ makeBullet thebullet itm cr mz w =
 mcUseHeld :: HeldItemType -> Item -> Machine -> World -> World
 mcUseHeld hit = case hit of
     LASER -> mcShootLaser
-    _ -> \_ _ -> id
+    _ -> mcShootAuto
 
 useGasParams :: Maybe Int -> Muzzle -> Item -> Creature -> World -> World
 useGasParams mmagid mz itm cr w =
@@ -554,6 +554,9 @@ mcShootLaser _ mc = cWorld . lWorld . lasers .:~ lasRayAt yellow dam phasev pos
     phasev = 1
     dam = 11
 
+mcShootAuto :: Item -> Machine -> World -> World
+mcShootAuto _ _ = id
+
 -- | assumes that the item is held
 shootTeslaArc :: Item -> Creature -> Muzzle -> World -> World
 shootTeslaArc itm cr mz w =