Beef up minigun

2021-08-28 12:09:39 +01:00
parent 1168da0531
commit 882a8e9824
17 changed files with 263 additions and 237 deletions
@@ -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