COWbrowse

You are looking at a command called describe

describe {object}
describe {object} as {text}
You can add some extra description to an object.

If you just type in an objects name you can re-edit its current description.
eg describe the mouse

If you use the 'as {text}' method you can type the whole description on the one command line.
eg:describe the mouse as which has gloppy ears

This is useful when using the 'dot space' delmiter between commands on the one line.
eg:create a fig. describe it as bursting with freshness. paint it as green. lock it

Note: usually the description starts with the word 'which' so it looks correct when a player looks at it eg:
a mouse which has floppy ears

if your planning on creating an object and adding a description, you will find that it automatically splits at the words which, that, for and by.
eg:create a mouse which has floppy ears

Created by wolis, last updated 13 Dec 2008

Code

get $target,as,$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 'description';
var $fld to 'extra';
say 'edits',"[$actor] starts to describe [$target]";
mode textbox;

##descit:
set $target's extra to $text;
say 'edits',"[$actor] describes [$target] as '$text'";
msg $loc,$actor,0,0,'force',"force:look $loc";

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

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

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