Questoin

[supersayian2224]

For some reason when I add {.include SRL/SRL/Skill/Woodcutting.scar} and then when i say complile, it always goes to Woodcutting.scar help?

[me_ntal]

{.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

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

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.

[vinny13]

Sorry but... You spelt 'question' wrong lol...

I'm such a noob lmao