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