415
@verb #8438:"answering_machine" this none this rxdo #8438
@program #8438:"answering_machine" this none this
`set_task_perms(this) ! ANY => raise(E_PERM, "No.", E_PERM)'
if (!args && caller_perms() == this)
  new = 0
  for msg in (this.answering_machine)
    if (msg[4] == 0)
      new = new + 1
    endif
    $command_utils:suspend_if_needed(0)
  endfor
  if (new == 0)
    return player:tell("There are no new messages on your answering machine.")
  else
    string = $pueblo_utils:to_command("@check-machine", tostr(tostr(new), " new message", new > 1 ? "s" | ""))
    return player:tell("There ", new > 1 ? "are" | "is", " ", string, " on your answering machine.")
  endif
elseif (args && length(args) > 1)
  msg = tostr(args[length(args)] && args[length(args)] == 2 ? tostr(player.name, " ", args[length(args) - 1]) | args[2])
  this.answering_machine = setadd(this.answering_machine, {player, time(), msg, 0})
  return 2
else
  raise(E_PERM)
endif
"Last modified by Jay (#8438) on Sun Jan 28 12:22:09 2001 MST."
.

0