##txickloc:
runsub whereamix;

##whereami:
find $loc, omenofdoom;
$cursed = $found_id;
if $cursed > 0 then attachtohim else end;

##attachtohim:
clear $actor,all;
unhost $actor;
set $actor's host to $cursed;
set $actor's hosthow to 'by';
set $actor's pose to 'worn';
say 'wears',"[$actor] jumps up onto [$cursed]'s head!";
relook $loc;
new a curse cloud;
set $new_id's loc to $cursed;
set $new_id's pose to "lurking";
set $new_id's material to "_curseddetector_";

if target of push then neverever;
if target of zap then neverever;

##xneverever:
runsub whereami;