Generic Gendered Object

Generic Gendered Object (#77)

(an instance of Root Class made by The_Mayor)

VERB SOURCE CODE:

set_gender:

"set_gender(newgender) attempts to change this.gender to newgender";
"  => E_PERM   if you don't own this or aren't its parent";
"  => Other return values as from $gender_utils:set.";
if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
    return E_PERM;
else
    result = $gender_utils:set(this, args[1]);
    this.gender = (typeof(result) == STR) ? result | args[1];
    return result;
endif
.

@gen*der:

if (player.wizard || (player == this.owner))
    player:tell(this:set_gender(iobjstr) ? "Gender and pronouns set." | "Gender set.");
else
    player:tell("Permission denied.");
endif
.

PROPERTY DATA:
      gender
      pqc
      pq
      ppc
      pp
      prc
      pr
      poc
      po
      psc
      ps

CHILDREN:
you Claudia