justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak smoke cloud

Browse Source
This commit is contained in:
justin
2021-03-26 16:22:29 +01:00
parent 9f6d1442b3
commit 322855f25a
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Critters.hs
+1
View File
@@ -360,6 +360,7 @@ startCr = defaultCreature
,medkit 50 ,medkit 50
,bezierGun ,bezierGun
,poisonSprayer ,poisonSprayer
,blinkGun
] ]
++ repeat NoItem)) ++ repeat NoItem))
-- startInv -- startInv
src/Dodge/Update/UsingInput.hs
-2
View File
@@ -45,5 +45,3 @@ updatePressedButtonsCarte keys w
rot = angleBetween (_mousePos w) (_clickMousePos w) rot = angleBetween (_mousePos w) (_clickMousePos w)
zoom = magV (_mousePos w) / magV (_clickMousePos w) zoom = magV (_mousePos w) / magV (_clickMousePos w)
trans = rotateV (_carteRot w) $ (1 / _carteZoom w) *.* (_mousePos w -.- _clickMousePos w) trans = rotateV (_carteRot w) $ (1 / _carteZoom w) *.* (_mousePos w -.- _clickMousePos w)
src/Dodge/WorldEvent/Cloud.hs
+2 -1
View File
@@ -38,7 +38,8 @@ makeThinSmokeAt :: Point2 -> World -> World
makeThinSmokeAt = makeCloudAt 5 400 (drawCloudWith 4 400 (withAlpha 0.05 black)) makeThinSmokeAt = makeCloudAt 5 400 (drawCloudWith 4 400 (withAlpha 0.05 black))
makeSmokeCloudAt :: Point2 -> World -> World 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 :: Point2 -> World -> World
makeFlamerSmokeAt = makeCloudAt 3 200 (drawCloudWith 4 200 (greyN 0.5)) makeFlamerSmokeAt = makeCloudAt 3 200 (drawCloudWith 4 200 (greyN 0.5))