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

src/Dodge/Render/MenuScreen.hs

@@ -10,6 +10,7 @@ import Dodge.Data.Menu
 import Dodge.Config.Data
 --import Dodge.Base (halfWidth,halfHeight)
 import Picture
+import Geometry
 
 menuScreen 
     :: Configuration 
@@ -51,6 +52,7 @@ menuScreen cfig hw hh mLays = case mLays of
         ]
     (WaitMessage s _ : _) -> optionsList hw hh s []
     (Terminal s : _)    -> optionsList hw hh "SCANCODE INPUT" ['>':s ++ "_"]
+    (TerminalMessage t xs : _) -> displayStringList hw hh $ map snd $ filter (( > t) . fst) xs
     _ -> blank
   where 
     tst x y sc t = translate x y $ scale sc sc $ color white $ text t
@@ -60,6 +62,16 @@ menuScreen cfig hw hh mLays = case mLays of
     f x = show (round $ 10 * x :: Int)
     showShadRes i = "1/"++ show i
 
+displayStringList :: Float -> Float -> [String] -> Picture
+displayStringList hw hh ss = pictures
+    ( polygon (rectNSEW hh (-hh) hw (-hw))
+    : zipWith f ys ss
+    )
+  where
+    ys = [0,22..]
+    f y s = translate (10-hw) y . scale 0.15 0.15 $ text s
+    
+
 optionsList
     :: Float    -- ^ Half screen width
     -> Float    -- ^ Half screen height