if reacting to leaves then doit2;
if reacting to arrives then doit;
##doit:
$lloc = $loc's loc;
$found_id = 77156;
set $found_id's link to '';
print "[$found_id] slides shut behind you.";
runsub continue;
##continue:
$found_id = 77157;
set $found_id's link to '';
sayto $lloc, "[$found_id] slides smoothly shut";
##doit2:
$lloc = $loc's loc;
$found_id = 77156;
set $found_id's link to 77157
print "[$found_id] slides open";
runsub continue2;
##continue2:
$found_id = 77157;
set $found_id's link to 77156;
sayto $lloc, "[$found_id] slides open without a sound";