I would like to say that this is my first script!
THis just cut some logs and then drop them..
Happy cheating..Please post comments and feedback!
[The script!]
program AutoWc;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
TreeColor = 0; //Fill in the treecolor here.
WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
procedure DeclarePlayers;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name := ''; //Ur username on Rs
Players[0].Pass := ''; //Password of the username
Players[0].Nick := ''; //2-4 Letters of ur Username (Rs Username)
Players[0].Active := True; //Dont change this
Players[1].Name := ''; //Same
Players[1].Pass := ''; //Same
Players[1].Nick := ''; //Same
Players[1].Active := True; //Dont change this
end;
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, 0, 0, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree chop - if we had one
Wait(WaitPerTree);
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
Procedure AntiRandoms;
begin
FindNormalRandoms;
end;
begin
SetupSRL;
Declareplayers;;
if LoggedIn then Logout;
LoginPlayer;
Antirandoms;
repeat
ChopTree;
if InvFull then
begin
DropToPosition(2, 28);
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.
[End of script!]
Please post any ideas to improve!
THis just cut some logs and then drop them..
Happy cheating..Please post comments and feedback!
[The script!]
program AutoWc;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
TreeColor = 0; //Fill in the treecolor here.
WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
procedure DeclarePlayers;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name := ''; //Ur username on Rs
Players[0].Pass := ''; //Password of the username
Players[0].Nick := ''; //2-4 Letters of ur Username (Rs Username)
Players[0].Active := True; //Dont change this
Players[1].Name := ''; //Same
Players[1].Pass := ''; //Same
Players[1].Nick := ''; //Same
Players[1].Active := True; //Dont change this
end;
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, 0, 0, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree chop - if we had one
Wait(WaitPerTree);
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
Procedure AntiRandoms;
begin
FindNormalRandoms;
end;
begin
SetupSRL;
Declareplayers;;
if LoggedIn then Logout;
LoginPlayer;
Antirandoms;
repeat
ChopTree;
if InvFull then
begin
DropToPosition(2, 28);
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.
[End of script!]
Please post any ideas to improve!
