COWbrowse

You are looking at a command called wrap

wrap {object}

When you want to give someone a wrapped present you can wrap it up in a parcel.

Use the unwrap command to unwrap a parcel.

eg: create a ball. paint it as orange. wrap it

You can now rename, describe, paint etc your parcel ready for giving and a nice present.

eg: rename the parcel to present. paint it as white. describe it as for wolis. post it

If you want to put more than one thing in a parcel just keep on wrapping before you rename your parcel eg:
create a fig. wrap it. create a horse. wrap it You now have a fig and a horder in the one parcel.

Created by wolis, last updated 22 Mar 2007

Code

get $target in $loc;
if $target > 0 then setupwrap else fail;

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

##setupwrap:
var $text to 'package'; rem all the same so you can wrap several things into the one parcee;
runsub wrapit;

##wrapit:
var $present to $target; rem remember the original target as new clobbers this variable;
unhost $target;
new $text; rem create the new parcel;
set $new_id's colour to "$clr";
set $new_id's qty to 1; rem make sure there is only one parcel if one already existed;
set $new_id's info to "please unwrap $text";
clear $present,all;
set $present's loc to $new_id; rem put target in the parcle;
set $present's pose to 'hidden';
msg $loc,$actor,0,0,'force',"force:look $loc";
say 'wraps',"[$actor] wraps up [$present] in [$new_id]";

##colourit:
var $clr to "chocolate";
set $new_id's colour to "$clr";

##testcode:
rem someday you can 'wrap the ball in a present';
get $target,$rel,$text in $loc;
if $text eq '' then chkone else wrapit;
##chkone:

##itslocked:
say 'wrapfailed',"[$actor] could not wrap [$target] because it's locked";