if second of use then succeednow;

##difficultdata:
$dcommand = 'use';
$dlevel = 4;
$dreq = 0;
$dskill = 'mining';
$dskillcap = 10;
$dskilltip = 94937;

##failuse:
"[$init_obj] chips away at [$dobject] with [$target], but gets nothing but an aching back.";

##succeednow:
new a lump of clay worth 1;
multiset $new_id = "weight=6, pclass='lumps of clay', material='_clay_', colour='peru'";
print "[$init_obj] pulls [$new_id] from the rubble";
relook $loc;