Tweak cloud springs

2021-03-23 23:49:59 +01:00
parent 3f86b0cda0
commit b7ec173d0e
3 changed files with 7 additions and 4 deletions
@@ -839,7 +839,7 @@ aGasCloud cid w
            pos = _crPos cr +.+ ((_crRad cr + 2.9) *.* unitVectorAtAngle (_crDir cr))
            pos2 = (0.5 *.* vel) +.+ 
                    _crPos cr +.+ ((_crRad cr + 2.9) *.* unitVectorAtAngle (_crDir cr))
-            vel = (_crPos cr -.- _crOldPos cr) +.+ 4 *.* unitVectorAtAngle dir
+            vel = (_crPos cr -.- _crOldPos cr) +.+ 10 *.* unitVectorAtAngle dir
            insertCloud = makeGasCloud pos vel -- . makeFlame pos2 vel (Just cid)

 makeGasCloud :: Point2 -> Point2 -> World -> World
@@ -852,7 +852,7 @@ makeGasCloud pos vel w = over clouds (IM.insert i theCloud)
                           , _clPict = \_ -> onLayer CrLayer $ color (withAlpha 0.1 col) 
                                                             $ circleSolid 20
                           , _clRad = 20
-                           , _clTimer = 200
+                           , _clTimer = 400
                           , _clEffect = cloudPoisonDamage
                           }
          (col, g) = runState (takeOne [green,yellow]) $ _randGen w