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

src/Dodge/Render/Picture.hs

@@ -50,10 +50,10 @@ customMouseCursor w =
     $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]
 
 testPic :: World -> [Picture]
-testPic w = 
-    [ setDepth (-1) . translate 0 0.8
-        . scale 0.001 0.001 . text . show $ _crMvDir $ you w
-    ]
+testPic _ = [blank]
+--    [ setDepth (-1) . translate 0 0.8
+--        . scale 0.001 0.001 . text . show $ _crMvDir $ you w
+--    ]
 
 crDraw :: World -> Creature -> Picture
 crDraw w c = _crPict c c w