if target of use then doit;

##doit:
print "A crystal on [$actor] begins to glow with a silvery light";
print "The glow spreads, growing to completely engulf [$init_obj]";
$hlth = $init_obj's health;
$hlthm = $init_obj's healthmax;
take 5 from $hlthm;
if $hlth < $hlthm then healit else toomuch;
##healit:
print "[$init_obj] emerges from the light, looking healthy and invigorated";
add 5 to $hlth;
set $init_obj's health to $hlth;
##toomuch:
print "[$init_obj] emerges from the light, looking refreshed";