{
Copy rights reserved to khalil.
Email humanexterminater@hotmail.com , contact to request similar scripts or
to report a bug or error.
I made this program for firefox, so using firefox would reduce errors.

Random message:
The random message is a message that will posted every time your character
drops ore, i made it so that people won't suspect you are using a bot.
You can edit it by changing the 'mes' when you are asked the question(you will
be asked when you start the script). i suggest putting 'free ores'.

Mine coordinates:
First of all change your Resolution to 1024 by 768 pixels and maximize both scar
and runescape windows, this is crutial otherwise the program won't work.
To get mine coordinates, bring your character next to the mine and click on the
mine, once your character starts mining.Once your character stops moving and
starts mining, Hover your mouse over the mine, Press   ALT + TAB and choose Scar
WITHOUT moving the mouse.When Scar opens, look at the far down-left of your
screen. You will see 2 numbers, x:y, x represents the abscissa of the mouse
while y represents the ordinate of the mouse. These coordinates are the same as
the mine, so minex would equal the first number, and miney would equal the
second number.Enter these coordinates below in the mine section.

Number of ores kept while mining:
Pretty simple, how many ores would you like to keep before your character starts
droping ores. You can edit that number in the mine section by changing 'Nomines'
which is originaly set to zero.

Experience:
When you mine you get about 17 exp per mine, that might change from one type to
another. So before you start the program, mine once and see how much exp you got.
After doing that enter the exp gained in 'exp' below.Then run the program.Each
time you mine, there will be a message here saying how much exp you gained.This
message will contain 80~100% of the max possible exp gained.It can't be exact
because there might be times when you might miss a mine if someone else is
mining.

Important Notes:
-Make sure the first four slots in your inventory are empty, because the items
in those slots will always be dropped.
-Make sure you have a hammer in your hand, otherwise you would keep goign around
in circles.
-Don't wear any thing. Trust me from personal experience. Because sometimes
while you are mining, a monster(sometimes strong) might appear out of nowhere
and starts attacking you. Even if your character starts retaliating, your attack
would always be interrupted from attempts at mining. So 90% you would die. Hence
don't have anything on you but a cheap pickaxe(bronze is best for this unless
you want to mine something that requires more).You can also get the training
shield.

}
program Runescapeminor;
label
  lblBack;

var
  Count: Integer;
  Nomines: Integer;
  exp: Integer;
  Nummine: Integer;
  Totalexp: Integer;

var
mes: string;

var
  minex: Integer;
  miney: Integer;

begin

mes:= LoadSetting('Kaitniek''s scripts', 'username');
Writeln('Previous message: ' + mes);
mes:= Readln('Enter the message (currently '+mes+'):');
SaveSetting('Kaitniek''s scripts', 'username', mes);

WriteLn('Requesting access');
Wait(1000)    ;
WriteLn('Verified');
Wait(100) ;
WriteLn('Starting script')  ;
Wait(100)   ;
WriteLn('Initiating') ;
//minimizes Scar
   MoveMouseSmooth(966, 10);
                           Wait(1000);
ClickMouse(966, 10,true);
Wait(1000)
   lblBack:
//mine
minex:=379;    //Insert mine's abscissa here.
miney:=427;     //Insert mine's ordinate here.
Nomines:=30;     //Insert number of mines before dropping here.
exp:=17;        //Insert exp gained from 1 mine.
MoveMouseSmooth(+minex,+miney);
Wait(8000);
ClickMouse(minex,miney,true);
Wait(3000);
Count := Count + 1;
Nummine:= Nummine +1;
Totalexp:=Nummine*exp;
Writeln( 'Total exp gained assuming everything went well is ~ '+IntToStr(Totalexp));



  if Count <Nomines then goto lblBack;

MoveMouseSmooth(699,488);
Wait(2000);
ClickMouse(699,488,false);
Wait(2000);

MoveMouseSmooth(699,527);

ClickMouse(699,527,true);


MoveMouseSmooth(739,488);
Wait(2000);
ClickMouse(739,488,false);
Wait(2000);

MoveMouseSmooth(739,527);

ClickMouse(739,527,true);

Wait(2000);


MoveMouseSmooth(786,488);
Wait(2000);
ClickMouse(786,488,false);
Wait(2000);

MoveMouseSmooth(786,527);

ClickMouse(783,527,true);



MoveMouseSmooth(825,488);
Wait(2000);
ClickMouse(825,488,false);
Wait(2000);

MoveMouseSmooth(825,527);

ClickMouse(825,527,true);

//send message
SendKeys(mes);
Wait(1000);
KeyDown(13);
Count:= Count - 4;
Totalexp:=Nummine*exp;
Writeln(+IntToStr(Totalexp))
goto lblBack;


end.