COWbrowse

You are looking at a command called wear

wear {object}
Poses the object as worn by you as if you had put it on

eg wear the fur coat

Remember to push things to unpose objects

Created by wolis, last updated 19 Jul 2012

Code

get $target in $loc;
if $target > 0 then chklock else fail;
##chklock:
if $pw like $target's pwd then moveobj else itslocked;
##moveobj:
clear $target,all;
unhost $target;
set $target's host to $actor;
set $target's hosthow to 'by';
set $target's pose to 'worn';
say 'wears',"[$actor] wears [$target]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

##itslocked:
say 'wearfail',"[$actor] really wants to wear [$target] but its locked";

##fail:
var $click_cmd to 'wear';
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";