if reacting to screech then whoisit;
if second of hit then doit;

##whoisit:
if $init_obj's name like ("omenofdoom") then floatto else end;

##floatto:

$tloc = $init_obj's loc;
$d = 3;
relocate $actor to $tloc print "[$actor] drifts off in search of [$init_obj]" then "[$actor] floats into view";

##doit:
$hh = $init_obj's health;
$hm = $init_obj's healthmax;
if $hh < $hm then healit else fullme;
$th = $target's health;
$tm = $target's healthmax;
if $th < 1 then deadit else hurtit;

##healit:
add 1 to $hh;
set $hh = $init_obj's health;
print "[$init_obj] drains some of [$target]'s life force";
print "[$init_obj] feels healthier";

##fullme:
print "[$init_obj] is fully replenished";

##deadit:
set $th = 0;
print "[$target] falls to the floor, drained of all life";

##hurtit:
take 1 from $th;
print "[$target] is weakened from [$actor]";
set $target's health = $th;