COWbrowse

You are looking at a command called unlink

This command is basically the opposite of link. It allows you to end the link from the object to it's original destination. The other linked object, however, still allows you to travel through it. You could use this to make one-way doors and portals!

read the command called link
read 75710

Created by omenofdoom, last updated 24 Dec 2007

Code

get $target in $loc;
if $target > 0 then chklock else fail;
##chklock:
if $pw like $target's pwd then negatelink else itslocked;

##negatelink:
print "[$init_obj] unlinks [$target].";
set $target's link = 0;

##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'unlink';
var $desc_intro to 'Click on the object you want to unlink:

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

##itslocked:
say 'unlinkfailed',"[$actor] could not unlink [$target] because it's locked";