Simba Code:
program GemStall;
var
x, y, a, b, c, d, l, j, k, g, w, e, gandalf, gandalf1, f: Integer;
procedure gemstole;
begin
if FindColorTolerance(x, y, 2897727, 697, 442, 708, 449, 3) or
FindColorTolerance(x, y, 2897727, 697, 442, 708, 449, 3) or
FindColorTolerance(x, y, 2897727, 697, 442, 708, 449, 3) or
FindColorTolerance(x, y, 2897727, 697, 442, 708, 449, 3) or
FindColorTolerance(x, y, 2897727, 697, 442, 708, 449, 3) then
begin
if FindColorTolerance(x, y, 3541648, 1, 5, 514, 337, 4) or
FindColorTolerance(x, y, 3082622, 1, 5, 514, 337, 4) or
FindColorTolerance(x, y, 3541648, 9, 11, 508, 330, 4) or
FindColorTolerance(x, y, 3082622, 4, 11, 508, 330, 4) then
begin
Cleardebug;
Writeln('Thieving Gems laike o g housi and searching for red gems');
movemouse(x, y);
clickmouse(x, y, mouse_left);
wait(1800);
end
else
begin
if FindColorTolerance(x, y, 2897727, 700, 442, 707, 449, 2) or
FindColorTolerance(x, y, 2897727, 700, 442, 707, 449, 2) or
FindColorTolerance(x, y, 2897727, 700, 442, 707, 449, 2) or
FindColorTolerance(x, y, 2897727, 700, 442, 707, 449, 2) or
FindColorTolerance(x, y, 2897727, 700, 442, 707, 449, 2) then
begin
if FindColorTolerance(g, l, 130, 562, 81, 660, 149, 2) or
FindColorTolerance(g, l, 394912, 562, 81, 660, 149, 2) then
end;
begin
movemouse(g + random(10), l + random(9));
clickmouse(g + random(10), l + random(9), mouse_left);
wait(2700);
end;
end;
end;
end;
procedure bank;
begin
if FindColorTolerance(x, y, 7082254, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 1008909, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 725334, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 9145490, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 6229062, 693, 436, 717, 455, 4) then
begin
movemouse(633, 45);
clickmouse(633, 45, mouse_left);
begin
if FindColorTolerance(x, y, 64250, 565, 11, 692, 157, 1) then
begin
movemouse(x, y);
clickmouse(x, y, mouse_left);
wait(4100);
end;
end;
end;
begin
if FindColorTolerance(x, y, 7082254, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 1008909, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 725334, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 9145490, 693, 436, 717, 455, 4) or
FindColorTolerance(x, y, 6229062, 693, 436, 717, 455, 4) then
begin
if FindColorTolerance(a, b, 2049873, 8, 10, 508, 331, 1) or
FindColorTolerance(a, b, 1719365, 8, 10, 508, 331, 1) then
begin
movemouse(a, b);
clickmouse(a, b, mouse_right);
wait(680);
begin
writeln('I just found bitmap called gandalf');
if FindBitmapToleranceIn(gandalf, d, f, 1, 1, 533, 410, 175) then
begin
movemouse(d, f);
clickmouse(d, f, mouse_left);
writeln('im clicking it now');
wait(2550);
begin
if FindColorTolerance(c, d, 1127265, 381, 299, 413, 321, 2) then
begin
movemouse(c, d);
clickmouse(c, d, mouse_left);
wait(400);
end
else
movemouse(random(380), random(380));
wait(400);
movemouse(random(180), random(180));
end;
end;
end;
end;
end;
end;
end;
begin
movemouse(542, 20);
clickmouse(542, 20, mouse_left);
wait(500);
KeyDown(37);
wait(1500);
KeyUp(37);
KeyDown(38);
wait(600);
Writeln('Screen id done');
KeyUp(38);
repeat
SetScriptProp(SP_WriteTimeStamp, [True]);
gandalf := BitmapFromString(74, 10, 'meJyTUdeeuuMYEMmoa5OBCOpl+P' +
'8fiMgznCrGDlffARVgOg8igiaOLIgpjsebeJyBLIXJhiNMLZhSuNS' +
'jOYw8Np4YhNuIy0k0ZWMGO9ZoIug7YpIQjXyHK04xfUe7uKOd74iP' +
'O7LZxOQ7+vsOf6lCtq8xPYg1y+NKUSSlQPwpcxQNUQQACaKx3Q==');
gemstole;
bank;
FreeBitmap(gandalf);
until (IsKeyDown(123));
end.
mother of god format please.