Heres one I think would really fly...
Just fix up the "coding" if you want to call it that.
if F1, F2, F3, F4, F5, & F6 $char(hp,pct) <= 60% then call sub Word of Restoration
if F1 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal1
if F2 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal2
if F3 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal3
if F4 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal4
if F5 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal5
if F6 => 40% and <= 60% $char(hp,pct) then call sub Complete Heal6
if F1 $char(hp,pct) <= 39% then call Quick Heal1
if F2 $char(hp,pct) <= 39% then call Quick Heal2
if F3 $char(hp,pct) <= 39% then call Quick Heal3
if F4 $char(hp,pct) <= 39% then call Quick Heal4
if F5 $char(hp,pct) <= 39% then call Quick Heal5
if F6 $char(hp,pct) <= 39% then call Quick Heal6
if F2 = NULL then goto F3
if F3 = NULL then goto F4
if F4 = NULL then goto F5
if F5 = NULL then goto F6
if F6 = NULL then goto F1
if F1, F2, F3, F4, F5, & F6 $char(hp,pct) => 90% then call sub attack
sub attack
/target npc
/attack on
/if $npc(hp,pct) = 0% then /attack off
(all while constantly scanning players HP if possible)
sub Complete Heal1
/sit off
/press F1
/cast "Complete Healing"
/gsay Casting Complete Healing on (Name)
/delay 11
/sit on
sub Complete Heal2
/sit off
/press F2
/cast "Complete Healing"
if $p2 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Complete Healing on (Name)
/delay 11
/sit on
sub Complete Heal3
/sit off
/press F3
/cast "Complete Healing"
if $p3 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/delay 11
/sit on
/gsay Casting Complete Healing on (Name)
sub Complete Heal4
/sit off
/press F4
/cast "Complete Healing"
if $p4 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Complete Healing on (Name)
/delay 11
/sit on
sub Complete Heal5
/sit off
/press F5
/cast "Complete Healing"
if $p5 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Complete Healing on (Name)
/delay 11
/sit on
sub Complete Heal6
/sit off
/press F6
/cast "Complete Healing"
if $p6 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Complete Healing on (Name)
/delay 11
/sit on
sub Quick Heal1
/sit off
/press F1
/cast "Divine Light"
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Quick Heal2
/sit off
/press F2
/cast "Divine Light"
if $p2 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Quick Heal3
/sit off
/press F3
/cast "Divine Light"
if $p3 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Quick Heal4
/sit off
/press F4
/cast "Divine Light"
if $p4 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Quick Heal5
/sit off
/press F5
/cast "Divine Light"
if $p5 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Quick Heal6
/sit off
/press F6
/cast "Divine Light"
if $p6 $distance = too far away then /gsay (Name), you are too far away for me to heal you! Come closer!
/gsay Casting Divine Light on (Name)
/delay 11
/sit on
sub Word of Restoration
/sit off
/cast "Word of Restoration"
/gsay Casting Word of Restoration, come close!
/delay 6
/sit on

