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

##castheal:
call "cast heal";

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