View/Edit #12:@renum*ber

Switch to edit mode.

Name(s): @renum*ber
1:  set_task_perms(player)
2:  if (!dobjstr)
3:    folder = this:current_folder()
4:  elseif ($mail_agent:match_failed(folder = $mail_agent:match_recipient(dobjstr), dobjstr))
5:    return
6:  endif
7:  cur = this:current_message(folder)
8:  fname = $mail_agent:name(folder)
9:  if (typeof(h = folder:renumber(cur)) == $ERR)
10:   player:tell(h)
11: else
12:   if (!h[1])
13:     player:tell("No messages on ", fname, ".")
14:   else
15:     player:tell("Messages on ", fname, " renumbered 1-", h[1], ".")
16:     this:set_current_folder(folder)
17:     if (h[2] && this:set_current_message(folder, h[2]))
18:       player:tell("Current message is now ", h[2], ".")
19:     endif
20:   endif
21: endif
22: "Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

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