Any Tips are Welcome I Would Appreciate A Tip So It Does better chopping
Here is the script so u can look at it And tell what i should change
[ If You see any Errors tell me cause i got some errors too if you see things who maybe does one of of that error Tell me]
Here is the script
SCAR Code:
program FagetChopperHopperDropper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
// FagetHax0r//
//Present you//
//FagetChopperDropperhopper//
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
SRLID := ''; // enter or your computer will shut down :). joke.
SRLPassword := ''; // enter your password
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
End;
Begin
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 letters of your Username
Players[0].Strings[0] := '0000'; // bank pin
Players[0].Strings[1] := 'woodcutting'; //Lamp Skill
Players[0].Integers[0] := 15; // how many Loads before changing other player
Players[0].Active := True; // are u going to use this player ?
Players[1].Name := ''; // Username
Players[1].Pass := ''; // Password
Players[1].Nick := ''; // 3 Non Capital Letters of you name
Players[1].Strings[0] := '0000'; // Put You Bank pin here if you dont have one keep it like this
Players[1].Strings[1] := 'woodcutting'; //Lamp Skill
Players[1].Integers[0] := 5; //how many Loads before changing other player
Players[1].Active := True // If Youdont use this accound put False there
Players[2].Name := ''; // Username
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // 3 Non Capital letters of you name
Players[2].Strings[0] := '0000'; // You Bank pin here if you dont have one keep it like this
Players[2].Strings[1] := 'woodcutting'; //Lamp Skill
Players[2].Integers[0] := 5; //how many Loads before changing other player
Players[2].Active := True;
Players[3].Name := ''; // Username
Players[3].Pass := ''; // Password
Players[3].Nick := ''; // 3-4 letters of your Username
Players[3].Strings[0] :='0000'; // bank pin
Players[3].Strings[1] := 'woodcutting'; //Lamp Skill
Players[3].Integers[0] := 5;
Players[3].Active := True;
End
procedure Tree;
Begin
If Not LoggedIn Then Exit;
ClickMouse(x,y,true);
End.
Begin
Mouse(x,y,0,0,False);
Wait(500+(Random(150);
ChooseOption ('Hop')
Antiban
Writeln('Found Tree!');
End Else
Writeln('TreeNotFound!');
Antiban;
Antiban;
Antiban;
Until (Invfull)
End
Begin
Chopping
End.
Procedure Antiban;
Begin
If not Loggedin then Exit;
Case Random(30) OF
1: RandomClick;
2: Hoverskill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 +Random(90);
End
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 FindRandoms;
Begin
FindNormalRandoms;
If Findfight then Runaway('N',True,1,15000);
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.
Procedure Proggy;
begin
if not LoggedIn then Exit;
Writeln('---------------------------------');
Writeln('---------------------------------');
Writeln('The script worked for: '+ TimeRunning);
Writeln('The script chopped: '+ IntToStr(LogsChopped)+' logs');
end;
Btw I Just added Antiban And FindFastRandoms