toMessage e (GameUpdate (DrankAcid       m  ))          | isPlayer m = Just $ "It BURNS!"
toMessage e (GameUpdate (DrankAcid       m  ))          | isPlayer m = Just $ "It BURNS!"
toMessage e (GameUpdate (DrankAcid       m  ))          | isPlayer m = Just $ "It BURNS!"