Switch to edit mode.
Name(s): page pa1: "Copied from Generic Player (#12):page by Slacker (#55)Mar 10 09:13:11 1999"
2: nargs = length(args)
3: if (nargs < 1)
4: $msg:mtell("page_usage")
5: return
6: endif
7: text = ""
8: if (nargs > 1)
9: if (args[2] == "with" && nargs > 2)
10: text = argstr[index(argstr, "with") + 5..$]
11: else
12: text = argstr[index(argstr, args[1]) + length(args[1]) + 1..$]
13: endif
14: endif
15: "if ($su:is_numeric(args[1]) && (!valid($su:match_local_player(args[1]))))"
16: " 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?\")))"
17: " $icq:page(args[1], tostr(\"SNM: \", $su:nn(player)), player.email_address, \"SNM Page\", text);"
18: " return player:tell(\"ICQ number paged.\");"
19: " else"
20: " return player:tell(\"ICQ number not paged.\");"
21: " endif"
22: "endif"
23: if (args[1] == "help")
24: success = 0
25: for x in (connected_players())
26: `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)" | "")))
27: $command_utils:suspend_if_needed()
28: endfor
29: if (success)
30: player.helping || player:tell("Your frantic plea for help has been sent.")
31: elseif (length(connected_players()) > 1)
32: 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.")
33: else
34: 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.")
35: endif
36: return
37: endif
38: who = $string_utils:match_local_player(args[1])
39: if ($command_utils:player_match_result(who, args[1])[1])
40: return
41: elseif (who in this.gaglist)
42: $msg:mtell("page_gag", who)
43: return
44: endif
45: "for pronoun_sub's benefit..."
46: dobj = who
47: iobj = player
48: result = who:receive_page(player:msg_page_origin(), text)
49: $msg:lmtell({who}, {who}, {player, result == 1 ? "msg_page_echo" | (result == 0 ? "msg_page_refused" | "msg_page_absent")}, "")