Implement teleporting bullets

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -34,6 +34,7 @@ import Sound.Data
 import LensHelp
 
 import Data.Maybe
+--import qualified Data.Map.Strict as M
 --import qualified Data.Sequence as Seq
 --import Control.Lens
 --import Control.Monad.State
@@ -64,9 +65,9 @@ bangCane = defaultGun
         , useAmmoAmount 1
         , torqueAfterI 0.1
         , applyInaccuracy
-        , withMuzFlareI
         , withRecoilI 50
         , withSmoke 1 black 20 200 5
+        , withMuzFlareI
         ]
     , _itTweaks = defaultBulletSelTweak
     , _itDimension = ItemDimension
@@ -153,10 +154,7 @@ rifle = bangCane
 
 repeater :: Item
 repeater = rifle
-    & itModules .~ ItemModules
-        { _modHitEffect = DefaultModule 
-        , _modRifleMag = DefaultModule
-        }
+    & itModules . at ModRifleMag ?~ DefaultModule
     & itName .~ "REPEATER"
     & itType .~ REPEATER
     & itConsumption . reloadType .~ ActiveClear
@@ -177,6 +175,7 @@ autoRifle = repeater
     & itName .~ "AUTORIFLE"
     & itType .~ AUTORIFLE
     & itUse . useMods %~ ((ammoCheckI :) . tail)
+    & itModules . at ModAutoMag ?~ DefaultModule
 --    & itUse . useDelay . rateMax .~ 6
 burstRifle :: Item
 burstRifle = repeater
@@ -218,7 +217,7 @@ completeBurstRifle :: Item
 completeBurstRifle = repeater
     & itName .~ "COMPLETEBURSTRIFLE"
     & itType .~ COMPLETEBURSTRIFLE
-    & itModules . modRifleMag .~ BlockedModule
+    & itModules . at ModRifleMag .~ Nothing
     & itParams . gunBarrels . brlInaccuracy .~ 0.1
     & itUse . useDelay . rateMax .~ 28
     & itUse . useMods .~

src/Dodge/Item/Weapon/BulletGun/Stick.hs

@@ -199,12 +199,14 @@ autoPistol = pistol
     & itUse . useMods .~ (ammoCheckI : pistolAfterHamMods)
     & itName .~ "AUTOPISTOL"
     & itType .~ AUTOPISTOL
+    & itModules . at ModAutoMag ?~ DefaultModule
 machinePistol :: Item
 machinePistol = autoPistol 
     & itUse . useDelay . rateMax .~ 2
     & itUse . useMods .~ (ammoCheckI : machinePistolAfterHamMods)
     & itName .~ "MACHINEPISTOL"
     & itType .~ MACHINEPISTOL
+    & itModules . at ModAutoMag .~ Nothing
 smg :: Item
 smg = autoPistol -- & some parameter affecting stability
     & itUse . useMods .~ (ammoCheckI : smgAfterHamMods)