Code:
program SuperAlcher;
{.include SRL/SRL.scar}
var
x,y,count,fullcount,alchs,bored,talk: integer;
const
askmagelvl=1;
tellmagelvl=2;
procedure AlchThemAll;
begin
FindColorTolerance(x,y,849658,821,498,983,606,5);
Mouse(x,y,1,1,true);
wait(200+random(200));
FindColorTolerance(x,y,8432316,821,498,983,606,5);
mouse(x,y,1,1,true);
wait(1100+random(300));
end;
procedure SendReport;
begin
AddToReport('*****************************************');
AddToReport('******WELCOME TO SUPERBATMANS ALCHER*****');
AddToReport('******REPORT BUGS TO: *****');
AddToReport('******WANNAB723@GMAIL.COM *****');
AddToReport('*****************************************');
AddToReport('Total Alchs: ');
AddToReport(IntToStr(fullcount) );
AddToReport('Total XP gained: ');
AddToReport(IntToStr(Alchs) );
end;
//main//
begin
SetupSRL;
count:=0;
fullcount:=0;
alchs:=0;
bored:=0;
talk:=0;
repeat
ClearReport;
SendReport;
AlchThemAll;
count:=count+1;
fullcount:=count+1;
alchs:=fullcount*65;
bored:=bored+random(7);
talk:=talk+random(25);
FindNormalRandoms;
//Random Check Magic Xp(Antiban);
if(count=30+random(50)) then
begin
Mouse(821,353,3,3,true);
wait(500+random(100));
MMouse(815,570,3,6);
wait(1800+random(900));
Mouse(988,348,3,3,true);
wait(500+random(300));
end;
//Going Back To Magic Tab If Lost;
if(not findcolortolerance(x,y,16284282,812,397,874,434,5)) then
begin
Mouse(985,352,5,5,true);
end;
//Random Bored(Antiban);
if(bored=0) then
begin
SendArrowSilentWait(0,random(500));
end;
if(bored=1) then
begin
SendArrowSilentWait(1,random(500));
end;
if(bored=2) then
begin
SendArrowSilentWait(2,random(500));
end;
if(bored=3) then
begin
SendArrowSilentWait(3,random(500));
end;
//Random tell Magic lvl/Ask Magic Lvl(antiban);
if(talk=13) then
begin
if(FindColorTolerance(x,y,14474460,268,608,695,679,5)=true) then
begin
Mouse(x,y,1,1,true);
TypeSend('S');
wait(200+random(200));
TypeSend('M');
wait(200+random(200));
TypeSend(IntToStr(askmagelvl));
wait(200+random(200));
Mouse(x,y,1,1,true);
TypeSend('S');
wait(200+random(200));
TypeSend('M');
wait(200+random(200));
TypeSend(IntToStr(tellmagelvl));
wait(200+random(200));
end;
end;
until(false)
end.