mkMessage :: Point -> String -> Sprite
mkMessage xy s = MessageSprite xy s (SpriteAttr white black)
mkMessage :: Point -> String -> Sprite
mkMessage xy s = MessageSprite xy s (SpriteAttr white black)
mkMessage xy s = MessageSprite xy s (SpriteAttr white black)