I keep getting the same error when i try to compile my script. what do i need to fix?
Line 95: [Error] (16085:1): Identifier expected in script
SCAR Code:
program WillowCutter;
{.include SRL/SRL.scar}
const
Loads = 7;//amount of loads to do before switching players
Version = '.1';
RunDirection = ('E');
var
Counter1 : integer;
C1, C2, C3 : integer;
x,y : integer;
procedure Declareplayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure Setup;
begin
ActivateClient;
ChatsOff;
HighestAngle;
MakeCompass('N');
end;
procedure ToSpot;
begin
MakeCompass('N');
RadialWalk(FindRockColor,190,150,60,3,3);
FindSymbol(x,y,'fish');
Mouse(x,y,3,3,true);
FFlag (0);
end;
procedure ToBank;
begin
MakeCompass('N');
RadialWalk(FindRockColor,0,90,50,3,3);
If FindSymbol(x,y,'bank')Then
begin
Mouse(x,y,3,3,true);
Flag;
end;
end;
Procedure Bank;
begin
MakeCompass('E');
OpenBankQuiet('db');
Flag;
wait(500 + random(500));
FixBank;
if(Findobj(x, y,'ogs',2183514,9))then
begin
Deposit(2, 28, 2);
CloseBank;
MakeCompass ('N');
C1 := C1 + 1;
end;
procedure ChopChop; //This is the line
begin
repeat
If Not Loggedin Then Break;
If Findobj(x,y,'hop',15780016,9)then
begin
Mouse(x,y,3,3,True);
FFlag ( 0 );
end;
Until(invfull);
end;
begin
SetupSRL;
ToSpot;
ChopChop;
ToBank;
Bank;
end.