Simba Code:
program TzhaareMine;
{$DEFINE SMART}
{$i srl-6/srl.simba}
var
Mining,XP: Integer;
procedure declarePlayers();
begin
setLength(players, 1);
currentPlayer := 0;
with players[0] do
begin
loginName := '';
password := '';
isActive := true;
isMember := true;
world := -1;
end;
end;
function FindStatue: Boolean;
var
i, s, h: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
t: TTimeMarker;
p: Tpoint;
begin
if (not isLoggedIn()) then exit();
writeln('Mine');
//FindColorsTolerance(TPA, 9493247,inttobox(65,267,520,333), 4, ColorSetting(2, 0.3, 0.3));
FindColorsTolerance(TPA, 2174784,inttobox(190,4,382,172), 5, ColorSetting(2, 0.3, 0.3));
//FindColorsTolerance(TPA, 10092031,inttobox(65,267,520,333), 4, 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', 'tatue', 'zhaar', 'et-'], 500) then
begin
fastclick(mouse_left);
MouseOval(450,514,30,15,Mouse_MOVE);
//wait(300);
if tabBackpack.waitForShift(9000+Random(450)) then
WriteLn('Uber, we gained: Tokkul');
//if (conversationBox.areTalking()) then
begin
conversationBox.continue(true, true);
Wait(200+Random(100));
conversationBox.continue(true, true);
Wait(200+Random(100));
end;
Exit();
end;
end;
end;
procedure DestroyFragments;
var
dropTPA: TPointArray;
begin
if (not isLoggedIn()) then exit();
writeln('Destroy');
begin
if (tabBackpack.isItemInSlot(1)) then
tabBackpack.mouseSlot(1, MOUSE_Right);
chooseOption.select(['estroy'], 500);
wait(500+Random(100));
MouseOval(403,493,2,7,Mouse_Left);
wait(700+Random(150));
XP := XP + 250;
end;
end;
procedure ProgReport;
begin
WriteLn('******************* Joe Tzhaar Miner *******************');
//WriteLn('We have mined: ' + IntToStr(Mining) + ' Fragment Rocks');
WriteLn('We have gained: ' + IntToStr(XP) + ' XP');
WriteLn('We have run for: ' + msToTime(GetTimeRunning, TIME_SHORT));
end;
begin
smartPlugins := ['d3d9.dll'];
setupSRL();
declarePlayers();
If Not Players[CurrentPlayer].Login Then
Players[CurrentPlayer].Login;
repeat
FindStatue;
DestroyFragments;
ProgReport;
until (not isLoggedIn());
sixhourfix();
end;
Yours wasn't working for me so I just edited my Granite Miner... Although yours sounds like it gets a hell of a lot better XP