##tickloc:runsub ticked;

##ticked:
$cnt = $actor's counter;
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
runsub doinit;
runsub alldone;

##doinit:
if $tohit's health > 0 then doinit2 else toodead;

##doinit2:
if $tohit's material like living then doinit3 else toodead;

##doinit3:
say 'msg',"[$fromhit] casts [$actor] at [$tohit]!";
update $actor = "pose='curing',host='$tohit',hosthow='around'";
relook $loc;

$hlth = $tohit's health;
add 12 to $hlth;
$adv = (considerably,fairly,modrately,reasonably,relatively,significantly,somewhat,very,partly);
$verb = (refreshed,healed,recovered,recuperated,okay,replentished,repaired,refurbished);
if $hlth > $tohit's healthmax then maxit;
set $tohit's health to $hlth;
$t = $target;
$target = $tohit;
say 'heal',"[$tohit] feels $adv $verb.";
$target = $t;
if $hlth > 0 then continue else saydead;

##maxit:
$hlth = $tohit's healthmax;
set $tohit's health to $hlth;
$adv = (fully,completely);

##toodead:
say 'msg',"[$actor] is unable to find a living target.";

##alldone:
unhost $actor;
clear $actor,all;
set $actor's loc to 0;
relook $loc;
switch $actor off;

##difficultdata:
$dcommand = 'cast';
$dlevel = 2;
$dreq = 4;
$dskill = 'mysticism';
$dskillcap = 10;
$dskilltip = 69372;
set $actor's mana to 4;

##failcast:
"[$init_obj]'s attempt fizzles.";