coolydudey60 powerminer final version

[coolydudey60]

for the most reliable and least detectable version please zoom down to the bottom.
if you get any errors please try scrolling further down because the earlier ones don't work.
this took me a whole summer to perfect and lots of time.
IT IS NOT 100% SAFE, BECAUSE OF THE LACK OF ANTI-BAN

[ti.teg.tnod.I]

Please don't double, triple, quadruple post, etc. The problem is that you probably missed an "end;" or "until();" or something along the lines of that.

[coolydudey60]

sorry for all the posting this version now works. i had just missed an end; in the login procedure!

here we go

[scar]
program powerminer;
var
x,y,i,r,z,n,t,b,v,w,c,damn,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(1000+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
damn:=0;
 wait(500);
case getapplication.MessageBox('is your browser icon in the top left hand corner of your screen?','ANSWER THIS',4)of
mryes:damn:=1;
end;
if(damn=1)then
begin
clickmouse( 40,30,true);
 wait(100);
clickmouse(40,30,true);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
if(damn=0)then
begin
getapplication.messagebox('you have 3 seconds to open ur browser','time is money',0);
 wait(3000);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
end;
begin
getapplication.MessageBox('after this write login if you want the program to log you in','login:',0);
wait(2000);
readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
begin
 login;
end;
w:=0;
repeat
wait(2500);
case getapplication.MessageBox('are you in a mining site so that u can pick the color of the streaky bit of the rock to be mined?','ready?',4)of
mryes:w:=1;
end;
wait(2500);
until(w=1);
c:=0;
getapplication.MessageBox('now pick the color of the streaky bit of the rock to be mined!','go for it',0);
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
wait(2500);
case getapplication.MessageBox('have you got a sample of the rock to be mined in your inventory?','i''d like to know',4)of
mryes:c:=1;
end;
wait(2500);
until(c=1);
getapplication.MessageBox('now pick the color of the rock in your inventory','go for it',0);
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
 begin
 if(f>2)then
 begin
 sendarrow(p);
 end;
 end;
 for i:=1 to 5 do
begin
 if(iskeydown('t'))then
 begin
  terminatescript;
 end;
wait(25);
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
begin
if(d>4)then
begin
 sendarrow(l);
end;
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]

[nielsie95]

Offtopic: I can't help but to notice you have a very nice signature :p

[coolydudey60]

thanks... lol
Posted on: August 12, 2009, 10:48:09 AMi got windows 7 rc and scar actually compiles and runs in it like all the other programs i had on vista... it's amazing!

and stable

[ti.teg.tnod.I]

thanks... lol
Posted on: August 12, 2009, 10:48:09 AMi got windows 7 rc and scar actually compiles and runs in it like all the other programs i had on vista... it's amazing!

and stable

Again please don't double-post and I have Windows 7 too.

[coolydudey60]

here we go the final version and what it does is it only starts mining again once it has finished mining the previous rock
[scar]
program powerminer;
var
x,y,i,r,z,w,c,damn,color,color2,p,l,f,count,count2,b,v:integer;
a,a2:boolean;
s:string;
procedure findandminerock;
 begin
  if(findcolortolerance(x,y,color,5,240,1460,945,3))then
  begin
   clickwindmouse(x-10,y-10,35,25,true);
  end;
 end;
procedure dropit;
 begin
  findcolortolerance(r,z,color2,1490,685,1670,940,2);
  clickwindmouse(r-5,z,12,10,false);
  wait(100+random(300));
  clickwindmouse(r,z+42,10,5,true);
  wait(100+random(250));
 end;
procedure check;
begin
if(findcolortolerance(b,v,color2,1495,690,1535,720,3))and(findcolortolerance(b,v,color2,1625,905,1665,935,3))then
a:=true;
end;
procedure check2;
begin
if(findcolortolerance(b,v,color2,1495+count*40,690+count2*40,1535*40,720+count2*40,3))then
 begin
  count:=count+1;
  a2:=true;
 end;
  if(count=4)or(count=8)or(count=12)or(count=16)or(count=20)or(count=24)then
   begin
    count2:=count2+1;
   end;
