SRL Archive - Help

Mouse Moves realy slow?


Mahatna

2012-05-07 09:21:08

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

2012-05-07 09:23:21

You forgot to call SetUpSRL in your mainloop :)

Mahatna

2012-05-07 09:24:28

From: abu_jwka
You forgot to call SetUpSRL in your mainloop :)


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

Abu

2012-05-07 09:26:13

From: Mahatna
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 ;)