Hey i have Scar Divi CDE srl 4.00
I made a script up and for some reason its going terribly slow the mouse takes 1 minute to move 3 inches whats the problem?
here is the script:
program New;
{.include SRL/SRL.scar}
var
x,y: Integer;
i: Integer;
const
BettyColor= 4129088;
BlueColor= 128;
BettyHairColor= 128;
procedure check;
begin
wait(100);
mmouse(1271, 344, 1, 1);
wait(100 + Random(50));
holdmouse(1271, 344, true);
wait(100 + Random(50))
mmouse(1271, 537, 1, 1);
wait(100 + Random(50))
releasemouse(1271, 537, true);
wait(100 + Random(50))
end;
procedure login;
begin
movemouse(695, 499)
wait(100)
clickmouse(695, 499, true)
wait(100)
sendkeys('takataka50'+chr(13))
sendkeys('hihihi')
movemouse(584, 531)
wait(100)
clickmouse(584, 531, true)
wait(7000+random(1000))
movemouse(608, 540)
wait(100)
clickmouse(608, 540, true)
wait(3000)
end;
Procedure betty;
begin
If(findcolortolerance(x, y, Bettycolor, 252, 208, 761, 543, 5)) then
begin
wait(500+random(500))
mmouse(x, y, 2, 2)
wait(5+random(10))
mouse(x, y, 2, 2, true)
wait(5000+random(1000))
mmouse(596, 658, 2, 2)
wait(500+random(500))
mouse(596, 658, 2, 2, true)
wait(500+random(500))
mmouse(466, 608, 2, 2)
wait(500+random(500))
mouse(466, 608, 2, 2, true)
wait(3000)
end else
wait(15000)
findcolortolerance(x, y, Bettycolor, 252, 208, 761, 543, 5)
mmouse(596, 658, 2, 2)
wait(500+random(500))
mouse(596, 658, 2, 2, true)
wait(500+random(500))
mmouse(466, 608, 2, 2)
wait(500+random(500))
mouse(466, 608, 2, 2, true)
wait(3000)
end;
procedure buyDC;
begin
i:= 0;
repeat
i:= i + 1;
mmouse(626, 291, 2, 2)
wait(100+random(50))
mouse(626, 291, 2, 2, false)
wait(100+random(50))
mmouse(608, 362, 2, 2)
wait(100+random(50))
mouse(608,362, 2, 2, true)
wait(100+random(50))
mmouse(675, 289, 2, 2)
wait(100+random(50))
mouse(675, 289, 2, 2, false)
wait(100+random(50))
mmouse(670, 362, 2, 2)
wait(100+random(50))
mouse(670, 362, 2, 2, true)
until(i >=50);
end;
procedure logout1;
begin
wait(500)
movemousesmooth(494, 192)
wait(500)
clickmouse(494, 192, true)
wait(500)
movemousesmooth(595, 407)
wait(500)
clickmouse(595, 407, true)
wait(500)
end;
procedure Worldselecter1;
begin
movemousesmooth(541, 525)
wait(100)
clickmouse(541, 525, true)
wait(1000)
movemousesmooth(944, 526)
wait(100)
clickmouse(944, 526, true)
wait(1000)
movemousesmooth(488, 550)
wait(100)
clickmouse(488, 550, true)
wait(35000)
end;
procedure Worldselecter2;
begin
movemousesmooth(541, 525)
wait(100)
clickmouse(541, 525, true)
wait(1000)
movemousesmooth(944, 526)
wait(100)
clickmouse(944, 526, true)
wait(1000)
movemousesmooth(1272, 419)
holdmouse(1272, 419, true)
movemousesmooth(1272, 178)
releasemouse(1272, 178, true)
movemousesmooth(488, 550)
wait(100)
clickmouse(488, 550, true)
wait(35000)
end;
procedure Worldselecter3;
begin
movemousesmooth(541, 525)
wait(100)
clickmouse(541, 525, true)
wait(1000)
movemousesmooth(944, 526)
wait(100)
clickmouse(944, 526, true)
wait(1000)
movemousesmooth(1272, 519)
holdmouse(1272, 519, true)
movemousesmooth(1272, 478)
releasemouse(1272, 478, true)
movemousesmooth(488, 550)
wait(100)
clickmouse(488, 550, true)
wait(35000)
end;
begin
repeat
check;
login;
check;
betty;
check;
buyDC;
logout1;
Worldselecter1;
check;
login;
check;
betty;
check;
buyDC;
logout1;
Worldselecter2;
check;
login;
check;
betty;
check;
buyDC;
logout1;
Worldselecter3;
until(false)
end.
i tried ur way bobbo hobbo but is still dusnt work![]()



Reply With Quote










