if reacting to freeze then checkit;
if reacting to burn then checkit;
if reacting to shock then checkit;
##checkit:
if $actor's host = $init_obj's slot2 then checkm;
##checkm:
$mana = $init_obj's mana;
$mmana = $actor's host's mana;
if $mana > $mmana then noway else nullit;
##noway:
sayto $actor's host,"(You don't have enough mana to negate this spell!)";
print "[$actor] flickers, but nothing happens";
##nullit:
$hoster = $actor's host;
add 2 to $mana;
take $mana from $mmana;
set $actor's host's mana = $mmana;
print "[$actor] flickers, then begins to glow";
$what = (plumes,streams,blasts,gusts,bursts);
$how = (spinning,streaking,smoking,wobbling);
print "[$init_obj] speeds toward [$hoster], then diverges, $what of magical energy $how away harmlessly";
unhost $init_obj;
set $init_obj's slot2 to '';
set $init_obj's host to '';
set $init_obj's hosthow to '';
set $init_obj's counter to 0;
relook $loc;