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)
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.