Method code for $code_lib.add_random_quote()

[Turn off line numbering]

---

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

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit