@verb #2250:"page app*elle" this none this rdo #7788
@program #2250:"page app*elle" this none this
"Copied from Generic Player (#12):page by Slacker (#55)Jun 30 21:12:36 1998"
nargs = length(args)
if (nargs < 1)
  $msg:mtell("page_usage")
  return
endif
text = ""
if (nargs > 1)
  if (args[2] == "with" && nargs > 2)
    text = argstr[index(argstr, "with") + 5..$]
  else
    text = argstr[index(argstr, args[1]) + length(args[1]) + 1..$]
  endif
endif
"if ($su:is_numeric(args[1]) && (!valid($su:match_local_player(args[1]))))"
"  if ($cmd_utils:yes_or_no(tostr(\"User named '\", args[1], \"' could not be found. If this is an ICQ number, it can be paged from the MOO. Proceed assuming it is a valid ICQ number and that you wish to page it?\")))"
"    $icq:page(args[1], tostr(\"SNM: \", $su:nn(player)), player.email_address, \"SNM Page\", text);"
"    return player:tell(\"ICQ number paged.\");"
"  else"
"    return player:tell(\"ICQ number not paged.\");"
"  endif"
"endif"
if (args[1] == "help")
  success = 0
  for x in (connected_players())
    x:isa($helper) || x:isa($guardian) && x.helping && (success = 1) && x:sub_tell($code_utils:verb_or_property(x, "page_help_msg") || "[HELP]: %2: %1", text, tostr(player:titlec(), `player.helping ! E_PROPNF => 0' ? " (helper)" | ""))
    $command_utils:suspend_if_needed()
  endfor
  if (success)
    player:tell("Your frantic plea for help has been sent.")
  elseif (length(connected_players()) > 1)
    player:tell("Unfortunately, no designated helpers are available right now, but one of the other players currently on-line may be able to assist you.")
  else
    player:tell("Unfortunately, there is nobody on-line besides you right now.  Try the help system (type 'help') or come back at a busier time.")
  endif
  return
endif
who = $string_utils:match_local_player(args[1])
if ($command_utils:player_match_result(who, args[1])[1])
  return
elseif (who in this.gaglist)
  $msg:mtell("page_gag", who)
  return
endif
"for pronoun_sub's benefit..."
dobj = who
iobj = player
result = who:receive_page($code_utils:verb_or_property(player, "page_origin_msg"), text)
$msg:lmtell({who}, {who}, {player, result == 1 ? "msg_page_echo" | (result == 0 ? "msg_page_refused" | "msg_page_absent")}, "")
.