458
@verb #1880:"page" any any any rdo #1880
@program #1880:"page" any any any
who = $string_utils:match_local_player(args[1])
if ($cmd_utils:player_match_result(who, args[1])[1])
  another = $cmd_utils:yes_or_no("Try again?")
  if (!another)
    return player:tell("Command aborted.")
  endif
  if (another)
    whos = $cmd_utils:read("who")
    len = length(args[1]) + 2
    return force_input(this, tostr("page ", whos, " ", argstr[len..$]))
  endif
endif
if (!who:connected(1))
  return pass(@args)
endif
idletime = $string_utils:from_seconds(who:idle_seconds())
this:tell(who:title(), " has been idle for ", idletime, " are you sure you want to page them now?")
y_n = $cmd_utils:yes_or_no()
if (y_n)
  return pass(@args)
endif
player:Tell(who:title(), " wasn't paged.")
another = $cmd_utils:yes_or_no("Another player maybe?")
if (another)
  whos = $cmd_utils:read("who")
  len = length(args[1]) + 2
  return force_input(this, tostr("page ", whos, " ", argstr[len..$]))
endif
return player:tell("Page aborted.")
"Last modified by hoax (#1880) on Tue Jun 22 20:31:43 1999 MDT."
.

0