if target of examines then findpassage;
##tickloc: runsub resetpassage;

##resetpassage: - rem - make sure the passage is closed most of the time;
find $loc, secret passage;
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 passage;
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] is revieled";
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 grinding of stone as [$found_id] closes. Where did it go?";
relook $loc;