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

src/Dodge/Item/Weapon/Grenade.hs

@@ -5,6 +5,7 @@ import Dodge.Item.Data
 import Dodge.Base
 import Dodge.Picture.Layer
 import Dodge.SoundLogic
+import Dodge.SoundLogic.Synonyms
 import Dodge.Item.Attachment.Data
 import Dodge.Item.Draw
 import Dodge.Default.Shell

src/Dodge/Item/Weapon/Launcher.hs

@@ -110,8 +110,6 @@ doThrust pj w = w
     (sparkD,_) = randomR (-0.2,0.2) $ _randGen w
     r1 = randInCirc 10 & evalState $ _randGen w
     smokeGen = makeSmokeCloudAt (oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos))
-    
-
 
 flameLauncher :: Item
 flameLauncher = launcher & wpAmmo . amPayload .~ makeFlameExplosionAt