View/Edit #4554:@inviteass

Name(s): @inviteass

1:  if (!(verb == "@invite" && player in here.access[1] || player == this.owner))
2:    $msg:mtell("huh")
3:    return
4:  endif
5:  x = verb[2..$] in {"allow", "disallow", 0, 0, "invite"}
6:  if (argstr[1] == "!")
7:    here.access[x] = setremove(here.access[x], $su:match_player(argstr[2..$]))
8:  else
9:    p = $su:match_player(argstr)
10:   toint(p) > 0 ? here.access[x] = setadd(here.access[x], p) | 0
11:   if (x == 5)
12:     here:announce(player:title(), " @invites ", p:title(), ".")
13:     player:tell("You invite ", p:title(), ".")
14:   endif
15: endif
16: "Last modified by Michael (#9659) on Mon Sep  3 22:20:09 2001 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Michael (#9659)

You are not logged in.