View/Edit #1880:page

Switch to edit mode.

1:  who = $string_utils:match_local_player(args[1])
2:  if ($cmd_utils:player_match_result(who, args[1])[1])
3:    another = $cmd_utils:yes_or_no("Try again?")
4:    if (!another)
5:      return player:tell("Command aborted.")
6:    endif
7:    if (another)
8:      whos = $cmd_utils:read("who")
9:      len = length(args[1]) + 2
10:     return force_input(this, tostr("page ", whos, " ", argstr[len..$]))
11:   endif
12: endif
13: if (!who:connected(1))
14:   return pass(@args)
15: endif
16: idletime = $string_utils:from_seconds(who:idle_seconds())
17: this:tell(who:title(), " has been idle for ", idletime, " are you sure you want to page them now?")
18: y_n = $cmd_utils:yes_or_no()
19: if (y_n)
20:   return pass(@args)
21: endif
22: player:Tell(who:title(), " wasn't paged.")
23: another = $cmd_utils:yes_or_no("Another player maybe?")
24: if (another)
25:   whos = $cmd_utils:read("who")
26:   len = length(args[1]) + 2
27:   return force_input(this, tostr("page ", whos, " ", argstr[len..$]))
28: endif
29: return player:tell("Page aborted.")
30: "Last modified by hoax (#1880) on Tue Jun 22 20:31:43 1999 MDT."

[home | help | who | search | setup | code]