Al kahrid smelter.

It works with me any way.
Made mostly for mithrel and coal.
Haven't yet added repeat.
Help me make it better please.



program New;
var
ore1: string;
ore2: string;
furnacex: integer;
furnacey: integer;
bankx: integer;
banky: integer;
booth1: integer;
booth2: integer;
kababx: integer;
kababy: integer;
mithx: integer;
mithy: integer;
coalx: integer;
coaly: integer;

procedure openbank;
begin;
findcolor(booth1,booth2,6060167,0,0,999,999)
clickmouse(booth1,booth2,true);
wait(500);
clickmouse(booth1,booth2,false);
wait(500);
booth2:=(booth2+45);
wait(100);
clickmouse(booth1,booth2,true);
wait(2500);
end;
procedure getmithrel;
begin;
findcolor(mithx,mithy,7359820,0,0,999,999);
wait(2500);
mithx:=(mithx-10);
mithy:=(mithy+10);
movemousesmooth(96,78);
wait(250);
clickmouse(96,78,false);
wait(500);
mithy:=(mithy+89);
movemousesmooth(96,117);
wait(250);
clickmouse(96,117,true);
wait(750);
end;
procedure getcoal;
begin;
findcolor(mithx,mithy,7359820,0,0,999,999);
wait(500);
mithx:=(mithx-10);
mithy:=(mithy+10);
movemousesmooth(143,78);
wait(250);
clickmouse(143,78,false);
wait(500);
mithy:=(mithy+89);
movemousesmooth(143,157);
wait(250);
clickmouse(143,157,true);
wait(750);
end;
procedure gotofurnace;
begin;
wait(1500);
movemousesmooth(486,46);
clickmouse(486,46,true);
wait(5000);
findcolor(kababx,kababy,1349913,0,0,999,999)
movemousesmooth(kababx,kababy);
wait(5000);
clickmouse(kababx,kababy,true);
end;
procedure furnacetwo;
begin;
wait(1500);
findcolor(furnacex,furnacey,1638399,0,0,999,
movemousesmooth(furnacex,furnacey);
wait(5000);
clickmouse(furnacex,furnacey,true);
end;
procedure furnaceclk;
begin;
wait(1500);
movemousesmooth(225,67);
clickmouse(225,67,true);
wait(5000);
movemousesmooth(225,67);
wait(1500);
clickmouse(225,67,true);
wait(1500);
movemousesmooth(360,416);
wait(1500);
clickmouse(360,416,false);
wait(1500);
movemousesmooth(361,452);
wait(10000);
clickmouse(361,452,true);
end;
procedure gobankin;
begin;
findcolor(coalx,coaly,5495791,0,0,999,999);
wait(150);
movemousesmooth(coalx,coaly);
wait(750);
clickmouse(coalx,coaly,true);
wait(150);
end;
begin
ore1:='5' //set varables here
ore2:='23'
openbank;;
wait(750);
getmithrel;
wait(750);
getcoal;
wait(2500);
gotofurnace;
wait(6500);
furnacetwo;
wait(750);
furnaceclk;
wait(750);
gobankin;
wait(150);
end.

 

lol...

 

i dont get where you are supposed to put those codes in. can you please tell e!!!

 

Srl-forums.com

Download SCAR there....

 

looks cool

 

The guy who asked where to put the code: Go to freddy1990.com That's the OFFICIAL download site for SCAR.

 

Thanks ;P

 

Witch Window of Runescaoe we have to use?

-Runescape with IE
-Runescape with FireFox
-Runescape Official Client
-Other Runescape Client

Did we have to use Low Detail or High Detail?

Please answere the faster than you can.