[quote ]
Nice work, it'd be better to do this though, well safer anyway...
if findcolortolerance(x,y,color,3,130,1255,700,3) then
clickwindmouse(x,y,50,40,true);
[/quote]
i have released (yet another) new and improved version (containing freddy's suggestion) meaning that it should be easier and a bit safer to use than ever before and will always fill up your inventory. After getting the answer to a question i have i will release a new version which will not only log you in but it will make the program less detectable(i'm too lazy to do a non high-detail so do that yourselves).
the question is: how do you get scar when your playing runescape to rotate the screen? in other words sending a left,right,up or down arrow?
i am not releasing the new version till i know that info because there would'nt be much point.
here's the code for the latest version
[scar]
program autominer;
var
x,y,i,r,z,n,t,b,v,color,color2:integer;
a:boolean;
const
color3=16711680;
procedure findandminerock;
begin
if(findcolortolerance(x,y,color,3,130,1255,700,3))then
begin
clickwindmouse(x,y,50,40,true);
end;
wait(500+random(500));//adjust according to how long your character takes to mine the rock
end;
procedure dropit(r,z:integer);
begin
findcolortolerance(r,z,color2,1070,445,1255,700,2);
clickwindmouse(r,z,15,10,false);
wait(200+random(300));
clickwindmouse(r,z+40,10,5,true);
wait(100+random(400));
end;
procedure check;
begin
if(findcolortolerance(n,t,color3,184,685,339,703,10))then
begin
a:=true;
end;
if(a=true)then
begin
clickwindmouse(r,t,20,13,true);
end;
end;
begin
movetotray;
activateclient;
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
repeat
findandminerock;
check;
until(a=true);
for i:=1 to 5 do
begin
if(iskeydown('t'))then
begin
terminatescript;
end;
wait(25);
end;
pickcolor(color2,b,v);//pick the color of the mined rock in your inventory
for i:=1 to 28 do
begin
dropit(r,z);
end;
for i:=1 to 5 do
begin
if(iskeydown('t'))then
begin
terminatescript;
end;
wait(25);
end;
until(false);
end.
[/scar]
last thing: how do you guys think this compares to the powerminer in the first scripts section? this is actually my second script if you don't consider moving the mouse around in a square with set coordinates a program...
Posted on: July 23, 2009, 11:18:38 AM
this new code is ready to go. just read the instructions and follow them.
[scar]
program powerminer;
var
x,y,i,r,z,n,t,b,v,color3,c,w,color,color2,p,l,f,d:integer;
a:boolean;
s:string;
procedure findandminerock;
begin
if(findcolortolerance(x,y,color,3,130,1255,700,3))then
begin
clickwindmouse(x,y,50,40,true);
end;
wait(500+random(500));//adjust according to how long your character takes to mine the rock
end;
procedure dropit(r,z:integer);
begin
findcolortolerance(r,z,color2,1070,445,1255,700,2);
clickwindmouse(r,z,15,10,false);
wait(100+random(300));
clickwindmouse(r,z+40,10,5,true);
wait(100+random(250));
end;
procedure check(n,t:integer);
begin
if(findcolortolerance(n,t,color2,1080,450,1110,475,3))and(findcolortolerance(n,t,color2,1205,670,1235,695,3))then
a:=true;
end;
procedure login;
var
x,y:integer;
begin
wait(500);
clickmouse( 40,30,true);
wait(100);
clickmouse(40,30,true);
wait(3000);
clickmouse(1080,540,true);
wait(16000+random(2000));
clickmouse(835,530,true);
wait(300+random(300));
clickmouse(830,615,true);
wait(100+random(500));
typekeys('coolydudey60');
wait(200+random(200));
clickmouse(830,675,true);
wait(200+random(150));
typekeys('1k0s1k0s');
wait(50+random(150));
clickmouse(830,715,true);
wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
begin
writeln('write login if you want the program to log you in');
wait(500);
readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
begin
login;
end;
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
pickcolor(color2,b,v);//pick the color of the mined rock in your inventory(you'll have to mine a bit before u start)
repeat
p:=random(4);
l:=random(4);
f:=random(6);
d:=random(6);
repeat
for i:=1 to random(20) do
if(f>2)then
begin
sendarrow(p);
end;
findandminerock;
check(n,t);
until(a=true);
for i:=1 to 5 do
begin
if(iskeydown('t'))then
begin
terminatescript;
end;
wait(25);
end;
for i:=1 to random(20) do
if(d>4)then
begin
sendarrow(l);
end;
for i:=1 to 28 do
begin
dropit(r,z);
end;
for i:=1 to 5 do
begin
if(iskeydown('t'))then
begin
terminatescript;
end;
wait(25);
end;
until(false);
end.
[/scar]
