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

##failuse:
$msg1 = "[$init_obj] digs away at [$dobject] and attempts to recover some ore.";
$msg2 = "[$init_obj] chips away at [$dobject] but gets nothing but an aching back.";

if second of use then succeednow;

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


print "[$init_obj] finds [$new_id]";
relook $loc;



##oldcode:
rem set $new_id's material to '_iron_';
rem set $new_id's colour to 'dimgray';
rem set $new_id's weight to 6;
rem set $new_id's pclass to 'lumps of iron';