2f0
@verb #16:"_kick" this none this rxdo #789
@program #16:"_kick" this none this
"Begin generic security check (_kick)"
if (verb == "_kick" && !args[1]:isa(this))
  raise(E_INVARG, "Illegal object", args[1])
  return E_INVARG
endif
"End generic security check (_kick)"
"Guardians shoudn't have teachers."
{victim} = args
victim:isa($guardian) || raise(E_PERM)
if (victim.teachers)
  for dude in (victim.teachers)
    if (!dude in $wiz_utils.allowed_gt)
      $wiz_utils:guard_alert("Removing ", $su:nn(dude), " from ", $su:nn(victim), "'s list of teachers.")
      dude.students = setremove(dude.students, victim)
    endif
  endfor
  victim.teachers = {}
endif
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."
.

0