Questoin

{.include SRL/SRL.Scar} not {include SRL/SRL.Scar}
anything you want to hold data you declare as variable for example
var LoadsNumB : integer;

You forgot to give this either a procedure or function title

SCAR Code:

begin
      NextPlayer(True);
      LoadsNumB:=0;
      HighestAngle;
      MakeCompass('N');
      Writeln('Switched players');
 end;

You have got RunAwayDirection(Run); but you have speficied what run was. To do this make run a const and say the direction, same as Timetowait.

you had NoBan instead of MyAntiBanSelfMade;

All repeats have an until. and cases have ends as well.

Whats find ent?

Some Advice i added an extra loop so the next player who logged in would cut, you just had them login and thats it. You dont increment loads anywhere. Please use standards in your script. I dont know if this will do what you want it to but it completely compiles so

SCAR Code:

program PowerChopper;
{.include SRL/SRL.Scar}
var LoadsNumB, ents, Loads : integer;


const
TreeColor1 = 1234564564564; //the first color
TreeColor2 = 123456456464; // the second color
TreeColor3 = 5485645645354; // the third color
Wield= True; // True= Wielded, False= in inventory
LoadsToDo= 1; // Number of loads
run = 's';
Timetowait = 100;


procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of total players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Which player starts first?

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'Nick';
  Players[0].Active := True;

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

/////////////////////////////////////
procedure SwitchPlayers;
begin
  NextPlayer(True);
  LoadsNumB:=0;
  HighestAngle;
  MakeCompass('N');
  Writeln('Switched players');
end;
/////////////////////////////////////////
//Ent protection//
procedure FindTheEnt;
begin
  Writeln('Find ents..');
  If(FindEnt(TreeColor1)) or
  (FindEnt(TreeColor2)) or
  (FindEnt(TreeColor3)) Then
  Begin
    Writeln('Found ent running away!');
    RunAwayDirection(Run);
    wait(5000+random(1500));
    RunBack;
    Ents:= Ents + 1
  End;
end;

//ChoppingDownTree//
procedure Chop;
begin
  repeat
    if (FindColorSpiralTolerance(x,y,TreeColor1,MSX1,MSY1 ,MSX2,MSY2,10)) or
    (FindColorSpiralTolerance(x,y,TreeColor2,MSX1,MSY1 ,MSX2,MSY2,10)) or
    (FindColorSpiralTolerance(x,y,TreeColor3,MSX1,MSY1 ,MSX2,MSY2,10)) then MMouse(x,y,2,2)
    If(IsUpTextMulti('Cho','down','p do')) Then
    Mouse(x,y,5,5,True);
    wait(Timetowait*1000+random(1500));
    FindTheEnt;
  until(InvFull);
end;

//Drop logs//
procedure DropTheLogs;
begin
  If(Wield = True) Then DropTo(1,28);
  If(Wield = False) Then DropTo(2,28);
End;

 Procedure ProgressReport;
begin
  ClearDebug;
  Writeln('PowerCutterProgressReport');
  Writeln('|   Ran for '+TimeRunning);
  Writeln('|   Attempted '+IntToStr(Attempts)+' Times');
  Writeln('\\-----------------------------------//');
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

procedure MyAntiBanSelfMade;
var h : integer;
begin
  for h := 1 to 10 do
  begin
  case Random(10) of
  1: RotateEvery(1+random(2));
  2: RandomChatEvery(6+random(4));
  3: RandomRClickEvery(3+random(3));
  4: LeaveScreenEvery(1+random(2));
  5: AntiBan;
  6: PickUpMouse;
  7: TypeSend('Wc lvs? Mines 70 hehe');
  8: AntiBan;
  9: begin
       HoverSkill('Woodcutting',true);
       wait(3000+random(2000));
       GameTab(4)
     end;
  10: SleepAndMoveMouse(800000+random(200000));
  end;
 End;
end;



//mainloop//
begin
  Setupsrl;
  Declareplayers;
  Wait(3000);
  If(Not(Loggedin)) then LoginPlayer;
  PerfectNorth;
  setChat('hide',1);
  setChat('friends',2);
  setChat('off',3);
  ActivateClient;
  repeat
    repeat
      repeat
        Chop;
        FindRandoms;
        MyAntiBanSelfMade;
      until(InvFull)
      DropTheLogs;
      FindRandoms;
      MyAntiBanSelfMade;
    Until(Loads = LoadsToDo)
    Logout;
    NextPlayer(True);
  Until (false);
end.