##use:runsub isitme;
##wish:runsub data;
##data:
var $lnk to $actor's link;
var $lnkst to $actor's linkstate;
say 'say',"Current [$actor]'s link is $lnk";
say 'say',"Current [$actor]'s linkstate is $lnkst";

##isitme:
if $actor eq $target then chklnk else end;

##chklnk:
if $actor's linkstate eq 0 then openit else closeit;

##openit:
var $other to 17623;
var $dest to $other's loc;
set $actor's link to 17623;
set $actor's linkstate to 1;

set $other's link to 17624;
set $other's linkstate to 1;

say 'opens'."[$actor] mysteriously opens!";
say 'force',"force:look";

msg $dest,$actor,0,0,'force',"force:look";
msg $dest,$actor,$dest,0,'msg',"[$other] suddenly opens!";

##closeit:
var $other to 17623;
var $dest to $other's loc;

set $actor's link to 0;
set $actor's linkstate to 0;

set $other's link to 0;
set $other's linkstate to 0;

say 'closes'."[$actor] is now closed.";
say 'force',"force:look";

msg $dest,$actor,0,0,'force',"force:look";
msg $dest,$actor,$dest,0,'msg',"[$other] is now closed.";