if target of use then strengthenit;
if target of spin then castit;
if second of hit then dohit;
if reacting to whistle then whoisit;

##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";

##strengthenit:
set $actor's healthmax to 75;
set $actor's manamax to 75;
set $actor's mana to $actor's manamax;
set $actor's health to $actor's healthmax;
print "[$actor] shines with an eerie glow...";

##castit:
call "cast fire at $target";

##dohit: runsub dodangle;

##dodangle:
$hlt = $init_obj's health;
if $hlt < $init_obj's healthmax then healthem;

##healthem:
add 1 to $hlt;
set $init_obj's health = $hlt;
set $actor's health = $actor's healthmax;
print "A strange light from [$actor] shines onto [$init_obj]!";
print "[$init_obj] looks a little healthier";