COWbrowse

You are looking at a command called contribute

contribute {object} to {object}

Allows you to contribute to a book type object.

As you might have noticed, every bject can be considered a book if you feel like it.

You must be in the same location as both objects to use the contribute command.

Here is a little example:
create an elaborate novel
create chapter one
edit it
contribute it to the novel

You can read the novel (notice that read is a bit different to examine the novel).

Note: the read command will work no matter where the book is stored.

Created by wolis, last updated 01 Aug 2008

Code

get $target,$rel,$second in $loc,$loc;
if $target > 0 then trysecond else tryinv;

##tryinv:
get $target,$rel,$second in $actor,$loc;
if $target > 0 then trysecond else fail1;

##trysecond:
if $second > 0 then chklock else fail2;

##chklock:
if $pw like $target's pwd then continue else itslocked;

##continue:
set $target's loc to $second;
unhost $target;
clear $target,all;
say 'contributes',"[$actor] contributes [$target] to [$second]";
msg $loc,$actor,0,0,'force',"force:look";

##fail1:
var $click_cmd to 'contribute';
var $click_mid to 'to zzzzz';
var $desc_intro to 'Click on the object you want to contribute to something:
';
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##fail2:
var $click_cmd to "contribute $target to ";
var $desc_intro to 'Click on the object you want to contribute it to:
';
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##itslocked:
say 'contributefailed',"[$actor] could not contribute [$target] to [$second] because it's locked";