//Rune buyin script. Works with 5minrule.
//NOT to be released! DONT GIVE OUT. it will
//screw it all and jagex will stop us from
//autobuying!. Script made by Eppo
program New;

 var
  x, y: Integer;
  a, b, c, d, e: Integer;
username, password: string;

procedure LogInIfNeeded; export;
begin
  //if logged out press Cancel
  if(LoginScreen)then
  begin
    Writeln('Clearing username, password fields');
    ClickMouse(400,280,True);
    Wait(2000);
  end;
  //If logged out select Existing User
  if(StartScreen)then
  begin
    Writeln('Choosing existing user');
    ClickMouse(340,280,True);
    Wait(4000);
  end;
  //If logged out, log in
  if(LoginScreen)then
  begin
    Writeln('Trying to log in');
    ClickMouse(100,260,True);
    Wait(500);
    SendKeysSilent(username);
    Wait(2000);
    ClickMouse(120,310,True);
    Wait(500);
    SendKeysSilent(password);
    Wait(2000);
    ClickMouse(380,250,True);
    Wait(6000);
  end;
  //If we have Welcome to RuneScape open, close it
  if(GetColor(56,117)=16777215)and
    (GetColor(57,118)=0)and
    (GetColor(455,216)=16777215)and
    (GetColor(454,215)=0)
  then
  begin
    Writeln('Closing Welcome box');
    ClickMouse(250,208,True);
    Wait(2000);
  end;
  SetTimeOut(20,'LOGINIFNEEDED');
end;

procedure buy;
begin
  Wait(200);
  repeat

      repeat
        x:= Random(500);
        y:= Random(340);
        FindColorSpiral(x,y,10661355,x-50,y-50,x+50,y+50);
        MoveMouse(x, y);
        Wait(200);
      until(IsTextAt(6,2,'Betty: Talk'))or(IsTextAt(6,0,'Can I see your wares?'));
      ClickMouse(x, y, True);
      Wait(4000);
    until(IsTextAt(6,0,'Can I see your wares?'));
    ClickMouse(17,8,True);
    Wait(6000);
end;

Procedure fire;
begin
Clickmouse(87 + Random(3),87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure water;
begin
ClickMouse(131,87,True);
wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
end;

Procedure air;
begin
Clickmouse(180,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure earth;
begin
Clickmouse(235,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
end;

Procedure mind;
begin
Clickmouse(281,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure close;
begin
ClickMouse(513,51,True);
wait(10);
ClickMouse(513,51,True);
wait(500);
end;

Begin
  username:= Readln('Enter your username: ');
  password:= Readln('Enter your password: ');
SetTimeOut(20,'LOGINIFNEEDED');

repeat
buy;
wait(1000);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(1000);
Clickmouse(421,50,True);
until(False);
end.