if second of use then succeednow;

##failuse:
$works to (chips,works,hacks,toils);
$result = (and gets nothing but an aching back,in vain,without success, for no apparent reason);
print "[$init_obj] $works away at [$second] with [$target] $result";

##succeednow:
new a lump of iron worth 2;
multiset $new_id = "host=$init_obj, hosthow='beside', pose='sitting', material='_iron_', colour='dimgray', weight=6, pclass='lumps of iron'";

$act = (whoops,laughs,cries,sings);
$joy = (joy,delight,surprise,success,triumph);
print "[$init_obj] $act with $joy after extracting [$new_id]";
relook $loc;

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