SCAR Code:
program New;
{.include SRL/SRL.scar}
var X, Y, I: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
procedure DropLogs;
var I : Integer;
begin
if (not(InvFull)) or (not(LoggedIn)) then
Exit;
end else
for I := 2 to 28 do
DropItem(I)
end;
procedure Antiban;
begin
if not(LoggedIn) then
Exit;
case Random(166) of
0, 2, 4, 6, 8, 10: MMouse(285, 323, 25, 25);
1, 3, 5, 7, 9, 11: HoverSkill('Woodcutting',false);
12, 14, 16, 18, 20: Mouse(509, 282, 20, 20, false);
21:
begin
MakeCompass('N');
Wait(233+Random(66));
MakeCompass('W');
Wait(32+Random(644));
MakeCompass('S');
end;
22, 24, 26, 28, 30: MakeCompass('N');
23, 25, 27, 29, 31: MakeCompass('S');
32, 34, 36, 38, 40: MakeCompass('W');
33, 35, 37, 39, 41: MakeCompass('E');
end;
end;
procedure ChopTree;
begin
if FindObj(X, Y, 'illow', 9418400, 35) then
begin
Mouse(X, Y, 5, 5, false);
ChooseOption('hop');
WriteLn('We are now cutting a willow tree!');
WriteLn('Checking for randoms..');
FindNormalRandoms;
repeat
Wait(3222+Random(1421));
AntiBan;
DropLogs;
until(InvFull) or not IsUpText('illow');
end else
case Random(3) of
0:
begin
MakeCompass('N');
ChopTree;
end;
1:
begin
MakeCompass('S');
ChopTree;
end;
2:
begin
MakeCompass('W');
ChopTree;
end;
3:
begin
MakeCompass('E');
ChopTree;
end;
end;
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
ClearDebug;
ChopTree;
end.