Simba Code:
program BAlcherPro;
{$i SRL/SRL.Simba}
///////////////////////////
////// SETUP!!! //////////
// Search for USERNAME and add yours
// Search for PASSWORD and add yours
// TO ENABLE LOGIN.
///////////////////////////
var
x,y, DTM, tmpCTS: Integer;
ObjectTPA:TPointArray;
procedure ClickSpellBook;
begin
MMouse(636,176,0,0);
ClickMouse2(True);
Writeln('[Alching]')
MMouse(734,178,0,0);
ClickMouse2(True);
Wait(randomrange(300,400));
MMouse(702,321,0,0);
ClickMouse2(True);
Wait(randomrange(300,400));
end;
procedure HighAlch;
begin
MMouse(699,334-10,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(460,500));
MMouse(636,176,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(200,300));
end;
procedure ProggyTest;
begin
ClearDebug;
begin
Writeln('*[B Alcher]: Running for: ' + TimeRunning);
end;
end;
procedure AntiRandom;
begin
If FindColorTolerance(x, y, 45311, 562,234,726,291, 5) then //1316151
begin
Writeln('[RANDOM] > Random Found, Relogging!')
MMouse(637,460,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
wait(randomrange(1500,1550));
MMouse(640,355,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(5000,6000));
MMouse(380,170,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
wait(randomrange(1000,2000));
SendKeys('USERNAME', 100, 30);
wait(randomrange(3000,4000));
MMouse(383,225,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
wait(randomrange(1000,2000));
SendKeys('PASSWORD', 100, 30);
wait(randomrange(3000,4000));
MMouse(380,275,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
wait(randomrange(3500,4000));
MMouse(384,335,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
wait(randomrange(8500,9000));
KeyDown(38);
wait(RandomRange(4000,5000));
KeyUp(38);
wait(RandomRange(200,300));
MMouse(670,460,0,0); //CLICK TOOLS
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(460,500));
MMouse(637,420,0,0); //CLICK RUN
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(460,500));
MMouse(636,176,0,0);
wait(randomrange(40,50));
ClickMouse2(True);
Wait(randomrange(1200,1250));
end;
end;
begin
ActivateClient;
SetupSRL;
MouseSpeed := 13;
wait(300);
Writeln('Starting Bot...');
repeat
ProggyTest;
AntiRandom;
ClickSpellBook;
AntiRandom;
HighAlch;
until(false);
end.