//if target of examines then checkit;
//if target of code then checkit;
//if target of script then checkit;
//if second of put then checkwho;

##checkwho:
$inf = $target's info;
find $actor, $inf;
if $found_id > 0 then releaseit else end;
##releaseit:
sayto $found_id, "Time seems to stand still, and you suddenly find yourself freed!";
set $found_id's loc to $actor's loc;
print "[$found_id] appears in a burst of light!";
look $loc;

##checkit:
$iloc = $init_obj's loc;
if $init_obj's class like player then checkit2 else end;
##checkit2:
if $init_obj's loc = $actor's loc then checkit3 else end;
##checkit3:
if $init_obj's name ne 'omenofdoom' then continue else end;
##continue:
sayto $init_obj, "[$actor] seems to irresistibly draw your gaze. When you finally force yourself to look away, you find that you are no longer in [$iloc].";
print "[$init_obj] vanishes in a flash of crimson light!";
look $loc;
runsub further;
##further:
unhost $init_obj;
set $init_obj's loc to $actor;
look $loc;