end;
procedure login;
var
x,y:integer;
begin
damn:=0;
 wait(500);
case getapplication.MessageBox('is your browser icon in the top left hand corner of your screen?','ANSWER THIS',4)of
mryes:damn:=1;
end;
if(damn=1)then
begin
clickmouse( 40,30,true);
 wait(100);
clickmouse(40,30,true);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
if(damn=0)then
begin
getapplication.messagebox('you have 3 seconds to open ur browser','time is money',0);
 wait(3000);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
end;
procedure spinit;
begin
if(f>2)then
 begin
 if(p=0)then
 begin
 keydown(vk_up);
 wait(random(400));
 keyup(vk_up);
 end;
 if(p=1)then
 begin
 keydown(vk_left);
 wait(random(400));
 keyup(vk_left);
 end;
 if(p=2)then
 begin
 keydown(vk_down);
 wait(random(400));
 keyup(vk_down);
 end;
 if(p=3)then
 begin
 keydown(vk_right);
 wait(random(400));
 keyup(vk_right);
 end;
 end;
 end;
procedure terminateit;
 begin
 for i:=1 to 5 do
begin
 if(iskeydown('t'))then
 begin
  terminatescript;
 end;
wait(25);
end;
end;
procedure therest;
begin
getapplication.MessageBox('after this write login if you want the program to log you in','login:',0);
wait(1000);
s:=readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
 begin
  login;
 end;
repeat
 wait(4000);
 case getapplication.MessageBox('are you in a mining site so that u can pick the color of the streaky bit of the rock to be mined?','ready?',4)of
  mryes:w:=1;
 end;
 wait(1000);
until(w=1);
getapplication.MessageBox('now pick the color of the streaky bit of the rock to be mined!','go for it',0);
wait(200);
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
 wait(4000);
 case getapplication.MessageBox('have you got a sample of the rock to be mined in your inventory?','i''d like to know',4)of
  mryes:c:=1;
 end;
 wait(1000);
until(c=1);
getapplication.MessageBox('now pick the color of the rock in your inventory','go for it',0);
wait(200);
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);
 spinit;
 count:=0;
 count2:=0;
 repeat
  terminateit;
  findandminerock;
  check;
  a2:=false;
  repeat
   check2;
   wait(200);
  until(a2=true);
 until(a=true);
spinit;
for i:=1 to 28 do
 begin
  terminateit;
  dropit;
 end;
until(false);
end;
begin
therest;
end.
[/scar]
don't forget to press t to stop the script

the other version had a minor glitch.

[scar]
program powerminer;
var
x,y,i,r,z,w,c,damn,color,color2,p,l,f,count,count2,b,v:integer;
a,a2:boolean;
s:string;
procedure findandminerock;
 begin
  if(findcolortolerance(x,y,color,5,240,1460,945,3))then
  begin
   clickwindmouse(x-10,y-10,35,25,true);
  end;
 end;
procedure dropit;
 begin
  findcolortolerance(r,z,color2,1490,685,1670,940,2);
  clickwindmouse(r-5,z,12,10,false);
  wait(100+random(300));
  clickwindmouse(r,z+42,10,5,true);
  wait(100+random(250));
 end;
procedure check;
begin
if(findcolortolerance(b,v,color2,1495,690,1535,720,3))and(findcolortolerance(b,v,color2,1625,905,1665,935,3))then
a:=true;
end;
procedure check2;
begin
if(findcolortolerance(b,v,color2,1495+count*40,690+count2*40,1535*40,720+count2*40,3))then
 begin
  count:=count+1;
  a2:=true;
 end;
  if(count=4)or(count=8)or(count=12)or(count=16)or(count=20)or(count=24)then
   begin
    count2:=count2+1;
    count:=0;
   end;
end;
procedure login;
var
x,y:integer;
begin
damn:=0;
 wait(500);
case getapplication.MessageBox('is your browser icon in the top left hand corner of your screen?','ANSWER THIS',4)of
mryes:damn:=1;
end;
if(damn=1)then
begin
clickmouse( 40,30,true);
 wait(100);
