[Rs2][SRL4]G-PowerCutter 1.0!

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!

 

hahaha, nice try. You run it and it logs you out, then motions for you to log back in...tricky

 

Trying Out..

 

hmmm, keep working.

 

umm thats cool but how do i put it into action?