Method code for $scheduler.del_sub_scheduler()

[Turn off line numbering]

---

  1: arg object;
  2: var pos, s;
  3: 
  4: if (!$sys.is_admin(sender()))
  5:     throw(~perm, "Only admins may delete sub schedulers.");
  6: if (type(object) != 'objnum)
  7:     throw(~type, "Object must be a dbref.");
  8: pos = object in sub_schedulers;
  9: if (!pos)
 10:     throw(~objnf, "Object not a sub scheduler.");
 11: s = [];
 12: if (pos > 1)
 13:     s += [sub_schedulers.subrange(1, pos - 1)];
 14: if (s < sub_schedulers.length())
 15:     s += [sub_schedulers.subrange(pos + 1)];
 16: sub_schedulers = s;

---

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