COWbrowse

You are looking at a command called unpack

unpack {object}

you can unpack a parcle or package that has been previously wrapped.

create a flower. paint it as pink
wrap it

You can now paint, edit and describe your package which contains your rose.

Someone can now unwrap it.

unwrap the package

This is useful for sending presents to people.

Please note that you can wrap multiple things in the one package and they will all come out when the package is unwrapped.

create a fig. wrap it. create a button. wrap it

read the command called wrap

Created by wolis, last updated 13 May 2007

Code

get $target in $loc;

if $target > 0 then chklock else fail;

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

##unwrapit:
set $foundone to 0;
say 'unwraps',"[$init_obj] starts to unpack [$target]";
foreach in $target do extractit;
if $foundone > 0 then cleanup else nopresents;

##cleanup:
clear $target,all;
set $target's loc to 0; rem delete it;
say 'unwrapfinish',"[$init_obj] cleans up the discarded wrappings";
msg $loc,$actor,0,0,'force',"force:look $loc";

##nopresents:
say 'unwrapfailed',"[$init_obj] fumbles with [$target] and finds it is unpackable";

##extractit:
set $for_id's loc to $loc;
clear $for_id,all;
var $how to (gasps in surprise at,giggles with glee at,shrieks with delight at,blinks in amazment at,is genuinely impressed with,is amazed by,is shocked by,is delighted with);
say 'present',"[$init_obj] $how [$for_id]";
var $foundone to 1;

##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'unwrap';
var $desc_intro to 'Click on the object you want to unpack:

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

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