Ive Finally finished my auto woodcutter and dropper but i cant really test it.
It runs very slow but i dont know if it works. It logs me in then crashes on rs.
Please can some one test it for me correct any errors and find my a anti lag procedure thank you. p.s i dont know if my Wc part and drop is working after the login DeclarePlayers; Area.
SCAR Code:program FirstScript;
{.include SRL/SRL.scar}
var
i,x,y:Integer;
const
TreeColor = 606775;//the color of the tree
Procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := '---------------'; //UserName
Players[0].Pass := '---------------'; //Password
Players[0].Nick := '---------------'; //Your Nickname
Players[0].Active := True; //Active
Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Signiture;
begin
writeln(''); // sig (haven't finished yet)
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
end;
procedure Login; //Login
begin
if (not(LoggedIn)) then //If not logged in then logs in player
LoginPlayer;
end;
procedure CutTree; //Cuts the Trees
begin
i:= 0;
repeat //repeats
i:=i + 1;
if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
begin
Wait(1000 +random(500))
Mouse(x, y, 3, 3, True); // Moves mouse
Wait(5000 +random(500));
end;
until(InvFull);
end;
procedure Drop; //Drops logs
begin
DropAll; // Drops Everything
end;
begin
SetupSRl; // setup srl
Signiture; // setup sig
DeclarePlayers; // Declare Players
if (not(LoggedIn)) then Login;
repeat // Repeat these functions
CutTree; // Cut
Drop; // Drop
until(false) // Until stoped
end. // Finished



Reply With Quote





