Is this possible?
What's the command?
Thanks in advanced.
Is this possible?
What's the command?
Thanks in advanced.
What do you mean? Give us an example.![]()
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
you can move it at light speed...v (don't see it move though...)
SCAR Code:Var
X, Y, Xr, Yr: Integer;
Begin
X := 100;
Y := 100;
GetMousePos(Xr, Yr);
MoveMouse(X, Y);
ClickMouse(X, Y, True);
MoveMouse(Xr, Yr);
End.
sorry bad standards just removed some things.
Basically so it first checks if the mouse is already positioned on a rock, then i want it to click the mouse WITHOUT moving it, because otherwise i get a little shaking thing, which is really detectable and bot-like.
SCAR Code:Begin
SetUpSRL;
repeat
If IsUpText('ocks') Then
// CLICK MOUSE WITHOUT MOVING IT
FindColorsSpiralTolerance(Cx, Cy, TPA, ClayColor1, MSX1, MSY1, MSX2, MSY2, 10);
ATPA := SplitTPA(TPA, 10);
For I := 0 To High(ATPA) Do
begin
MiddleTPAEX(ATPA[i], Cx, Cy);
MMouse(Cx, Cy, 4, 4);
If IsUpText('ocks') Then
Begin
Mouse(Cx, Cy, 0, 0, True);
Result := True;
wait(5000 +random(3000))
Break;
end else
WriteLn('Could not find Clay.');
end;
until false
end;
Guess the only way is..
SCAR Code:program New;
var
x, y : Integer;
begin
HoldMouse(x, y, true)
wait(5 +random(20))
ReleaseMouse(x, y, true)
wait(5 +random(20))
end.
Dont' double post, use the edit button instead.
Do like this:
SCAR Code:if FindWhateverYouWantTo then
begin
MMouse(X, Y, 15, 15); // 15, 15, are X and Y randoms.
Wait(150 + Random(175));
If IsUpText('sheep') then
begin
GetMousePos(X, Y); // <-- !!!111 Gets the position of the mouse.
Mouse(X, Y, 0, 0, True); // 0 randomness. :)
end;
end;
Example. Understand?
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
There are currently 1 users browsing this thread. (0 members and 1 guests)