SRL Archive - First Scripts

hi here it goes…

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.

Read some tutorials… Requesting dirty work.. for your first post

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
var x, y,b: integer;


procedure pauze;
begin
wait(3000+random(1000));
mouse(786,14, 2, 2, true);
wait(200+random(150));
mouse(689,409, 50, 6, true);
wait(300000+random(100000));
mouse(401,502, 100, 10, true);

b:=0
end;

procedure iron;
begin
wait(2500);

if FindColorTolerance(x,y,3228273,200,200,600,450,5)
then mouse(x,y, 2, 2, true);
wait(300+random(1000));
MoveMouse(1+random(400), 3+random(400));

end;

procedure walkbank;
begin

mouse(730,17, 3, 7, true);
MoveMouse(712,89 );
wait(7000+random(400));
mouse(700,37, 3, 7, true);
mouse(627,123, 10, 10, true);
MoveMouse(712,89);
 wait(4000+random(300));
mouse(700,37, 3, 7, true);
MoveMouse(712,89);
wait(7000+random(400));
mouse(700,25, 3, 7, true);
MoveMouse(712,89);
wait(8000+random(400));
mouse(680,70, 3, 7, true);
MoveMouse(712,89);
wait(6000+random(400));
mouse(646,80+7, 3, 7, true);
MoveMouse(712,89);
wait(12000+random(400));
//dollar
if FindColortolerance(x,y,2413294,650,60,720,150,30)
then mouse(x,y, 10, 10, true);
MoveMouse(712,89);
wait(13000+random(3000));

//find banker
if FindColortolerance(x,y,5782083,261,300,552,530,10)
then mouse(x,y, 3, 3, true);
wait(3000+random(200));
if FindColortolerance(x,y,5782083,261,300,552,530,10)
then mouse(x,y, 3, 2, false);
wait(400+random(200));
mouse(x,y+43, 20, 2, true);
wait(1500+random(200));

//deposit
mouse(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 mouse(x,y+10, 5, 5, true);
wait(800+random(500));

b:=+1
end;

procedure walkmine;
begin
wait(2000+random(400));
 mouse(627,123, 10, 10, true);
 MoveMouse(712,89);
 wait(200+random(300));
mouse(730,65, 5, 2, true);
MoveMouse(712,89);
wait(5000+random(200));

mouse(780,79, 5, 2, true);
MoveMouse(712,89);
wait(9000+random(200));

mouse(749,148, 5, 2, true);
MoveMouse(712,89);
wait(7000+random(200));

mouse(735,149, 5, 2, true);
MoveMouse(712,89);
wait(6000+random(200));

mouse(717,128, 5, 2, true);
MoveMouse(712,89);
wait(6000+random(1000));
if FindColortolerance(x,y,1136166,700,125,745,155,30)
then mouse(x,y-5, 3, 3, true)
else mouse(730,150, 3, 3,true);
MoveMouse(712,89);
wait(6000+random(3000))


mouse(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 mouse(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.

Sjlou… you shouldve let him learn…

look at the script..he's going nowhere with it

absolute coords clicking?

Also, that's a SCAR script which uses OSI, don't post asking for help here, ask over at the correct forum.

Sorry your edit got me nowhere….

u made script for using with simba????
never used it…

ohh nvm in scar u need to add osi stuff ;DDD
but whole cords changed…. now need to edit it =(

thx for help!

The script you posted is for the program SCAR, from http://scar-divi.com, and the forums are here http://forums.scar-divi.com/

That's where you need to ask for help, not here.

scar has smart too

From: Main
scar has smart too

But still, wrong forums, he posted help on an OSI script. We technically don't support that :p

From: Kyle Undefined
But still, wrong forums, he posted help on an OSI script. We technically don't support that :p

so, we're nice nice people and help our big(little?) brother

SCAR wants user at their forums, so pushing them there for help when asking here is the polite thing to do. :)