COWbrowse

You are looking at a command called gender

gender {object}
gender {object} as "him|her"

Use this to define the gender of an object. iether one you have created or yourself.

gender me - then type 'him'or 'her' in the text box.
gender me as him
create a mermaid. gender her as her.

(notice how you can refer to your last object with 'it', 'them', 'him', or 'her')

This only has an effect in the look of a location, when objects are put on other objects. Sometime soon this will be accessible in scripts for print statements.

Created by wolis, last updated 18 Jul 2012

Code

get $target,$rel,$text,non-greedy in $loc;
if $target > 0 then checkpw else chkoneword;
##chkoneword:
var $text to '';
get $target in $loc;
if $target > 0 then checkpw else fail;
##checkpw:
if $pw like $target's pwd then chkdesc else itslocked;
##chkdesc:
if $text eq '' then editdesc else descit;

##editdesc:
var $caption to 'gender (him or her)';
var $fld to 'gender';
say 'edit',"[$actor] starts to edit the gender of [$target]";
mode textbox;

##descit:
set $target's gender to $text;
say 'edits',"[$actor] edits the gender of [$target]";
relook $loc;

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'gender';
var $desc_intro to "Click on the object you want to edit the $click_cmd of:

";
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##itslocked:
say 'objlocked',"[$actor] could not edit [$target] because its locked";