get $target in $loc;
if $target > 0 then checkif else cant;

##checkif:
if $target's material like living then cant else shrinknow;

##shrinknow:
print "[$init_obj] closes his eyes, concentrating on [$target]";
$healthm = $target's healthmax;
take 5 from $healthm;
set $target's healthmax to $healthm;
set $target's health to $target's healthmax;
print "[$target] dims slightly";