Beef up minigun

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