SCAR Code:
procedure FindClerk;
begin
MarkTime(Mark);
i := 0;
writeln('finding clerk');
MouseSpeed := 10;
if (not (LoggedIn)) then Exit;
if (FindObj(x, y, 'hop', ClerkColor, 5)) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('rade');
[B] if (FindColor(x, y, BC, 194, 1113, 197, 120)) then[/B]
begin
MMouse(x, y, 0, 0);
if IsUpTextMultiCustom(['uck', 'ket', 'cke']) then
begin
repeat
Mouse(x, y, 0, 0, False);
Wait(250 + random(250));
if (FindBitmap(Buy10, x, y)) then Mouse(X, Y, 10, 1, true);
Wait(500 + random(500));
until ExistsItem(27) or (TimeFromMark(Mark) > 120000);
repeat
CloseWindow;
wait(100 + random(100));
until (not (ShopScreen));
i := i + 27;
if not (ShopScreen) then
begin
FindClerk;
end else
if (FindObjCustom(x, y, ['eep', 'ssi'], [2046549, 2900290], 10)) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('rade');
if (FindColor(x, y, BC, 194, 1113, 197, 120)) then
begin
MMouse(x, y, 0, 0);
if IsUpTextMultiCustom(['uck', 'ket', 'cke']) then
begin
repeat
Mouse(x, y, 0, 0, False);
Wait(250 + random(250));
if (FindBitmap(Buy10, x, y)) then Mouse(X, Y, 10, 1, true);
Wait(500 + random(500));
until ExistsItem(27) or (TimeFromMark(Mark) > 120000);
repeat
CloseWindow;
wait(100 + random(100));
until (not (ShopScreen));
i := i + 27;
if not (ShopScreen) then
begin
FindClerk;
end else
begin
LogOut;
TerminateScript;
end;
end;
end;
end;
end;
end;
end;
end;