View/Edit #5660:@resident*s

Switch to edit mode.

1:  "Copied from dark side of a drop of rain (#613):@residents by killeen (#562)May 28 09:53:12 2001"
2:  "Copied from the generic enhanced room (#1606):@residents by Slacker (#55)Apr 21 21:42:51 2001"
3:  "Copied from Generic Room (#6):@residents by Slacker (#55)Apr 14 16:32:29 2001"
4:  if (typeof(this.residents) != $LIST)
5:    this.residents = {this.residents}
6:  endif
7:  "First, remove !valid objects from this room..."
8:  for x in (this.residents)
9:    if (!$recycler:valid(x))
10:     player:tell("Warning: removing ", x, ", an invalid object, from the residents list.")
11:     this.residents = setremove(this.residents, x)
12:   endif
13: endfor
14: if (!dobjstr)
15:   if (!this.residents)
16:     player:tell("There are no residents in this room.")
17:   else
18:     player:tell("Allowable residents in this room: ")
19:     for x in (this.residents)
20:       player:tell("  ", $string_utils:nn(x), "  --  ", x:rank())
21:     endfor
22:     player:tell("-----------")
23:   endif
24: elseif (!$perm_utils:controls(player, this))
25:   player:tell("You must own this room to manipulate the legal residents list.  Try contacting ", this.owner.name, ".")
26: else
27:   if (dobjstr[1] == "!")
28:     notflag = 1
29:     dobjstr = dobjstr[2..$]
30:   else
31:     notflag = 0
32:   endif
33:   result = $string_utils:match_player_or_object(dobjstr)
34:   if (!result)
35:     return
36:   else
37:     "a one element list was returned to us if it won."
38:     result = result[1]
39:     if (notflag)
40:       if (!(result in this.residents))
41:         player:tell(result.name, " doesn't appear to be in the residents list of ", this.name, ".")
42:       else
43:         this.residents = setremove(this.residents, result)
44:         player:tell(result.name, " removed from the residents list of ", this.name, ".")
45:       endif
46:     else
47:       if (result in this.residents)
48:         player:tell(result.name, " is already an allowed resident of ", this.name, ".")
49:       else
50:         this.residents = {@this.residents, result}
51:         player:tell(result.name, " added to the residents list of ", this.name, ".")
52:       endif
53:     endif
54:   endif
55: endif
56: "Last modified by Dax (#789) on Wed May  4 06:46:04 2005 MDT."

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