COWbrowse

You are looking at a command called motion

motion {object}
motion {object} to "word"

Use this command to change how an object moves around in cow.

eg: motion me to runs so you run in and out of doorways
or: motion the frog to hops so a frog when roaming will hop about

Remember the word you use must be in present tense as it wil show like this:
"the frog hops away via the calm river";

Thanks to Chaotic Bob, who discoverd this neat trick, you can use random motion words like this:
motion the frog to (hops,leaps,jumps,waddles)

Created by wolis, last updated 04 Jan 2012

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 'motion';
var $fld to 'motion';
say 'edit',"[$actor] starts to edit [$target] way of moving around";
mode textbox;

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

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'motion';
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 edit [$target] because its locked";