SmAcKmE Presents SmAcKmE Power Choper V 2.0

Ok... now before you click the back butten let me tell you something... this script works really well so... PLEAS TRY IT! .... ok in this version there is now....

Random Choping
More AntiBan
Able To Choose How Many Loads Per Player
Able To Choose What Tree Each Player Chops
Progress Report (Borrowed From FourSight)
Dose Most Randoms (I Think So Not Sure Don't Get Many Randoms)
Will Run Away From A Fight (Unless Droping Logs At That Moment)
If Someone Trades You Script Trades And Declines Saying Something Like "Dont Want To Trade"
Smooth Player Switching (When It Logs Out And Sits Just Leave It Takes A Lil Time To Login The Next Player (About 10 Secs) )
New Stupid Procedure For Anti Ban (Very Weird But It Works)
You Shouldnt Have To Set Colors Yourself The Colors I Use Are Found In All Trees
Looks Alot Less Boty (Jagex Says There Detection System Is Good But Really Only 23% Of Autoers Get Banned When There Reported Or Detetion System Picks Them Up)

Set Each Players Tree To Chop And Start Loged Out On High Detail
Well Here It Is

Code:

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

Var
Cx,Cy,R,T,D,MaxLoads,Re,TotalLogs,TotalXP,l: Integer;

Const
Loads = 2; //This Is Per Player
TreeColor1 = 2179128; //All Colors Should Work With Any Tree 
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].Ore :='Oak'; //This Is For The Tree To Cut Not An Ore
     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].Ore  :='Tree'; //This Is For The Tree To Cut Not An Ore
     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].Ore  :='Willow'; //This Is For The Tree To Cut Not An Ore
     Players[2].Active:=false;

     Players[3].Name :='yourname';
     Players[3].Pass :='yourpass';
     Players[3].Nick :='urna';
     Players[3].Loc  :='yourloc';
     Players[3].Skill:='yourskill';
     Players[3].Ore  :='Oak'; //This Is For The Tree To Cut Not An Ore
     Players[3].Active:=false;
End;

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

Procedure Report;
Begin
  SRLRandomsReport;
  WriteLn('[>----------------------------------------------------------<]');
  WriteLn('[>Script Time: ' + (TimeRunning) + '')
  WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
  WriteLn('[>----------------------------------------------------------<]');
  WriteLn('Borrowed From Four Could Figure Out How To Make My Own :(');
end;

procedure MyDropAllLogs; //From Includes Put Here To Reduse Lag
var
  rx, ry, m, n: Integer;
begin
  Status('Dropping Logs');
  GameTab(4)
  begin
    for M := 1 to 7 do
    begin
      for n := 1 to 4 do
      begin
        rx := 544 + (n * 42)
          ry := 192 + (m * 36)
          MMouse(rx, ry, 0, 0)
          Wait(100 + Random(100));
        if (IsUpText('Wield')) or
          (IsUpText('Search Bird')) or
          (IsUpText('Use Knife')) or
          (IsUpText('Use Tinder')) then
          Chopped := Chopped - 1;
        if not (IsUpText('Wield')) and
          not (IsUpText('Use Knife')) and
          not (IsUpText('Search Bird')) and
          not (IsUpText('Use Tinder')) then
        begin
          GetMousePos(x, y)
            Mouse(x, y, 5, 5, False);
          Wait(100 + Random(50));
          if (ClickText('Drop', MIX1, MIY1, MIX2, MIY2)) then
          begin
            Wait(150 + Random(210));
          end else
            MMouse(233, 123, 50, 50)
        end;
      end;
    end;
  end;
end;

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

Procedure BeStupid;
Begin
 DoEmote(21)
  SendText2 ('If your happy and you know it clap your hands')
 DoEmote(21)
Re:=0+Random (4);
 If (Re=1) Then
  SendText2 ('Moo Moo');
 If (Re=2) Then
   SendText2 ('Bark Bark');
 If (Re=3) Then
    SendText2 ('I like to eat pie')
 If (Re=4) Then
 DoEmote(5);
 SendText2 ('I never get tired of being stupid...');
  SendText2 ('Eat me eat me i eat you pie pie pei pie!!! woo');
End;

Procedure MyAntiBan; //My Small Anti Ban
Begin
 x:=0+Random (40)
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);
  If (x=29) Then
  RandomEmote;
  If (x=40) Then
  BeStupid;
  If (x=45) Then
  AlmostLogout;
End;
End;

Procedure Rchop; //Random Choping
Begin
r:=1+Random (5);
Begin
 If (r=1) Then
 Mouse (cx,cy,0,0,True);
 If (r=2) Then
 Mouse (cx,cy,0,0,True);
  If (r=3) Then
 Mouse (cx,cy,0,0,True);
  If (r=4) Then
 Mouse (cx,cy,0,0,True);
  If (r=5) Then
Begin
Mouse (cx,cy,0,0,False);
ChooseOption (x,y,'hop');
End;
End;
End;

Procedure DropLogs; //Droping Procedure
Begin
L:=L+ 1
MyDropAllLogs;
TotalLogs:=TotalLogs+27
Report;
End;

Procedure Chop; //Choping Procedure
Begin
  If (FindObj(cx,cy,Players[CurrentPlayer].Ore,TreeColor1,5)) Or (FindObj(cx,cy,Players[CurrentPlayer].Ore,TreeColor2,5)) Then
  Rchop;
 MyAntiBan;
 Wait (6000+Random (2800));
End;

Procedure FightCheck; //Fight Checker
Begin
If (FindFight=True) Then
Begin
RunAwayDirection('E');
Wait (500+Random (300));
RunBack;
End;
End;

Procedure CheckTrade; //Trade Checker
Begin
If (FindTrade=True) Then
Begin
t:=1+Random (5);
If (t=1) Then
Typesend ('I dont want to trade')
If (t=2) Then
Typesend ('Not gona trade')
If (t=3) Then
Typesend ('Im adding you to my ignore list')
If (t=4) Then
Typesend ('no noob')
If (t=5) Then
Typesend ('No')

End;
End;

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

  If Not (LoggedIn) Then Break;
   Repeat

 Chop;
 FindEnt(TreeColor1);
 FindHead;
 FightCheck;
 CheckTrade;
  If (InvFull=True) Then
DropLogs;
Until (L=Loads);
 Wait (400+Random (200));
L:=0
 Report;
 NextPlayer(true);
 FindAxeHeadColor;
   Until (False);
End;
End.

 

Try NOT making 3 threads... It looks ok... What is BeStupid for?

 

lol, yeah 3 threads?! It seems to come along quite quickly.
What most scripters do is they edit the first post