if target of hit then maybecast;
##maybecast:
$mana = $actor's mana;
if $mana > 0 then maybecast2;
##maybecast2:
runsub castheal or castfire or castice or castcure or castshock;

##castheal:
call "cast heal";

##castfire:
if $mana > 1 then castfire2;
##castfire2:
call "cast fire at $init_obj";

##castice:
if $mana > 1 then castice2;
##castice2:
call "cast ice at $init_obj";

##castcure:
if $actor's health < 50 then castcure2;
##castcure2:
if $mana > 3 then castcure3
##castcure3:
call "cast cure";

##castshock:
if $mana > 3 then castshock2;
##castshock2:
call "cast shock at $init_obj";