If you're getting help on a topic don't make another topic about the same thing... This forums has enough post.
bif_fild01,163,61,4 script MINING SPOT 66,{
if (countitem(558) > 1) goto OnMine;
mes "A big rock.";
close;
OnMine:
setarray .@array, 26106, 10,
26107,10, 640,15, 714,15 , 715,60 , 716,60 ,
717,60 , 718,20, 719,20 , 720,20 , 721,20 ,
722,20 , 723,20, 724,20 , 725,20 , 726,20 ,
727,20 , 728,20, 729,20 , 730,16 , 731,14 ,
732,12 , 733,50, 6077,20, 7300,20, 756,20 ,
757,20 , 2794,5, 7049,70, 6078,70, 7067,70;
set .@len, getarraysize(.@array);
delitem 26105,1;
if(rand(2)-1) {
while(set(.@i,.@i+2)-2<.@len)
if(rand(100)<=.@array[.@i-1]) {
set .@item, .@array[.@i-2];
misceffect 795;
soundeffect "mining.wav",0;
progressbar "brown",2;
misceffect 795;
specialeffect2 610;
getitem(.@item,1);
mes "You successfully mined a "+getitemname(.@item)+".";
}
} else {
misceffect 795;
soundeffect "mining.wav",0;
progressbar "brown",2;
misceffect 795;
mes "You failed to mine.";
specialeffect2 611;
} close;
}