Title says it all... I need someone to test this script to see if it works or/and fix any problems or things to change in the script. Heres my script


SCAR Code:
{=========================================================================]
[ Rora tree chopper by your truly:                                        ]
[               ______    ________   ______      _                        ]
[              /| __  |  /| ___   | /| __  |    //\                       ]
[              || |_| |  || |  |  | || |_| |   //  \                      ]
[              ||    /   || |  |  | ||    /   // /\ \                     ]
[              || |\ \   || |  |  | || |\ \  // /__\ \                    ]
[              || | \ \  || |__|  | || | \ \// /____\ \                   ]
[              \|_|  \_\ \|_______| \|_|  \_/_/      \_\                  ]
[             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  ]                                                                          ]
[                             ___________                                 ]
[                             | Details |                                 ]
[      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
[      | NAME        : Rora's Power Chopper                            |  ]
[      | WRITER      : Rora                                            |  ]
[      | CATEGORY    : Woodcutting                                     |  ]
[      | DESCRIPTION : Cuts Normal Trees and Drops Them                |  ]
[      | USAGE       : To Raise Your WoodCutting Level                 |  ]
[      | Note.       : Anti random, anti ban, finds ents, proggie + sig|  ]
[      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ * USE Runescape with Low Detail, Very Bright.                           ]
[ * Set your Screen to 32 bit TRUE color.                                 ]
[ * Position Players In Woodcutting Spots (Lumbridge)                     ]
[ * Set Playernames and Passwords and DeclarePlayers                      ]
[ * Drag Cross Hair Over Client                                           ]
[ * Start script Logged Out / In!                                         ]
[ * Set the 'DidYouReadTheInstructions' to 'yes'                          ]
[ * Read the green comments before you press play.                        ]
{=========================================================================}


////////////////////////////////////////////////////////////////////////////////
////////////////////////////PROGRAM NAME, VAR'S AND CONST'S/////////////////////
////////////////////////////////////////////////////////////////////////////////

Program PowerWoodCutter;
{.include SRL/SRL.scar}

Var
  DidRandomHappen: Boolean;
  x, y, EncounteredDeath, CountLoads: integer;


Const

  Loads = 10;
  DidYouReadInstructions = 'no';// did you read the instuctions up there ^^ ?

  TreeColor1 = 1463619;
  TreeColor2 = 1125670;
  TreeColor3 = 1516323;
  TreeColor4 = 2058335;
  TreeColor5 = 1718832;
  TreeColor6 = 3108192;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DELCARE PLAYERS////////////////////////////
////////////////////////////////////////////////////////////////////////////////


Procedure DeclarePlayers;
Begin
  HowManyPlayers := 2; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

  //set all user names, passwords and nicks correctly please.

  Players[0].Name := 'skills r me5';
  Players[0].Pass := '';
  Players[0].Nick := 'ills';
  Players[0].Active := True;

  Players[1].Name := 'Yo the skl';
  Players[1].Pass := '';
  Players[1].Nick := 'the';
  Players[1].Active := True;
 
  Writeln('Using '+ IntToStr(HowManyPlayers) +' Players.');
 
End;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////SIGNATURE/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure Signature;
Begin
  ClearDebug;
  writeln('Rora tree chopper by your truly:');
  writeln(' ______   ________   ______        _ ');
  writeln('/|  __ | /| ___   | /|  __ |      //\');
  writeln('|| |__|| || |  |  | || |__||     //  \');
  writeln('||    /  || |  |  | ||    /     // /\ \');
  writeln('|| |\ \  || |  |  | || |\ \    // /__\ \');
  writeln('|| | \ \ || |__|  | || | \ \  // /____\ \');
  writeln('||_|  \_\\|_______| ||_|  \_\|/_/      \_\');
  wait(3000+random(750));
End;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI RANDOM//////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure FindRandoms;
Begin
  If (Not (LoggedIn)) Then LoginPlayer;
  If FindNormalRandoms Then DidRandomHappen := True;
  If FindFight Then
  Begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
    EncounteredDeath:=EncounteredDeath+1;
  End;
End;

Procedure RunFromRandoms;
Begin
   If(FindnpcChattext('ontinue')) Then
   RunTo('N', True);
   Wait(15000 + random(5000));
   RunBack;
 End;



////////////////////////////////////////////////////////////////////////////////
//////////////////////////////Did you read the instructions?////////////////////
////////////////////////////////////////////////////////////////////////////////

Function InstructionReader: boolean;
Begin
  If DidYouReadInstructions = 'no' Then
  Begin
    result := True;
    Writeln('You DID NOT Read The Instructions, Please Read!');
    TerminateScript;
  End;
End;


////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBanMe;
Begin
  If (Not (LoggedIn)) Then LoginPLayer;
  If (InChat('hello')) Or (InChat('Hi')) Or (InChat('hey')) Or (InChat('yo')) Then
  Case Random(5) Of
    0: TypeSend('hello');
    1: TypeSend('hey');
    2: TypeSend('yo');
    3: TypeSend('Hello, how are you?');
    4: TypeSend('ummm hi...');
  End;
  If (InChat('noob')) Or (InChat('nooblet')) Then
  Case Random(6) Of
    0: TypeSend('you the noob');
    1: TypeSend('your face is a noob.');
    2: TypeSend('look in the mirror noob.');
    3: TypeSend('choob');
    4: TypeSend('you fail.');
    5: TypeSend('well, your garbage.');
  end;
  if (InChat('auto')) or (InChat('autoer')) then
  case Random(5) of
    0: TypeSend('??? i do not do that ???');
    1: TypeSend('you wish');
    2: TypeSend('i never cheated in my life');
    3: TypeSend('go away noob.');
    4: TypeSend('you auto');
  end;
  if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
  case Random(5) of
    0: TypeSend('Lol ok youll get repoted then');
    1: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
    2: TypeSend('ill report u then');
    3: TypeSend('ur loss.. youll see');
    4: TypeSend('ehemm?!?!?!?!');
  end;
  if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
  case Random(5) of
    0: TypeSend('-laughs-');
    1: TypeSend('pretty funny');
    2: TypeSend('ooo');
    3: TypeSend('whats so funny?');
    4: TypeSend('funny...');
  end;
  if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level?')) then
  case Random(5) of
    0: TypeSend('Je suis français.');   //Do you like? :D
    1: TypeSend('Sono Italiano.');
    2: TypeSend('Jeg er Norsk.');
    3: TypeSend('Sou russo.');
    4: TypeSend('Ik ben Nederlands.');
  end;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN 2///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBannage;
begin
  if (not (LoggedIn)) then LoginPLayer;
  case random(30) of
    0: Boredhuman
    1: hoverskill('Random',false)
    2: begin
         RandomRClick;
         clickoption('Cancel',1)
       end;
    3: pickupmouse
    4: begin
          gametab(1+random(11))
          wait(3000+random(1000))
          gametab(4)
       end;
    5:Typesend('ughh')
    6:AlmostLogout;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////Anti Death////////////////////////////////////

procedure AntiDeath;
begin
  if (not (LoggedIn)) then LoginPlayer;
  if FindFight then
  begin
    MakeCompass('N');
    RunTo('N',True);
    EncounteredDeath:=EncounteredDeath+1;
    RunBack;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////Uber Ent////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
begin
  if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
     (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
  begin
    GetMousePos(x, y);
    Mouse(x, y, 5, 5, False);
    if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
    begin
      if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
      begin
        Mouse(MMCX, MMCY, 5, 5, True);
        Writeln('Found ent! Waiting for it to go away');
        Result := True;
        EntsAvoided := EntsAvoided + 1;
      end;
    end else
    ChooseOption('Cancel');
    FindRandoms;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////PROGGY/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure RoraProggy;

Var
  H, M, S, EntCount, DroppedLoads, ChopRate, Chopped, ExpGained : integer;
Begin
  ClearDebug;
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Rora Progress report. Please remember to post proggies/bugs wherever you got this script :)      ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting                                             ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour          ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Dropped '+IntToStr(DroppedLoads)+' loads                                                         ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents                                                          ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Ran Away to Save your life '+IntToStr(EncounteredDeath)+' times.                                 ||');
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||Thanks for using Rora Tree chopper, happy autoing                                                  ||');
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  SRLRandomsReport;
End;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////CHOPPING//////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function ChopIt: Boolean;
var
  TreeColor: Array [0..5] of Integer;
  i: integer;
begin
  TreeColor[0] := TreeColor1;
  TreeColor[1] := TreeColor2;
  TreeColor[2] := TreeColor3;
  TreeColor[3] := TreeColor4;
  TreeColor[4] := TreeColor5;
  TreeColor[5] := TreeColor6;
  repeat
    if (not (LoggedIn)) then LoginPLayer;
    for i := 0 to 5 do
    if FindColorTolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3) then
    begin
      MMouse(x, y, 3, 3);
      if (IsUpText('ree')) then
      begin
        Mouse(x, y, 2, 2, true);
        repeat
          case Random(11) of
            1: typesend('this is boring');
            2: typesend('i cant take any more!!!');
            3: typesend('');
            4: typesend('');
            5: typesend('zzzz...zzzz...');
            6: typesend('This is so not fun');
            7: typesend('when does it end!');
            8: typesend('This is 3 hours straight!!!');
            9: typesend('');
            10: typesend('');
          end;
          if InvFull or FindnpcChattext('ontinue') then Exit;
          if(DidRandomHappen = true) then
          begin
            DidRandomHappen := False;
            Mouse(x, y, 2, 2, true);
          end;
          SleepAndMoveMouse(9671 + random(1709));
          FindRandoms;
          repeat
            if InvFull or FindNPCChattext('ontinue') then Exit;
            if(DidRandomHappen = true) then
            begin
              DidRandomHappen := False;
              Mouse(x, y, 2, 2, true);
            end;
            Wait(750 + Random(250));
            FindRandoms;
          until(invfull)
        until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
        Result := True;
      end;
    end;
  until (InvFull);
end;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DROPPING///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

procedure Dropping;
begin
  if (not (LoggedIn)) then LoginPlayer;
  if InvFull then
  begin
    if InvCount = 28 then
    DropToPosition(2, 28);
    mousespeed:=100;
    wait(1500+random(100));
    CountLoads := CountLoads + 1;
  end;
end;

{/////////NOTE. THIS IS THE PART YOU DONT TOUCH UNLESS YOU ARE A EXPERIENCED SCRIPTER... DON'T COME CRYING TO ME IF IT DOESN'T WORK BECAUSE IT HAS SOME ERROR IN IT.////////}

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////MAIN LOOP/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

begin
  SetupSrl;
  DeclarePlayers;
  Signature;
  repeat
    FindRandoms;
    AntiBanMe;
    RunFromRandoms;
    AntiBannage;
    AntiDeath;
    UberEnt;
    ChopIt;
    Dropping;
  until(CountLoads >= Loads)
  begin
      RoraProggy;
      Writeln('Done!')
      if (not(LoggedIn)) then LoginPlayer;
      begin
        TerminateScript
        Writeln('Thank you for using Roras Power WoodCutter. For Updates go to srl forums!! :)')
      end;
    end;
  end.

Rora...