Implement teleporting bullets

src/Dodge/Default/Weapon.hs

@@ -10,7 +10,7 @@ import Shape
 import Geometry
 --import Dodge.TweakBullet
 
---import qualified Data.IntMap.Strict as IM
+import qualified Data.Map.Strict as M
 import Control.Lens
 
 defaultAmmo :: ItemConsumption
@@ -100,10 +100,9 @@ defaultGun = Item
     , _itTargeting = Nothing
     , _itParams = NoParams
     , _itTweaks = NoTweaks
-    , _itModules = ItemModules
-        { _modHitEffect = DefaultModule
-        , _modRifleMag  = BlockedModule
-        }
+    , _itModules = M.fromList [(ModBullet , DefaultModule)
+        ,(ModBulletTarget,DefaultModule)
+        ]
     }
 defaultCraftable :: Item
 defaultCraftable = Item 
@@ -126,10 +125,7 @@ defaultCraftable = Item
     , _itParams = NoParams
     , _itDimension = defItDimCol green
     , _itTweaks = NoTweaks
-    , _itModules = ItemModules 
-        { _modHitEffect = BlockedModule
-        , _modRifleMag = BlockedModule
-        }
+    , _itModules = M.empty
     }
 defItDim :: ItemDimension
 defItDim = ItemDimension