View/Edit #12:@ban @unban

Switch to edit mode.

Name(s): @ban @unban
1:  "@ban user from group  -- Prevents user from posting to group (group can be 'me')"
2:  "@ban user             -- Prevents user from posting to the current group"
3:  "@ban                  -- Prevents the sender of your current message from posting"
4:  "Use @unban to undo"
5:  if (player != this)
6:    return $msg:mtell("huh")
7:  endif
8:  set_task_perms(player)
9:  if (!iobjstr)
10:   folder = this:current_folder()
11: elseif (prepstr == "from" && $mail_agent:match_failed(folder = $mail_agent:match_recipient(iobjstr), iobjstr))
12:   return
13: elseif (prepstr != "from")
14:   return player:tell("I don't understand that: try ", verb, " &lt;player&gt; from <list>")
15: endif
16: if (dobjstr)
17:   fool = dobjstr
18:   "Don't resolve here so you can @ban emails and anonymous pseudos"
19: else
20:   cur = this:current_message(folder)
21:   fool = $mail_agent:parse_address_field(folder:messages_in_seq(cur)[2][2])[1]
22: endif
23: player:tell(folder:(verb[2..$])(fool))
24: "Last modified by Dax (#789) on Thu Nov  8 11:59:19 2001 MST."
25: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
26: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

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

You are not logged in.

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