@verb #12:"@gender" any none none rdo #55
@program #12:"@gender" any none none
set_task_perms(valid(caller_perms()) ? caller_perms() | player)
if (!args)
  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)
else
  gender = $string_utils:match_stringlist(args[1], $gender_utils.genders)
  if (typeof(gender) == $OBJ)
    player:tell("There is ", gender == $ambiguous_match ? "more than one" | "no", " gender that matches: ", args[1])
    this:sub_tell("Available genders: %1.", $gender_utils.genders)
  elseif (typeof(result = this:set_gender($gender_utils.genders[gender])) == $ERR)
    this:tell(result)
  else
    this:sub_tell("Gender set to %1. Your pronouns: %s, %o, %p, %q, %r, %S, %O, %P, %Q, %R.", this.gender)
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:47:06 2005 MDT."
.