createMsgs :: [WormsObject]
createMsgs =
  let picLevel1          = Tex (150,50)  0
      picLevel2          = Tex (150,50)  1
      picLevel3          = Tex (150,50)  2
      picGameOver        = Tex (300,100) 3
      picCongratulations = Tex (300,100) 4
  in [(object "level1"          picLevel1          True (395,300) (0,0) NoObjectAttribute),
      (object "level2"          picLevel2          True (395,300) (0,0) NoObjectAttribute),
      (object "level3"          picLevel3          True (395,300) (0,0) NoObjectAttribute),
      (object "gameover"        picGameOver        True (395,300) (0,0) NoObjectAttribute),
      (object "congratulations" picCongratulations True (395,300) (0,0) NoObjectAttribute)]
createMsgs :: [WormsObject]
createMsgs =
  let picLevel1          = Tex (150,50)  0
      picLevel2          = Tex (150,50)  1
      picLevel3          = Tex (150,50)  2
      picGameOver        = Tex (300,100) 3
      picCongratulations = Tex (300,100) 4
  in [(object "level1"          picLevel1          True (395,300) (0,0) NoObjectAttribute),
      (object "level2"          picLevel2          True (395,300) (0,0) NoObjectAttribute),
      (object "level3"          picLevel3          True (395,300) (0,0) NoObjectAttribute),
      (object "gameover"        picGameOver        True (395,300) (0,0) NoObjectAttribute),
      (object "congratulations" picCongratulations True (395,300) (0,0) NoObjectAttribute)]
createMsgs =
  let picLevel1          = Tex (150,50)  0
      picLevel2          = Tex (150,50)  1
      picLevel3          = Tex (150,50)  2
      picGameOver        = Tex (300,100) 3
      picCongratulations = Tex (300,100) 4
  in [(object "level1"          picLevel1          True (395,300) (0,0) NoObjectAttribute),
      (object "level2"          picLevel2          True (395,300) (0,0) NoObjectAttribute),
      (object "level3"          picLevel3          True (395,300) (0,0) NoObjectAttribute),
      (object "gameover"        picGameOver        True (395,300) (0,0) NoObjectAttribute),
      (object "congratulations" picCongratulations True (395,300) (0,0) NoObjectAttribute)]