View/Edit #1:_set_*

Switch to edit mode.

Name(s): _set_*
1:  if ((stuff = this:has_callable_verb("set_" + verb[6..$])) && `listassoc(callers(), "set_" + verb[6..$], 2)[1] != stuff[1] ! E_RANGE => 1')
2:    set_task_perms(caller_perms())
3:    return this:("set_" + verb[6..$])(@args)
4:  endif
5:  try
6:    if (!index(property_info(this, verb[6..$])[2], "w") && !caller_perms():controls_property(this, verb[6..$]))
7:      raise(E_PERM)
8:    endif
9:  except (E_PROPNF)
10:   set_task_perms(caller_perms())
11: endtry
12: if (verb[6..$] in {"wizard"})
13:   caller_perms().wizard && $wiz_utils:wiz_alert(tostr(this, ":", verb), "Valid attempt to set " + verb[6..$] + " property!")
14:   raise(E_PERM)
15: endif
16: try
17:   return this.(verb[6..$]) = args[1]
18: except (E_PROPNF)
19:   raise(E_PROPNF, tostr("Property not found: \"", this, ".", verb[6..$], "\"."))
20: endtry
21: "Last modified by Cecil (#7407) on Tue Nov  5 22:26:12 2002 MST."

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

You are not logged in.

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