may i suggest how to add so it doesnt have to be in incriments of 10
SCAR Code:
procedure Earths; //Buys earth runes.
begin
{repeat}
if EarthsOn = 1 then
begin
wait(200 +random(20))
if MaxEarthsCounter = EarthsCounter then
begin
wait(200 +random(20))
end else
Mouse(234,85,2,2,false)
wait (200 +random(20))
ChooseOption(x,y,'uy 10')
wait (1337 +random(400))
EarthsCounter := EarthsCounter + 10;
Writeln('Bought ' + IntToStr(EarthsCounter) + ' earth runes')
{until MaxEarthsCounter >= EarthsCounter-10}
begin
{EarthsCounter:=Earthscounter-10;}
repeat
begin
wait(200 +random(20))
{if MaxearthCounter = EarthCounter+10 then}
{begin}
{Mouse(234,85,2,2,false);}
{wait (200 +random(20));}
{ChooseOption(x,y,'uy 10');}
{EarthsCounter:=EarthsCounter+10;}
{end;}
{if MaxEarthCounter < Earthscounter+10 and Maxearthcounter > Earthscounter+5 then}
{begin}
{Mouse(234,85,2,2,false);}
{wait (200 +random(20));}
{ChooseOption(x,y,'uy 5');}
{EarthsCounter:=EarthsCounter+5;}
{end;}
{if MaxEarthCounter < EarthsCounter+5 then}
{begin}
{Mouse(234,85,2,2,false);}
{wait (200 +random(20));}
{ChooseOption(x,y,'uy 1');}
{EarthsCounter:=EarthsCounter+1;}
{end}
{end}
{Until(EarthsCounter=Maxearthcounter)}
end else
Earths;
end else
end;
everything in green is what i added
i did that completely without looking at it or testing it but it should work and feel free to edit all you want but give me a little credit. also test because i think there might be something wrong in there but most of it probably should work... i hope. but this was just a suggestion nice script though. this should also buy 10 if it is like 100 it will still click buy 10, 10 times