Move toward adding multiple equipable items that are not directly usable

src/Dodge/Magnet.hs

@@ -0,0 +1,10 @@
+module Dodge.Magnet where
+import Dodge.Data
+import Geometry
+
+import Control.Lens
+
+dampField :: Magnet -> Particle -> Particle
+dampField mg pt = case pt of
+    BulletPt{} | dist (head $ _btTrail' pt) (_mgPos mg) < 100 -> pt & btVel' *~ 0.5
+    _ -> pt