Method code for $root.change_manager()

[Turn on line numbering]

---

arg new;
var old;

if (caller() != definer() && !$sys.is_system(sender()))
    throw(~perm, "You must have system privileges to change the manager.");
(> $sys.touch() <);
if (type(new) != 'objnum)
    throw(~invarg, "Managers must be given as a single dbref.");
old = .manager();
manager = new;
old.del_managed_obj();
new.add_managed_obj();

---

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