SCAR Code:
Procedure CutWillows;
Var Failed, Clr: Integer;
begin
if not(loggedin) then
exit;
if (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
repeat
AntiBan;
AntiRandoms;
FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])
GetMousePos(x,y);
Wait(50 + random(150));
if (random(20) = 5) then
begin
mouse(x, y, 6, 6, false);
Wait(50 + random(150));
ChooseOption('hop');
end else
begin
mouse(x, y, 6, 6, true);
end;
Clr := GetColor(x, y);
while Clr = GetColor(x, y) do
Wait(100 + Random(100));
if not (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
FWillow;
AntiBan;
if not (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
repeat
Inc(Failed);
AntiBan;
Wait(5000 + random(5000));
until (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) or (Failed = 5);
until not (LoggedIn) or (InvFull);
end;
any idears and help would be great thanks