COWbrowse

You are looking at a command called material

material {object}
material {object} as "material string"

You can edit an oject material, which will change what code it inherits form material objects.

eg:
material the frog as _happy_|_jumping_|_edible_

Always seperate materials with a veritcal bar and dont leave leading or trailing bars.

Always wrap the material words in underscores. This makes te matching of material objects exactly on the word, not partial word.

If you create a material called happy, a material called jumping and/or a material called edible, then code them to react in meaningful ways, the frog will inherit all of those reactions.

We will need a materials register so people know what different materials do.. the book of materials is probably the best place. So place all material objects in there and clearly describe all of the rections your material does.

Note: objects can not trigger commands that cause themselves to react. Remember this when coding.

read the info on swap as this is useful for maniuplating string in cowScript.
read the info on inheritance too

Created by wolis, last updated 12 Jan 2010

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 'material';
var $fld to 'material';
say 'edit',"[$actor] starts to edit [$target]'s material";
mode textbox;

##descit:
set $target's material to $text;
say 'edits',"[$actor] modifies [$target]'s material";

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'material';
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";

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