@verb #4457:"@away*m" any any any rxdo #4457
@program #4457:"@away*m" any any any
if (verb == "@away")
  if (`this.away[1] ! E_TYPE => 0')
    done = $cmd_utils:yes_or_no("You are away, do you wan't to come out of it?")
    if (done)
      this.location:announce(player:title(), " is now back from ", this.away[2], " gone for ", $time_utils:english_time(time() - this.away[3]), ".")
      player:tell("You are now back from ", this.away[2], " gone for ", $time_utils:english_time(time() - this.away[3]), ".")
      this.away = {0, "", 0}
    else
      player:tell("Still away.")
      return
    endif
  else
    if (!argstr)
      if (this.awaym == {})
        player:tell("You have no AutoAway Messages.")
      else
        for x in (this.awaym)
          player:tell("[", x in this.awaym, "]: ", x)
        endfor
      endif
      reason = $cmd_utils:read("Enter the reason for being away.")
    else
      reason = argstr
    endif
    if (!toint(reason))
      reason = reason
    else
      reason = this.awaym[toint(reason)]
    endif
    time = time()
    if (this:ok(this.location))
      reason = $gu:mg(@this.grads, reason)
    endif
    this.away = {1, reason, time}
    this.location:announce(player:title(), " is now set as away, Reason: ", reason, ".")
    player:tell("You are now set as away, Reason: ", reason, ".")
  endif
else
  if (this.awaym == {})
    player:tell("You have no AutoAway Messages.")
  else
    for x in (this.awaym)
      player:tell("[", x in this.awaym, "]: ", x)
    endfor
  endif
  player:tell("(E)dit # {E1}")
  player:tell("(D)elete # {D3}")
  player:tell("(A)dd")
  do = $cmd_utils:read("Enter the command.")
  if (!(do[1] in {"D", "A", "E"}))
    player:tell("Error.")
  else
    this:(tostr("do_", do[1]))(do[2..$])
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:15:36 2005 MDT."
.