SCAR Code:
program UsingTPA;
{.include SRL/SRL.scar}
function FindWillows : Boolean;
var
WX, WY, x, y, i, WillowColor : Integer;
WillowPoints : TPointArray;
Willow2D : T2DPointArray;
WillowPoint : TPoint;
begin
if not LoggedIn then Exit;
x := MSCX
y := MSCY
FindColorsSpiralTolerance(x, y, WillowPoints, 16711935, MSX1, MSY1, MSX2, MSY2, 10);
Willow2D := TPAtoATPAEx(WillowPoints, 10, 10);
for I := 0 to High(Willow2d) -1 do
begin
if not LoggedIn then Exit;
begin
Break;
end;
WillowPoint := MiddleTPA(Willow2D[i]);
WX := WillowPoint.X;
WY := WillowPoint.Y;
MMouse(WX, WY, 1, 1);
Wait(530 + Random(890));
if IsUpText('hop') then
begin
GetMousePos(x, y)
WillowColor := GetColor(WX, WY);
Result := True;
Break;
Exit;
end else
Result := False;
Writeln('False');
Exit;
end;
end;
procedure Runescape;
begin
if FindWillows then
begin
Writeln('Thanks to the dude who made that TPA guide.');
end;
end;
begin
ActivateClient;
Wait(2000);
Runescape;
end.
It compiles...
Successfully compiled (3901 ms)
Successfully executed
But it just stands still... Then the script executes. So i tried other stuff but it ended up the same thing... Like this...
SCAR Code:
program UsingTPA;
{.include SRL/SRL.scar}
function FindWillows : Boolean;
var
WX, WY, x, y, i : Integer;
WillowPoints : TPointArray;
Willow2D : T2DPointArray;
begin
if not LoggedIn then Exit;
FindColorsSpiralTolerance(x, y, WillowPoints, 3363417, MSX1, MSY1, MSX2, MSY2, 10);
begin
Willow2D := SplitTPA(WillowPoints, 10);
for i := 0 to High(Willow2D) do
begin
Break;
end;
if MiddleTPAEX(Willow2D[i], WX, WY) then
MMouse(x, y, 1, 1);
if IsUpText('illow') then
begin
Mouse(x, y, 1, 1, True);
Result := True;
end else
Result := False;
Writeln('Failure');
Exit;
end;
end;
Begin
if FindWillows then
Writeln('Chopping Willows');
end.
procedure Runescape;
begin
if FindWillows then
begin
Writeln('f');
end;
end;
begin
Runescape;
end.
Does the same thing, please help me. This function is the only thing i need to make my First Script the best!