Simba Code:
program new;
{$DEFINE SMART}
{$i srl-6/srl.simba}
function FindGranite: Boolean;
var
i, s, h: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
t: TTimeMarker;
p: Tpoint;
begin
//FindColorsTolerance(TPA, 6192020, IntToBox(mainscreen.playerpoint.x - 140, mainscreen.playerpoint.y, mainscreen.playerpoint.x + 110, mainscreen.y2), 5, ColorSetting(2, 0.12, 0.31));
FindColorsTolerance(TPA, 7449049,inttobox(65,267,520,333), 5, ColorSetting(2, 0.3, 0.3));
if (Length(TPA) < 1) then
begin
Writeln('nope');
Exit;
end;
ATPA := TPA.ToATPA(20, 20);
SortATPAFromMidPoint(ATPA, Point(randomRange(mainscreen.playerpoint.x - 100, mainscreen.playerpoint.x + 100), mainscreen.playerpoint.y));
h := High(ATPA);
for i := 0 to h do
begin
if (Length(ATPA[i]) < 50) then
Continue;
Mouse(ATPA[i][random(High(ATPA[i]))], MOUSE_MOVE, MOUSE_HUMAN);
if IsMouseOverText(['ine', 'ranite', 'ocks', 'Mine'], 500) then
begin
fastclick(mouse_left);
wait(500);
if tabBackpack.waitForShift(6000+Random(250)) then
WriteLn('Uber, we gained: Granite');
Exit();
end;
end;
end;
procedure DropGranite;
var
dropTPA: TPointArray;
begin
wait(650+Random(311));
repeat
if findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(5),40) then
begin
mouseBox(actionBar.getSlotBox(5),MOUSE_RIGHT,MOUSE_HUMAN);
wait(randomrange(50,150));
chooseOption.select(['Drop Gr'], 500);
wait(400+Random(50));
end;
if findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(6),40) then
begin
mouseBox(actionBar.getSlotBox(6),MOUSE_RIGHT,MOUSE_HUMAN);
wait(randomrange(50,150));
chooseOption.select(['Drop Gr'], 500);
wait(400+Random(50));
end;
if findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(7),40) then
begin
mouseBox(actionBar.getSlotBox(7),MOUSE_RIGHT,MOUSE_HUMAN);
wait(randomrange(50,150));
chooseOption.select(['Drop Gr'], 500);
wait(400+Random(50));
end;
until not findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(5),40) or findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(6),40) or findColorsTolerance(dropTPA,4875654,actionBar.getSlotBox(7),40);
end;
begin
setupSRL();
FindGranite;
DropGranite;
end;