if target of push then findpassage;
##tickloc: runsub timerreset;

##timerreset:runsub resetpassage/10;

##resetpassage: - rem - make sure the passage is closed most of the time;
find $loc, secret tunnel;
if $found_id's host ne $found_id then closepassage;


##resetclose:
set $found_id's host = $found_id; # rem - invisible;
set $found_id's pose = "hidden"; # rem - not shown in searches;

##findpassage:
find $loc, secret tunnel;
if $found_id > 0 then togglepassage;

##togglepassage:
if $found_id's pose = "hidden" then openpassage else closepassage;

##openpassage:
clear $found_id,all;
store $found_id's pose = "";
print "You hear grinding of stone as [$found_id] opens.";
relook $loc;

##closepassage:
set $found_id's host = $found_id; # rem - invisible;
set $found_id's pose = "hidden"; # rem - not shown in searches;
print "You hear a slamming noise as [$found_id] closes.";
relook $loc;