//First script by me, it should work.
//If you repost this script, do not edit it in anyway
//unless you send it to seaking1551@yahoo.com
//
//This script is a very basic powerminer
//No anti randoms, no log out, no chat fixer.
//BUT, just find the colors of the rock you want
//and next time you mine that same rock
//you probably wont have to change the colors!
//(you may have to though)
//
//Leechers beware! if you email me about this script
//You will be ignored!!
//
//No includes needed =)
//
//if you can help me script email me
//seaking1551@yahoo.com
//
//Powerminer attempt by SeaKing
//1. stand by rocks
//2. set colors
//3. run
//
//  |\/\|| ||--|\
//  |/|||| ||--|/
//  | \/\/\/|__|\
//
//  |\/|___| ||--|\
//  |||| | |\||--|/
//  ||||---| ||__|\
// B Y S E A K I N G
//
//V1.0: PowerMiner! Mines 1, drops 1. repeats.
//V1.1: Added Level Checker. W00T.
//V1.2: Made it actually RUN. Now to get it to WORK.
//V1.3: Made it mine 10 then drop 10. more efficient.


program tryatpoweminer;
{.include OSi.txt}


const
/////----colors of stuffs----\\\\
rock1= 4550038; //color of rocks
rock2= 3956354;
rock3= 4681883;
invrock= 3966956; // color of rock in inventory
//dont change these\\
Lvlchecker= 46336; // the color of your lvl tab
Pack= 40703; //the gold clip on the backpack tab
words= 11925429;//When you right click on the rock
//the words are in this color (the blue words)
//to find the color of the words have scar open and
//right click on a rock. position the mouse over the
//words and press control+p. then go to the scar window
//and the colors should be selected. if you dont know what
//selected means you dont deserve this script. hax0r n00b.




Procedure Mine;
begin
if
findcolor(x,y,rock1,201,113,327,220)
or
findcolor(x,y,rock2,201,113,327,220)
or
findcolor(x,y,rock3,201,113,327,220)
then
wait(random(50)+500)
MoveMouseSmooth(x,y)
wait(random(50)+100)
if
findcolor(x,y,rock1,201,113,327,220)
or
findcolor(x,y,rock2,201,113,327,220)
or
findcolor(x,y,rock3,201,113,327,220)
then
clickmouse(x,y,true)
wait(random(1000)+5000)
sleep(2000)
end;


Procedure DropOre;
begin
if
findcolor(x,y,invrock,556,205,604,246)
then
MoveMouseSmooth(x,y)
wait(random(50)+500)
dropcolor(invrock)
end;

procedure LevelCheck;
begin
if findcolor(x,y,Lvlchecker,520,140,613,220)
then ClickMouse(x,y,true);
wait(1000)
wait(random(100))
wait(2000)
if findcolor(x,y,Pack,631,172,661,198)
then Clickmouse(x,y,true)
wait(1000)
end;

begin
repeat
Mine;
Mine;
Mine;
Mine;
Mine;
LevelCheck;
Mine;
Mine;
Mine;
Mine;
Mine;
DropOre;
LevelCheck;
until(false)
end.