Code:
var x, y,b: integer;
{$DEFINE OSI_Color_Anti_Randoms}
{.include OSI\OSI.scar}
procedure pauze;
begin
wait(3000+random(1000));
ClickWindMouse(786,14, 2, 2, true);
wait(200+random(150));
ClickWindMouse(689,409, 50, 6, true);
wait(300000+random(100000));
ClickWindMouse(401,502, 100, 10, true);
b:=0
end;
procedure iron;
begin
wait(2500);
if FindColorTolerance(x,y,3228273,200,200,600,450,5)
then ClickWindMouse(x,y, 2, 2, true);
wait(300+random(1000));
MoveWindMouseEx(1+random(400), 3+random(400), 500, 500, 5+random(20));
end;
procedure walkbank;
begin
ClickWindMouse(730,17, 3, 7, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(7000+random(400));
ClickWindMouse(700,37, 3, 7, true);
ClickWindMouse(627,123, 10, 10, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(4000+random(300));
ClickWindMouse(700,37, 3, 7, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(7000+random(400));
ClickWindMouse(700,25, 3, 7, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(8000+random(400));
ClickWindMouse(680,70, 3, 7, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(6000+random(400));
ClickWindMouse(646,80+7, 3, 7, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(12000+random(400));
//dollar
if FindColortolerance(x,y,2413294,650,60,720,150,30)
then ClickWindMouse(x,y, 10, 10, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(13000+random(3000));
//find banker
if FindColortolerance(x,y,5782083,261,300,552,530,10)
then ClickWindMouse(x,y, 3, 3, true);
wait(3000+random(200));
if FindColortolerance(x,y,5782083,261,300,552,530,10)
then ClickWindMouse(x,y, 3, 2, false);
wait(400+random(200));
ClickWindMouse(x,y+43, 20, 2, true);
wait(1500+random(200));
//deposit
ClickWindMouse(433,396, 6, 6, true);
wait(200+random(200));
repeat
wait(100);
until FindColortolerance(x,y,7168585,439,101,548,126,10);
if FindColortolerance(x,y,7168585,439,101,548,126,10)
then ClickWindMouse(x,y+10, 5, 5, true);
wait(800+random(500));
b:=+1
end;
procedure walkmine;
begin
wait(2000+random(400));
ClickWindMouse(627,123, 10, 10, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(200+random(300));
ClickWindMouse(730,65, 5, 2, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(5000+random(200));
ClickWindMouse(780,79, 5, 2, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(9000+random(200));
ClickWindMouse(749,148, 5, 2, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(7000+random(200));
ClickWindMouse(735,149, 5, 2, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(6000+random(200));
ClickWindMouse(717,128, 5, 2, true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(6000+random(1000));
if FindColortolerance(x,y,1136166,700,125,745,155,30)
then ClickWindMouse(x,y-5, 3, 3, true)
else ClickWindMouse(730,150, 3, 3,true);
MoveWindMouseEx(712,89, 50, 50, 3+random(10));
wait(6000+random(3000))
ClickWindMouse(680-random(4),125, 3, 2, true);
wait(5000+random(500));
end;
begin
repeat
walkmine;
wait(1000+random(300));
if FindColorTolerance(x,y,3228273,0,0,560,460,5)
then ClickWindMouse(x,y, 2, 2, true);
repeat iron
until FindColorTolerance(x,y,540185,227,562,300,569,30);
if (b>6+random(4)) then pauze;
walkbank;
until false;
end.