if second of use then doit;

##doit:
var $frst to $target;
if $target's class = "lump of clay" then checkit else nope1;
##checkit:
if $target's material = "_clay_" then checkit2 else nope2;
##checkit2:
if $target's weight = 6 then checkit3 else nope3;
##checkit3:
var $quant to $target's qty;
if $target's qty > 9 then checkit4 else nope4;
##checkit4:
var $wrth to $target's worth;
if $target's worth = $target's qty then assemblit else nope5;
##assemblit:
new a clay golem;
multiply $quant by 10;
print "$quant";
set $new_id's healthmax to $quant;
set $new_id's health to $new_id's healthmax;
set $new_id's material = '_clay_|_construct_|_prgolem_';
set $new_id's worth = $wrth;
set $new_id's colour to 'peru';
var $inf to 'Standing over thirteen feet tall, it could crush you like a bug. It doesnt appear to be up to the task at the moment, however. Its lifeless.';
set $new_id's info to $inf;
set $new_id's extra to 'which is still just a big lump of clay';
print "You shield your eyes as [$frst] emit a blinding light";
print "The light dies, revealing [$new_id]";
set $frst's loc to 7209;
relook $loc;


##nope1:
print "nope1";
##nope2:
print "nope2";
##nope3:
print "nope3";
##nope4:
print "nope4";
##nope5:
print "nope5";