if target of touch then checkit;

##checkit:
$otarget = $target;
var $mm to 15;
if $init_obj's manamax > $mm then doit else nopesry;

##doit:
var $mana to $init_obj's mana;
var $ohlth to $otarget's health;
take $mana from $ohlth;
set $otarget's health to $ohlth;
set $init_obj's mana to 0;
print "[$init_obj] feels their power draining away into [$otarget]";
if $otarget's health = 0 then finishit else nope;

##finishit:
print "[$otarget] straightens up, and its eyes begin to glow softly";
set $otarget's health to $otarget's healthmax;
set $otarget's extra to '';
var $inf to 'Standing over 13 feet tall, it could crush you like a bug. A dull light glows in its empty eye sockets.';
set $otarget's info to $inf;
set $otarget's material to '_clay_|_construct_|_living_';
relook $loc;

##nopesry:
sayto $init_obj,"You are not skilled enough at magic to attempt this.";