553
@verb #4457:"@page" any any any rxdo #4457
@program #4457:"@page" any any any
"Copied from The info feature (#3512):@page by Raptor (#6319)Aug 16 21:27:10 2000"
"@page <player 1> <player 2> <...> [with <message>]"
""
"Pages multiple players.  It uses your page_origin_msg, but returns simple one-line responses depending on how the page was recieved.  If you do not supply <message> in the arguments, then it will prompt you for one."
if (length(args) < 1)
  return player:tell("Usage: ", verb, " &lt;players&gt;")
endif
people = {}
pargs = args[1..(x = "with" in args) ? x - 1 | $]
people = $command_utils:player_match_result($string_utils:match_local_player(pargs), pargs)[2..$]
if (!people)
  return player:tell("None of the names seem to match players...")
endif
message = x ? $string_utils:from_list(args[x + 1..$], " ") | $command_utils:read("your message")
omessage = message
{meh, text} = #2440:fa(message)
message = $gu:mg(@this.grads, text)
message = #2440:dfa(meh, message)
for person in (people)
  message = this:ok(person.location) ? message | omessage
  result = person:receive_page(player:msg_page_origin(), message)
  player:tell(person:title(), result == 1 ? " received the page." | (result == 0 ? " seems to have blocked it..." | " is asleep!"))
endfor
"Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."
.

0