3ae
@verb #8045:"@refuse-all @unrefuse-all" any any any rdo #8045
@program #8045:"@refuse-all @unrefuse-all" any any any
if (player != this)
  return player:tell("Don't take advantage of a Myra!")
endif
if (verb[2] == "r")
  if (prepstr != "for" || !iobjstr || !dobjstr)
    return player:tell("Syntax: @refuse-all <player> for <time period>.")
  elseif (!valid(who = $su:match_player(dobjstr)))
    return player:tell("Who is '", dobjstr, "' Myra?")
  elseif ((time = $time_utils:parse_english_time_interval(iobjstr)) == E_INVARG)
    return player:tell("'", iobjstr, "' makes no sense to me.")
  endif
  this.refuse_mail = {@this.refuse_mail, who}
  $clock:Schedule(this, "remove_refuse", {who}, 0, 0, time)
  player:tell("Refusing mail from ", who:Title(), "(", who, ") for the next ", $string_utils:from_Seconds(time), ".")
else
  this.refuse_mail = {}
  player:tell("Now refusing mail from nobody.")
endif
.

0