clickmouse(40,30,true);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
if(damn=0)then
begin
getapplication.messagebox('you have 3 seconds to open ur browser','time is money',0);
 wait(3000);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
end;
procedure spinit;
begin
if(f>2)then
 begin
 if(p=0)then
 begin
 keydown(vk_up);
 wait(random(400));
 keyup(vk_up);
 end;
 if(p=1)then
 begin
 keydown(vk_left);
 wait(random(400));
 keyup(vk_left);
 end;
 if(p=2)then
 begin
 keydown(vk_down);
 wait(random(400));
 keyup(vk_down);
 end;
 if(p=3)then
 begin
 keydown(vk_right);
 wait(random(400));
 keyup(vk_right);
 end;
 end;
 end;
procedure terminateit;
 begin
 for i:=1 to 5 do
begin
 if(iskeydown('t'))then
 begin
  terminatescript;
 end;
wait(25);
end;
end;
procedure therest;
begin
getapplication.MessageBox('after this write login if you want the program to log you in','login:',0);
wait(1000);
s:=readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
 begin
  login;
 end;
repeat
 wait(4000);
 case getapplication.MessageBox('are you in a mining site so that u can pick the color of the streaky bit of the rock to be mined?','ready?',4)of
  mryes:w:=1;
 end;
 wait(1000);
until(w=1);
getapplication.MessageBox('now pick the color of the streaky bit of the rock to be mined!','go for it',0);
wait(200);
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
 wait(4000);
 case getapplication.MessageBox('have you got a sample of the rock to be mined in your inventory?','i''d like to know',4)of
  mryes:c:=1;
 end;
 wait(1000);
until(c=1);
getapplication.MessageBox('now pick the color of the rock in your inventory','go for it',0);
wait(200);
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);
 spinit;
 count:=0;
 count2:=0;
 repeat
  terminateit;
  findandminerock;
  check;
  a2:=false;
  repeat
   check2;
   wait(200);
  until(a2=true);
 until(a=true);
spinit;
for i:=1 to 28 do
 begin
  terminateit;
  dropit;
 end;
until(false);
end;
begin
therest;
end.
[/scar]
just quickly scan through the login procedure and replace ur username and passwrod there. nothing elese to do!
just fixed minor glitch where it wouldn't spin the screen, made it slightly less detectable(probably about the least detectable it can be without anti-random and ban),and made it more accurate when clicking. i'm pretty sure this is actually the final version(about version a million! :cool:).

