Method code for $scheduler.del_sub_scheduler()

[Turn on line numbering]

---

arg object;
var pos, s;

if (!$sys.is_admin(sender()))
    throw(~perm, "Only admins may delete sub schedulers.");
if (type(object) != 'objnum)
    throw(~type, "Object must be a dbref.");
pos = object in sub_schedulers;
if (!pos)
    throw(~objnf, "Object not a sub scheduler.");
s = [];
if (pos > 1)
    s += [sub_schedulers.subrange(1, pos - 1)];
if (s < sub_schedulers.length())
    s += [sub_schedulers.subrange(pos + 1)];
sub_schedulers = s;

---

// Miroslav Silovic
// Created 05-Sep-1995 as a part of ColdCore, see: @help Credit