Beef up minigun

src/Dodge/WorldEvent/Explosion.hs

@@ -70,7 +70,7 @@ makeExplosionAt p w
     = soundOncePos grenadeBang p
     . addFlames 
     . explosionFlashAt p
-    $ makeShockwaveAt [] p 50 10 1 white w
+    $ makeShockwaveAt [] p 50 50 1 white w
   where 
     fVs  = replicateM 15 (randInCirc 1)  & evalState $ _randGen w
     fPs'' = replicateM 15 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -378,8 +378,7 @@ crsLightChain p d wlAttract w
         E3x2 p1 -> [E3x2 p1]
         E3x3 p1 -> E3x3 p1 : crsLightChain p1 (dChange + argV (p1 -.- p)) (min 1 (wlAttract + 0.3)) (set randGen g w)
     -- where (dChange, g) = (0, _randGen w)
-    where (dChange, g) = randomR (-0.05,0.05) $ _randGen w
-
+    where (dChange, g) = randomR (-0.5,0.5) $ _randGen w
 {-
 Finds whether a creature or wall is in front of a given point and direction.
 Evaluates to a creature as an 'E3x1' or a wall as an 'E3x2'.