@verb #16:"@deprog*rammer" any for/about any rxdo #789
@program #16:"@deprog*rammer" any for/about any
if (player != this)
  return $msg:mtell("huh")
elseif (!valid(who = $su:match_player(dobjstr)))
  return player:tell("Who is that?")
elseif (!who.programmer)
  return player:sub_tell("%1 isn't a programmer!", who)
elseif (!who.warned && !$cmd_utils:yes_or_no(who:title() + " has not been warned. Remove his/her programmer's bit anyways?"))
  return player:tell("No action taken.")
elseif (!(duration = $time_utils:parse_english_time_interval(iobjstr)))
  return player:tell("'", iobjstr, "' is not a valid time interval.")
else
  who.programmer = 0
  $msg:mtell({who, "i"}, "deprog", who, $time_utils:english_time(duration))
  $clock:schedule(who, "_set_programmer", {1}, 0, 0, duration)
  $mail_agent:send_message(this, {$newt_log}, tostr("@deprogrammer ", who.name, " (", who, ") for ", iobjstr), {})
endif
"Last modified by Dax (#789) on Sun Aug 18 17:56:28 2002 MDT."
.