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

##openit:
set $target's linkstate to 1;
say 'open',"[$actor] opens [$target]";
if $target's link > 0 then openlink else end;

##openlink:
var $linkobj to $target's link;
set $linkobj's linkstate to 1;
var $tagloc to $linkobj's loc;
$tmat = $target's material;
$lmat = $linkobj's material;
swap $tmat add '_door_';
swap $lmat take '_door_';
set $target's material to $tmat;
set $linkobj's material to $lmat;
msg $tagloc,$actor,0,0,'opens',"Suddenly, [$linkobj] opens",$init_obj,'open';
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";
relook $tagloc;

##fail:
var $click_cmd to "open";
var $desc_intro to 'Click on an object to open it:

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