out of interest though if freddy pops in could he tell me what language scar is written in (pascal right?) if it is pascal what version( cause i'm pretty sure it aint 7) and how many lines of code scar is.

[scar]
program powerminer;
var
x,y,i,r,z,w,c,damn,color,color2,p,l,f,count,count2,b,v:integer;
a,a2:boolean;
s:string;
procedure findandminerock;
 begin
  if(findcolortolerance(x,y,color,5,240,1460,945,3))then
  begin
   clickwindmouse(x-10,y-10,27,25,true);
  end;
 end;
procedure dropit;
 begin
  findcolortolerance(r,z,color2,1490,685,1670,940,2);
  clickwindmouse(r-5,z,12,10,false);
  wait(100+random(300));
  clickwindmouse(r-3,z+42,10,5,true);
  wait(100+random(250));
 end;
procedure check;
begin
if(findcolortolerance(b,v,color2,1495,690,1535,720,3))and(findcolortolerance(b,v,color2,1625,905,1665,935,3))then
a:=true;
end;
procedure check2;
begin
if(findcolortolerance(b,v,color2,1495+count*40,690+count2*40,1535*40,720+count2*40,3))then
 begin
  count:=count+1;
  a2:=true;
 end;
  if(count=4)or(count=8)or(count=12)or(count=16)or(count=20)or(count=24)then
   begin
    count2:=count2+1;
    count:=0;
   end;
end;
procedure login;
var
x,y:integer;
begin
damn:=0;
 wait(500);
case getapplication.MessageBox('is your browser icon in the top left hand corner of your screen?','ANSWER THIS',4)of
mryes:damn:=1;
end;
if(damn=1)then
begin
clickmouse( 40,30,true);
 wait(100);
clickmouse(40,30,true);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
if(damn=0)then
begin
getapplication.messagebox('you have 3 seconds to open ur browser','time is money',0);
 wait(3000);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clicwindkmouse(x,y,20,20true);
end;
end;
procedure spinit;
begin
p:=random(4)
f:=random(10);
if(f>8)then
 sendarrowwait(p,random(1000);
 end;
procedure terminateit;
 begin
 for i:=1 to 5 do
begin
 if(iskeydown('t'))then
 begin
  terminatescript;
 end;
wait(25);
end;
end;
procedure therest;
begin
getapplication.MessageBox('after this write login if you want the program to log you in','login:',0);
wait(1000);
s:=readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
 begin
  login;
 end;
repeat
 wait(4000);
 case getapplication.MessageBox('are you in a mining site so that u can pick the color of the streaky bit of the rock to be mined?','ready?',4)of
  mryes:w:=1;
 end;
 wait(1000);
until(w=1);
getapplication.MessageBox('now pick the color of the streaky bit of the rock to be mined!','go for it',0);
wait(200);
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
 wait(4000);
 case getapplication.MessageBox('have you got a sample of the rock to be mined in your inventory?','i''d like to know',4)of
  mryes:c:=1;
 end;
 wait(1000);
until(c=1);
getapplication.MessageBox('now pick the color of the rock in your inventory','go for it',0);
wait(200);
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
 count:=0;
 count2:=0;
 repeat
  terminateit;
  spinit;
  findandminerock;
  check;
  a2:=false;
  repeat
   check2;
   wait(100+random(200));
  until(a2=true);
 until(a=true);
spinit;
for i:=1 to 28 do
 begin
  terminateit;
  dropit;
 end;
until(false);
end;
begin
therest;
end.
[/scar]

[coolydudey60]

fixed 3 silly errors
[scar]
program powerminer;
var
x,y,i,r,z,w,c,damn,color,color2,p,l,f,count,count2,b,v:integer;
a,a2:boolean;
s:string;
procedure findandminerock;
 begin
  if(findcolortolerance(x,y,color,5,240,1460,945,3))then
  begin
   clickwindmouse(x-10,y-10,27,25,true);
  end;
 end;
procedure dropit;
 begin
  findcolortolerance(r,z,color2,1490,685,1670,940,2);
  clickwindmouse(r-5,z,12,10,false);
  wait(100+random(300));
  clickwindmouse(r-3,z+42,10,5,true);
  wait(100+random(250));
 end;
procedure check;
begin
if(findcolortolerance(b,v,color2,1495,690,1535,720,3))and(findcolortolerance(b,v,color2,1625,905,1665,935,3))then
a:=true;
end;
procedure check2;
begin
if(findcolortolerance(b,v,color2,1495+count*40,690+count2*40,1535*40,720+count2*40,3))then
 begin
  count:=count+1;
  a2:=true;
 end;
  if(count=4)or(count=8)or(count=12)or(count=16)or(count=20)or(count=24)then
   begin
    count2:=count2+1;
    count:=0;
   end;
end;
procedure login;
var
x,y:integer;
begin
damn:=0;
 wait(500);
case getapplication.MessageBox('is your browser icon in the top left hand corner of your screen?','ANSWER THIS',4)of
mryes:damn:=1;
end;
if(damn=1)then
begin
clickmouse( 40,30,true);
 wait(100);
clickmouse(40,30,true);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickmouse(x,y,true);
end;
if(damn=0)then
begin
getapplication.messagebox('you have 3 seconds to open ur browser','time is money',0);
 wait(3000);
clickmouse(1080,540,true);
 wait(16000+random(2000));
clickwindmouse(835,530,15,30,true);
 wait(300+random(300));
clickwindmouse(830,615,10,7,true);
 wait(100+random(500));
typekeys('******');//replace with ur username
 wait(200+random(200));
clickwindmouse(830,675,14,3,true);
 wait(200+random(150));
typekeys('*******');//replace with ur password
 wait(50+random(150));
clickwindmouse(830,715,15,20,true);
 wait(4500+random(700));
findcolortolerance(x,y,9822460,640,725,1025,780,3);
clickwindmouse(x,y,20,20,true);
end;
end;
procedure spinit;
begin
p:=random(4)
f:=random(10);
if(f>8)then
 sendarrowwait(p,random(1000));
 end;
procedure terminateit;
 begin
 for i:=1 to 5 do
begin
 if(iskeydown('t'))then
 begin
  terminatescript;
 end;
wait(25);
end;
end;
procedure therest;
begin
getapplication.MessageBox('after this write login if you want the program to log you in','login:',0);
wait(1000);
s:=readln(s);//write login if you want the program to log you in
wait(75);
movetotray;
activateclient;
if(s='login')then
 begin
  login;
 end;
repeat
 wait(4000);
 case getapplication.MessageBox('are you in a mining site so that u can pick the color of the streaky bit of the rock to be mined?','ready?',4)of
  mryes:w:=1;
 end;
 wait(1000);
until(w=1);
getapplication.MessageBox('now pick the color of the streaky bit of the rock to be mined!','go for it',0);
wait(200);
pickcolor(color,b,v);//pick the color of the streaky bit of the rock to be mined
repeat
 wait(4000);
 case getapplication.MessageBox('have you got a sample of the rock to be mined in your inventory?','i''d like to know',4)of
  mryes:c:=1;
 end;
 wait(1000);
until(c=1);
getapplication.MessageBox('now pick the color of the rock in your inventory','go for it',0);
wait(200);
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
 count:=0;
 count2:=0;
 repeat
  terminateit;
  spinit;
  findandminerock;
  check;
  a2:=false;
  repeat
   check2;
   wait(100+random(200));
  until(a2=true);
 until(a=true);
spinit;
for i:=1 to 28 do
 begin
  terminateit;
  dropit;
 end;
until(false);
end;
begin
therest;
end.
[/scar]

[jcoops]

it says it cant find the identifier what is that

[coolydudey60]

right i can't help u unless u give me the actual error and the line
Posted on: November 11, 2009, 05:47:26 AMby the way my contribution to the site is gonna become limited guys... sorry.

i'm starting c now i wanna get a bit more serious. if any one has questions pm me

[Se7eN]

scar is written in delphi. im not sure which version freddy uses but im sure its the latest version. (i don't do delphi so i have no idea what version number the lastest version is...lol). as to cooly dude... you need to learn how to edit your posts. double/triple/etc. posting is against the rules if you continue to do it you will be temp banned. its not hard. as for your script im glad you got it working, and i wish you luck on learning C! its a fun language to learn, if you ever decide to make the transition to C++ let me know.

-Se7eN

[Freddy]

SCAR's written in Delphi 7, however, SCAR 3.50 will be written in Delphi 2010 as is all of my work now... Not exactly sure how many lines SCAR is, if I'd have to guess I'd say about 30000 or so

[Dan's The Man]

thanks... lol
Posted on: August 12, 2009, 10:48:09 AMi got windows 7 rc and scar actually compiles and runs in it like all the other programs i had on vista... it's amazing!

and stable

Again please don't double-post and I have Windows 7 too.

Honestly, why do you care if they get merged anyway?

[coolydudey60]

[scar]
width,height,wx,hy:integer;
l:boolean;
procedure getd;
begin
getclientdimensions(width,height);
writeln(width);
writeln(height);
getapplication.MessageBox('please left-click on the 2 bottom corners of the RUNESCAPE client','information',0);
wait(200);
repeat
if(ismousebuttondown(true))then
begin
getmousepos(wx,hy);
l:=true;
end;
wait(5);
until(l=true);
writeln(wx);
writeln(hy);
end;[/scar]

[Freddy]

thanks... lol
Posted on: August 12, 2009, 10:48:09 AMi got windows 7 rc and scar actually compiles and runs in it like all the other programs i had on vista... it's amazing!

and stable

Again please don't double-post and I have Windows 7 too.

Honestly, why do you care if they get merged anyway?

Because it's against the rules.