Tweak smoke cloud

2021-03-26 16:22:29 +01:00
parent 9f6d1442b3
commit 322855f25a
3 changed files with 3 additions and 3 deletions
@@ -360,6 +360,7 @@ startCr = defaultCreature
                            ,medkit 50
                            ,bezierGun
                            ,poisonSprayer
+                            ,blinkGun
                            ] 
                            ++ repeat NoItem)) 
                          -- startInv
@@ -45,5 +45,3 @@ updatePressedButtonsCarte keys w
    rot     = angleBetween (_mousePos w) (_clickMousePos w)
    zoom    = magV (_mousePos w) / magV (_clickMousePos w)
    trans   = rotateV (_carteRot w) $ (1 / _carteZoom w) *.* (_mousePos w -.- _clickMousePos w)
-    
-
@@ -38,7 +38,8 @@ makeThinSmokeAt :: Point2 -> World -> World
 makeThinSmokeAt = makeCloudAt 5 400 (drawCloudWith 4 400 (withAlpha 0.05 black))

 makeSmokeCloudAt :: Point2 -> World -> World
-makeSmokeCloudAt = makeCloudAt 5 200 (drawCloudWith 4 200 (greyN 0.5))
+--makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
+makeSmokeCloudAt = makeCloudAt 15 400 (drawCloudWith (4/3) 800 (greyN 0.5))

 makeFlamerSmokeAt :: Point2 -> World -> World
 makeFlamerSmokeAt = makeCloudAt 3 200 (drawCloudWith 4 200 (greyN 0.5))