Method code for $root.set_flags()

[Turn on line numbering]

---

arg new_flags;

(> .perms(sender(), 'manager) <);
(> $sys.touch() <);
if (type(new_flags) != 'list)
    throw(~invflags, "Flags must be submitted as a list of symbols.");
if (!new_flags && flags)
    return clear_var('flags);
if (('core in new_flags && !('core in .flags())) && !$sys.is_system(sender()))
    throw(~perm, "Only system objects can set the 'core flag.");
if ('fertile in new_flags && !('fertile in flags))
    (> .perms(sender(), 'manager) <);
flags = new_flags;

---

// Created as a part of ColdCore, see: @help Credit