Method code for $code_lib.add_random_quote()

[Turn on line numbering]

---

arg quote, @from;

if (!$sys.is_admin(sender()))
    throw(~perm, "Sender is not an admin");
if (type(quote) != 'string)
    throw(~type, "Quote must be given as a string.");
quote = "\"" + quote + "\"";
quote = quote.wrap_line(70);
quote = from ? [@quote, "     - " + from[1]] : quote;
quotes += [quote];

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]