diff --git a/src/Dodge/Critters.hs b/src/Dodge/Critters.hs index 940183883..c1b56821b 100644 --- a/src/Dodge/Critters.hs +++ b/src/Dodge/Critters.hs @@ -360,6 +360,7 @@ startCr = defaultCreature ,medkit 50 ,bezierGun ,poisonSprayer + ,blinkGun ] ++ repeat NoItem)) -- startInv diff --git a/src/Dodge/Update/UsingInput.hs b/src/Dodge/Update/UsingInput.hs index 41727e19b..76bf88ef8 100644 --- a/src/Dodge/Update/UsingInput.hs +++ b/src/Dodge/Update/UsingInput.hs @@ -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) - - diff --git a/src/Dodge/WorldEvent/Cloud.hs b/src/Dodge/WorldEvent/Cloud.hs index 6c2fb053e..d63e42235 100644 --- a/src/Dodge/WorldEvent/Cloud.hs +++ b/src/Dodge/WorldEvent/Cloud.hs @@ -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))