program PowerChopper;
{.include SRL/SRL.scar}
================================================== ======================
////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
//////////////////I. Use with Scar 3.11 and SRL 4\\\\\\\\\\\\\\\\\\\\\\|
//////////////////II. Low Detail \\\\\\\\\\\\\\\\\\\\\|
//////////////////III. Setup on the setup lines \\\\\\\\\\\\\\\\\\\\\|
////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
================================================== ======================
const
LoadsPerPlayer = 100 //Amount of loads per player
TreeColor = 865582; //Colour of tree leaves on the tree you want to cut.
AxeEquipped = False //If axe is equipped, change to true.
WaitPerTree = 5000;
procedure DeclarePlayers;
begin
NumberOfPlayers(2);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
CurrentPlayer := 0;
end;
////////////////////////////DO NOT TOUCH\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 30) then
begin
Mouse(x, y, 1, 1, False);
if ChooseOption('ree') then
begin
Wait(WaitPerTree);
Exit;
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 1000) then
begin
Logout;
Exit;
end;
until false
end;
begin
SetupSRL;
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
repeat
ChopTree;
if InvFull then
begin
if (AxeInInventory) then DropToPosition(2, 28);
if (not(AxeInInventory) then DropAll;
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
end.