Find
You are looking at the command called close
close {object}
Close an open object like a door. You can close any object. If it was an open linked object then you will no longer be able to see through it. See
link
to make doorways or portals
Created by
wolis
, last updated 07 Feb 2007
Code
get $target in $loc;
if $target > 0 then closeit else fail;
##closeit:
set $target's linkstate to 0;
say 'close',"[$actor] closes [$target]";
if $target's link > 0 then openlink else end;
##openlink:
var $linkobj to $target's link;
var $tagloc to $linkobj's loc;
set $linkobj's linkstate to 0;
$tmat = $target's material;
$lmat = $linkobj's material;
swap $tmat add '_door_';
swap $lmat add '_door_';
set $target's material to $tmat;
set $linkobj's material to $lmat;
msg $tagloc,$actor,0,0,'closes',"Suddenly, [$linkobj] closes";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";
relook $tagloc;
##fail:
var $click_cmd to 'close';
var $desc_intro to 'Click on the object you want to close:
';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";