SCAR Code:
program New;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10;
procedure DeclarePlayers;
begin
SetupPlayers;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
LoadPlayerArray;
end;
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, 0,0, False);
if ChooseOption ('hop') then
begin
Wait (WaitPerTree)
Exit;
end;
end;
if TimeFromMark (MyMark) > (2 * 60 * 100) then
begin
Logout
Exit;
end;
until false
end;
The guy who made the tutorial was great!
I learned a lot from it. Well heres my first script.