get $target in $loc;
if $target > 0 then continue else fail;
##continue:
if $pw like $target's pwd then check2 else itslocked;
##check2:
var $oldhost to $target's host;
if $oldhost > 0 then nextcheck else notsheathed;
##nextcheck:
if $oldhost = $actor then notsheathed else removeit;
##removeit:
clear $target,all;
unhost $target;
set $target's host to $actor;
set $target's hosthow to 'by';
set $target's pose to 'wielded';
say 'msg',"[$actor] slides [$target] from [$oldhost] and wields it";
relook $loc;
##itslocked:
say 'wieldfail',"[$actor] tries to unsheathe [$target] but its won't budge";
##notsheathed:
say 'msg',"[$actor] tries to unsheathe the unsheathed [$target]";
##fail:
var $click_cmd to 'unsheathe';
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";