835
@verb #4457:"page" any any any rxdo #4457
@program #4457:"page" any any any
"Copied from Generic Player (#12):page by Slacker (#55)Jul 31 15:20:50 2000"
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 (args[1] == "help")
  success = 0
  for x in (connected_players())
    `x.helping ! E_PROPNF' && (success = 1) && x:sub_tell(`x:msg_page_help() ! ANY => "[HELP]: %2: %1"', text, tostr(player:titlec(), `player.prog_help ! ANY' ? " (prog-helper)" | (`player.helping ! ANY' ? " (helper)" | "")))
    $command_utils:suspend_if_needed()
  endfor
  if (success)
    player.helping || 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
msg = {$su:substitute(player:msg_page_origin()[1], {{"%n", player:title()}}), player:msg_page_origin()[2]}
if (this:ok(who.location) && who != #3852)
  {meh, text} = #2440:fa(text)
  text = $gu:mg(@this.grads, text)
  text = #2440:dfa(meh, text)
endif
result = who:receive_page(msg, text)
$msg:lmtell({who}, {who}, {player, result == 1 ? "msg_page_echo" | (result == 0 ? "msg_page_refused" | "msg_page_absent")}, "")
"Last modified by Rubbie (#4457) on Wed Aug 16 14:20:54 2000 MDT."
.

0