COWbrowse

You are looking at a command called carry

carry {object}

You can carry objects around with you.

create a pot plant. paint it as limegreen. carry it

When you want to stop carrying it, just push it

Push seperates an object from its host, you being the host of the flower pot when you cary it.

You are allowed to carry players around (to save them walking) however you can not carry objects you have not locked.

Carrying a player is similar to that player following you. it is also the same as putting an object by you and then posing it as carried: create a fig paint it as peru. put it on me. pose it as carried

Related commands:

read the command called follow
read the command called push
read the command called put

Created by wolis, last updated 10 Dec 2008

Code

get $target in $actor;
if $target > 0 then carryfrominv else checkloc;

##carryfrominv:
relocate $target to $loc print "[$target] is plucked away by [$actor]" then "[$actor] pulls out [$target]";
clear $target,all;
runsub followit;

##checkloc:
get $target in $loc;
if $target > 0 then chklock1 else fail;

##chklock1:
if $target's class eq "player" then followit else chklock2;

##chklock2:
if $pw like $target's pwd then followit else itslocked;

##followit:
set $target's host to $actor;
set $target's hosthow to 'by';
set $target's pose to "being carried";
say 'carry',"[$actor] starts to carry [$target]";
relook $loc;

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

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

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