//        --====A script by Hemuli====--
//      This script is designed to buy
//      cut and uncut gems in al kharid/falador store. This script
//      will buy all the cut/uncut gems in the shop.
//      Have A LOT of money with you. This script
//      will also let you buy juss one or several
//      different types of gems. All you
//      have to do is ADD/REMOVE the " // " in
//      the script on lines 191-198. For More information about this
//      read lines 14 and on.
//
//
//
//              If would like it to juss buy BOTH diamonds and uncut sapphires
//           you would remove the " // " from the diamond section and the sapphire section. Pretty
//          simple if you use your brain.
//
//    Start the script with the gem buying screen Open.


program GemBuyer;
var
amin,gamin,vamin,hamin:integer;
procedure BuyUsapphire;
begin
   vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying uncut sapphires...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(100,100)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(100,10,False)
  Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(71,165)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(71,165,True)
 Amin := 200 + random(500);
  wait (amin);

end;

procedure BuyUemerald;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying uncut emeralds...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(150,100)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(150,100,False)
 Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(121,165)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(121,165,True)
  Amin := 200 + random(500);
  wait (amin);
end;

procedure BuyUruby;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying uncut rubys...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(295,100)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(295,100,False)
 Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(171,165)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(171,165,True)
 Amin := 200 + random(500);
  wait (amin);
end;
procedure BuyUdiamond;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying uncut diamonds...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(240,100)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(240,100,False)
  Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(221,165)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(221,165,True)
 Amin := 200 + random(500);
  wait (amin);
end;
procedure BuyCsapphire;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying sapphires...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(300,100)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(300,100,False)
  Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(271,165)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(271,165,True)
 Amin := 200 + random(500);
  wait (amin);
end;

procedure BuyCemerald;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying emeralds...')
   Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(330,100)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(330,100,False)
  Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(321,165)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(321,165,True)
 Amin := 200 + random(500);
  wait (amin);
end;
procedure BuyCruby;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying rubys...')
  Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(380,100)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(380,100,False)
  Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(371,165)
   Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(371,165,True)
  Amin := 200 + random(500);
  wait (amin);
end;
procedure BuyCdiamond;
begin
    vamin := 50 + random (78);
   wait (vamin)
   Writeln('Buying diamonds...')
   Hamin := 50 + random(70);
  wait(hamin);
  MoveMouse(430,100)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(450,100,False)
   Gamin := 100 + random (400);
  wait(gamin);
  MoveMouse(421,165)
  Hamin := 50 + random(70);
  wait(hamin);
  ClickMouse(421,165,True)
 Amin := 200 + random(500);
  wait (amin);
end;
 begin
 // U= uncut C= cut
 repeat

 BuyUsapphire;
 //BuyUemerald;
 //BuyUruby;
 //BuyUdiamond;
 //BuyCsapphire;
 //BuyCemerald;
 //BuyCruby;
 //BuyCdiamond
Until(false);
end.