A
ashman
Guest
Hi there i am having trouble getting this to actually chop wood... can anyone please help?
I am obviously very new to all this so be gentle
I am obviously very new to all this so be gentle
Code:
{{
Script By Ash
}}
program New;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Number of loads before Moving onto the next user.
TreeColor = 3364207; //Colour of the tree you wish to chop.
WaitPerTree = 5000; //Time to wait before clicking another tree.
procedure DeclarePlayers;
begin
NumberOfPlayers(1)
Players[0].Name := '******'; //Please enter your Runescape User name.
Players[0].Pass := '******'; //Please enter your Runesacpe Password.
Players[0].Nick := '****'; //Please enter a nick E.G. if your username is donkey enter 'onke'
Players[0].Active := True; //Is this player active?
{Players[1].Name := ''; //Please enter your Runescape User name.
Players[1].Pass := ''; //Please enter your Runesacpe Password.
Players[1].Nick := ''; //Please enter a nick E.G. if your username is donkey enter 'onke'
Players[1].Active := True; //Is this player active? }
{ LoadPlayerArray(Players); }
end;
procedure ChopTree;
var
x,y, MyMark : integer;
begin
if not loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 20) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
Wait(WaitPerTree);
Exit; //Successfull chop so exit.
end;
end;
if TimeFromMark(MyMark) > (2*60*100) then //If no chop within 2 mins then exit
begin
Logout;
Exit;
end;
until false
end;
begin
SetupSRL;
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
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.
