[RS2][SLR]SmAcKmE Power Wcer[SRL][RS2]

Ok... before you say anything this is my first script! and it works very well. It uses 4 players it chops one load and then switches players. This is good for training batches of autoers. Pleas setcolors yourself use high detail and start loged out. I don't have much of a progy report.. it just says time running so pleas post the time running and tell me any errors you find well useing not in script.

Working Ent
Anti Ban
Good Tree Finder
Choping Needs Some Work
Randoms Not 100% Sure
Axe Finding Not 100% Sure

Code:

Program SmAcKmEPowerWcer;
{.Include SRL/SRL.scar}
{.Include SRL/SRL/Skill/Woodcutting.scar}

Var
Cx,Cy: Integer;

Const //Set Colors Yourself!

TreeName = 'Willow';
TreeColor1 = 2179128;
TreeColor2 = 6719648;

Procedure DeclarePlayers; //!!!!!!!!SETUP THE FOLLOWING!!!!!!!!!
Begin
     HowManyPlayers  :=4;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='yourname';
     Players[0].Pass :='yourpass';
     Players[0].Nick :='urna';
     Players[0].Loc  :='yourloc';
     Players[0].Skill:='yourskill';
     Players[0].Active:=True;

     Players[1].Name :='yourname';
     Players[1].Pass :='yourpass';
     Players[1].Nick :='urna';
     Players[1].Loc  :='yourloc';
     Players[1].Skill:='yourskill';
     Players[1].Active:=True;

     Players[2].Name :='yourname';
     Players[2].Pass :='yourpass';
     Players[2].Nick :='urna';
     Players[2].Loc  :='yourloc';
     Players[2].Skill:='yourskill';
     Players[2].Active:=True;

     Players[3].Name :='yourname';
     Players[3].Pass :='yourpass';
     Players[3].Nick :='urna';
     Players[3].Loc  :='yourloc';
     Players[3].Skill:='yourskill';
     Players[3].Active:=True;
End;

Procedure MainSetUp; //Do Not Tuch
Begin
 SetUpSRL;
 Wait (500);
 DeclarePlayers;
 Wait (100);
 LoginPlayer;
 Writeln ('Main SetUp Finished. Starting In Game SetUp....')
End;

Procedure InGameSetUp; //Do Not Tuch
Begin
 HighestAngle;
 MakeCompass('W');
 FindAxeHeadColor;
 Writeln ('Finished InGame SetUp Starting Script.....')
End;

Procedure CheckForTree; //Will Check To See If Colors Are Correct
Begin
  If (FindObj(cx,cy,TreeName,TreeColor1,5)) Or (FindObj(cx,cy,TreeName,TreeColor2,5)) Then
Begin
End;
End;

Procedure Chop; //Choping Procedure
Begin
  If (FindObj(cx,cy,TreeName,TreeColor1,5)) Or (FindObj(cx,cy,TreeName,TreeColor2,5)) Then
 Mouse (cx,cy,2,1,True);
 Wait (4500+Random (2600));
End;

Procedure MyAntiBan; //My Small Anti Ban
Begin
 x:=0+Random (30)
Begin
  If (x=1) Then
  GameTab(3);
  If (x=2) Then
  Wait (500+Random (50));
  If (x=12) Then
  PickUpMouse;
  If (x=5) Then
  AntiBan
  If (x=27) Then
  GameTab(3)
  If (x=18) Then
  HoverSkill('WoodCutting',False)
  If (x=27) Then
  GameTab(7)
  If (x=30) Then
  BoredHuman;
  If (x=17) Then
  BoredEvery(4)
End;
End;

Begin
 MainSetUp;
 Wait (1000+Random (200));
 InGameSetUp;
 Wait (500+Random (500));
 CheckForTree;
 Wait (1000+Random (400));
Begin
 Repeat

  If Not (LoggedIn) Then Break;
   Repeat
 Chop;
 FindEnt(TreeColor1);
 FindNormalRandoms;
 FindHead;
 MyAntiBan;
    Until (InvFull=True)
  If (InvFull=True) Then
 DropAllLogs;
 Wait (400+Random (200))
 Writeln (''+TimeRunning)
 NextPlayer(true);
   Until (False)
End;
End.

 

Nice try keep it up.
Btw this procedure:

Code:

CheckForTree;

doesn't do anything...

 

you know i dont really know....... lol it was at one point spose to check and make sure there was trees but..... idk lol