if target of touch then whoisit;

##whoisit:
if $init_obj's name like ("omenofdoom,thorn,wolis,Chaotic Bob") then openup else end;

##openup:

$tloc = 45736;
$d = 3;
relocate $init_obj to $tloc print "[$actor] beeps and [$init_obj] walks through" then "[$actor] closes behind [$init_obj] as they walk out";