Add flavour text, start smoke, support for different reload sounds

src/Dodge/WorldEvent/Cloud.hs

@@ -37,6 +37,10 @@ makeThickSmokeAt = makeCloudAt 3 50 (drawCloudWith 4 50 black)
 makeThinSmokeAt :: Point2 -> World -> World
 makeThinSmokeAt = makeCloudAt 5 400 (drawCloudWith 4 400 (withAlpha 0.05 black))
 
+makeStartCloudAt :: Point2 -> World -> World
+--makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
+makeStartCloudAt = makeCloudAt 10 400 (drawCloudWith (2) 800 white)
+
 makeSmokeCloudAt :: Point2 -> World -> World
 --makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
 makeSmokeCloudAt = makeCloudAt 15 400 (drawCloudWith (4/3) 800 (greyN 0.5))

src/Dodge/WorldEvent/Explosion.hs

@@ -9,6 +9,7 @@ import Dodge.WorldEvent.SpawnParticle
 import Dodge.WorldEvent.Flash
 import Dodge.RandomHelp
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 import Dodge.WorldEvent.Shockwave
 import Geometry
 import Picture

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -15,6 +15,7 @@ import Dodge.WorldEvent.Flash
 import Dodge.Particle.Bullet.Draw
 import Dodge.Particle.Bullet.Update
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 import Dodge.RandomHelp
 --import Dodge.Debug
 import Picture