That's a lot to request I suggest you download previous mining scripts and ask for adjustments.
I did do something really quick but it's untested.
In Item 25000 script.
if(@mine) doevent("pickaxe::OnMine");
- script pickaxe -1,{
OnMine:
setarray .@array, 501, 20,
502, 50,
503, 80,
504, 2 ;
set .@len, getarraysize(.@array);
//delitem 25000,1;
if(rand(2)-1) {
while(set(.@i,.@i+2)-2<.@len)
if(rand(100)<=.@array[.@i-1]) {
set .@item, .@array[.@i-2];
getitem(.@item,1);
mes "You successfully mined a "+getitemname(.@item)+".";
}
} else
mes "You failed to mine.";
close;
}
izlude,123,123,4 script MINING SPOT 111,2,2,{
end;
OnTouch:
getmapxy(.@map$,.@x,.@y,0);
while(sqrt(pow(
[email protected],2)+pow(
[email protected],2))<=3) {
sleep2 100;
getmapxy(.@map$,.@x,.@y,0);
set @mine, 1;
}
set @mine, 0;
end;
OnInit:
getmapxy(.nmap$,.nx,.ny,1);
}