View/Edit #12:@gender

Switch to edit mode.

Name(s): @gender
1:  set_task_perms(valid(caller_perms()) ? caller_perms() | player)
2:  if (!args)
3:    this:sub_tell({"Your gender is currently %1.", "Your pronouns: %s, %o, %p, %q, %r, %S, %O, %P, %Q, %R", "Available genders: %2."}, this.gender, $gender_utils.genders)
4:  else
5:    gender = $string_utils:match_stringlist(args[1], $gender_utils.genders)
6:    if (typeof(gender) == $OBJ)
7:      player:tell("There is ", gender == $ambiguous_match ? "more than one" | "no", " gender that matches: ", args[1])
8:      this:sub_tell("Available genders: %1.", $gender_utils.genders)
9:    elseif (typeof(result = this:set_gender($gender_utils.genders[gender])) == $ERR)
10:     this:tell(result)
11:   else
12:     this:sub_tell("Gender set to %1. Your pronouns: %s, %o, %p, %q, %r, %S, %O, %P, %Q, %R.", this.gender)
13:   endif
14: endif
15: "Last modified by Dax (#789) on Tue May  3 13:47:06 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]