if target of touch then goahead;

##tickloc:
runsub checkstuff;

##checkstuff:
$lhlthm = $lichsoul's healthmax;
$lhlth = $lichsoul's health;
$shlth = $actor's health;
$shlthm = $actor's healthmax;
if $shlth > 0 then regensap else shattersap;

##goahead:
$lichsoul = $init_obj;
$mat = $lichsoul's material;
swap $mat add "_undead_";
swap $mat add "_lich_";
set $lichsoul's material to $mat;

##regensap:
if $shlth < $shlthm then doregen else nope;

##doregen:
add 3 to $shlth;
set $actor's health to $shlth;

##shattersap:
print "A piercing shriek splits as the cloud of darkness around [$actor] seems to collapse in on itself."
print "[$actor] explodes into thousands of shards, and tendrils of darkness seem tear at you as they disappate into the air."
$matl = $lichsoul's material;
swap $matl take "_undead_";
swap $matl take "_lich_";
set $lichsoul's material to $matl;