Log in

View Full Version : Mouse Moves realy slow?



Mahatna
05-07-2012, 01:21 PM
hey guys when i run this part of my script the mouse moves extremely slow,

Tryed using mouse(X, y, BLAH, Blah) and MMouse(X, Y, Blah, Blah)program new;
{$i srl/srl.simba}


Function AirEssling: Boolean;
Var
TPAA: T2DPointArray; // The Variables of the Functions
TPA: TPointArray;
CTS, I, Retry: Integer;
X, Y: integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16626344, MSX1, MSY1, MSX2, MSY2,7); // Enter the Color and Tolerance Here at the Right place.
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 135, 144); //Put the Width and Heigh here
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA[i]) > 5 Then // Set How Much Points you need for your function to take Action
Begin
repeat
inc(Retry);
MiddleTPAEx(TPAA[i], X, Y);
Mouse(X, Y, 3, 3, 1);
if (IsUpTextMultiCustom(['ir', 'ssling'])) then // Enter The name of Your NPC or Monster
Begin
Result := True;
GetMousePos(X, Y);
Mouse(X, Y, 6, 6, 1);
wait(5000 + random(1000));
Break;
End;
until (Retry = 2);
Break;
end;
end;

begin
AirEssling;
end.

Abu
05-07-2012, 01:23 PM
You forgot to call SetUpSRL in your mainloop :)

Mahatna
05-07-2012, 01:24 PM
You forgot to call SetUpSRL in your mainloop :)

DOH, :duh: Always something stupid lol, thanks alot.

Abu
05-07-2012, 01:26 PM
DOH, :duh: Always something stupid lol, thanks alot.

If you want to make it faster, you can do
MouseSpeed := 30;
That makes it twice as fast as normal ;)