getMsgSprites :: Env -> [Sprite]
getMsgSprites env = let evs        = events env
                        recentMsgs = catMaybes (map (toMessage env) (getEventsAfterTurns 2 evs))
                        staleMsgs  = catMaybes (map (toMessage env) (getEventsAfterTurns 11 (getEventsBeforeTurns 2 evs)))
                        msgs       = zip recentMsgs (repeat white) ++ zip staleMsgs (repeat grey)
                    in  mkColoredMessages (0, 15) . reverse . take 9 $ msgs
getMsgSprites :: Env -> [Sprite]
getMsgSprites env = let evs        = events env
                        recentMsgs = catMaybes (map (toMessage env) (getEventsAfterTurns 2 evs))
                        staleMsgs  = catMaybes (map (toMessage env) (getEventsAfterTurns 11 (getEventsBeforeTurns 2 evs)))
                        msgs       = zip recentMsgs (repeat white) ++ zip staleMsgs (repeat grey)
                    in  mkColoredMessages (0, 15) . reverse . take 9 $ msgs
getMsgSprites env = let evs        = events env
                        recentMsgs = catMaybes (map (toMessage env) (getEventsAfterTurns 2 evs))
                        staleMsgs  = catMaybes (map (toMessage env) (getEventsAfterTurns 11 (getEventsBeforeTurns 2 evs)))
                        msgs       = zip recentMsgs (repeat white) ++ zip staleMsgs (repeat grey)
                    in  mkColoredMessages (0, 15) . reverse . take 9 $ msgs