Add shaders that will just return positional information

src/Dodge/Item/Weapon.hs

@@ -322,7 +322,8 @@ ltAutoGun = defaultAutoGun
         , useTimeCheckI
         , withSoundI 0
         , useAmmo 1
-        , withRandomDirI 0.3
+        , withRandomDirI 0.1
+        , torqueAfterI 0.2
         , withSidePushI 50
         , withMuzFlareI
         ]
@@ -357,25 +358,30 @@ miniGun = defaultAutoGun
         [ ammoCheckI
         , withWarmUpI 26
         , useTimeCheckI
-        , withRecoilI 25
+        , withRecoilI recoilAmount
         , withSoundForI 28 2
+        --, withThinSmokeI
         , torqueAfterI 0.05
         , withSidePushI 53
+        , withRecoilI recoilAmount
         , withRandomOffsetI 12
         , trigDoAlso (useAmmoParamsVelMod vm1)
         --, torqueBeforeForcedI 0.001
         , withSidePushI 52
+        , withRecoilI recoilAmount
         , withRandomOffsetI 11
         , withOldDir od1
         , trigDoAlso (useAmmoParamsVelMod vm2)
         --, torqueBeforeForcedI 0.001
         , withSidePushI 51
+        , withRecoilI recoilAmount
         , withRandomOffsetI 10
         , withOldDir od2
         , trigDoAlso (useAmmoParamsVelMod vm3)
         , useAmmo 4
         --, torqueBeforeForcedI 0.001
         , withSidePushI 50
+        , withRecoilI recoilAmount
         , withRandomOffsetI 9
         , withMuzFlareI
         , withOldDir od3
@@ -388,6 +394,7 @@ miniGun = defaultAutoGun
     , _wpAmmo = basicBullet
     }
   where
+    recoilAmount = 5
     [vm1,vm2,vm3,vm4] = 
         [ 0.25
         , 0.5

src/Dodge/Item/Weapon/TriggerType.hs

@@ -19,6 +19,7 @@ module Dodge.Item.Weapon.TriggerType
     , withRandomOffsetI
     , withRandomDirI
     , withRecoilI
+    , afterRecoil
     , withSidePushAfterI
     , withSidePushI
     , withWarmUpI
@@ -153,6 +154,13 @@ withSoundForI soundid playTime f item cr
     = soundFromPos (CrWeaponSound (_crID cr)) (_crPos cr) soundid playTime 0
     . f item cr
 
+afterRecoil
+    :: Float    -- ^ Recoil amount
+    -> ChainEffect
+afterRecoil recoilAmount eff item cr = eff item (pushback cr) . over (creatures . ix cid) pushback
+  where 
+    cid = _crID cr
+    pushback = over crPos (+.+ rotateV (_crDir cr) (V2 ((-recoilAmount) / _crMass cr ) 0))
 withRecoilI
     :: Float    -- ^ Recoil amount
     -> ChainEffect