SimpleChopper
Normal Tree powerchopper
Code:program WoodCutter;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
Procedure DeclarePlayers;
begin
HowManyPlayers :=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
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;
end;
procedure FindWcRandoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);
end;
procedure FindTree;
var x,y,prevcount,a:integer;
begin
prevcount:=invcount;
if FindObj(X,y,'hop',3760254,10) then
Mouse(x,y,10,5,true);
a:=0;
repeat
wait(2000);
a:=a+1;
if a=3 then break;
until(invcount>prevcount)
end;
begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
FindTree;
FindWcRandoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.
