Ok the syntax error was because their wasnt numbers in the const
Solution const TreeColor= 00;//Tree Color
You then got a Duplicate identifier 'PLAYERS'
SCAR Code:
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;//Dont change, only one player anyway.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='josh rpg313';//RS2 username
Players[0].Pass :='josh456';//Your character's password
Players[0].Nick :='shrp';//3-4 or your character's username
Players[0].Active :=True;//Is He/She active?True or False.
End;
than you got expected 'BEGIN', inoticed you had a login procedure, scraped it.
You than got Duplicate identifier 'ROTATEEVERY' i noticed you didnt call it so i scraped it
Once again another begin
SCAR Code:
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = True) then
begin
RunAwayDirection('S');
Wait(10000+random(3000));
end;
end;
finished repaired verison, 11 errors fixed. remeber all procedures need a begin and an end
SCAR Code:
program TreeChopper;
{===================================}
{ Macho TreeChopper }
{ -By: Macho Man67 }
{===================================}
{ Setup }
{ 1) Set Client Window }
{ 2) Set Tree Colors }
{ 3) Have your axe unwielded first }
{ slot }
{ 4) Start logged in/out }
{===================================}
{ Comments }
{ This is my first script so it's }
{ going to be buggy. Please post }
{ comments or suggestions on my }
{ thread. }
{===================================}
{ Credits: }
{-SRL Community for SRL }
{-WhoCares357 for his tutorial }
{-JAD for his tutorial(s) }
{-Stupid3ooo for his procedure }
{===================================}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
{==============Setup================}
const TreeColor= 00;//Tree Color
{========End=Of=Setup===============}
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;//Dont change, only one player anyway.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='josh rpg313';//RS2 username
Players[0].Pass :='josh456';//Your character's password
Players[0].Nick :='shrp';//3-4 or your character's username
Players[0].Active :=True;//Is He/She active?True or False.
End;
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = True) then
begin
RunAwayDirection('S');
Wait(10000+random(3000));
end;
end;
procedure MoreRandoms;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Woodcutting', False)
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
9: BoredHuman;
10: PickUpMouse;
end;
end;
procedure TreeFinder;
begin
repeat
if(FindColor(x,y,Treecolor,MSX1,MSY1,MSX2,MSY2))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(255));
AntiRandoms;
Wait(100+random(50));
MoreRandoms;
until(InvFull);
end;
procedure DropMyLogs;
begin
GameTab(4);
DropItem(2-28);
Wait(1000+random(200));
end;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
repeat
TreeFinder;
DropMyLogs;
until(false)
end.