[Turn off line numbering]
1: arg new_flags;
2:
3: (> .perms(sender(), 'manager) <);
4: (> $sys.touch() <);
5: if (type(new_flags) != 'list)
6: throw(~invflags, "Flags must be submitted as a list of symbols.");
7: if (!new_flags && flags)
8: return clear_var('flags);
9: if (('core in new_flags && !('core in .flags())) && !$sys.is_system(sender()))
10: throw(~perm, "Only system objects can set the 'core flag.");
11: if ('fertile in new_flags && !('fertile in flags))
12: (> .perms(sender(), 'manager) <);
13: flags = new_flags;
["// Created as a part of ColdCore, see: @help Credit"]