Hello i get this error in my script and i dont know to fix it...
Line 38: [Error] (14788:25): Close round expected in script C:\Program Files\SCAR 2.03\Scripts\PieBoner.scar
Here is the script
SCAR Code:
program PieBoner;
{.include SRL/SRL.scar}
//Stand near a place with some monsters, that are not high level.
//Don't have anything with you, maybe just like a scimmy.
Const
BoneColor = 14342878;//The color of the bones dont change.
BonesToBury = 10;//How many bones you want to bury.
MonsterColor = 0;//The color of the monster.
Monster = 'eag';//3 letters of the monster's name you want to fight
NumberOfUsers = 1;//How many players you are using?
StartPlayer = 0;//What player you start with?
Var
BonesDone: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := False;
Players[0].Boolean2 := False;
Players[0].String1 := '';
Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;
Procedure Kill;
begin
repeat
FindColor(x,y,MonsterColor,0,0,450,450);
MMouse(x,y,1,1);
Until (IsUpText(Monster);
if (IsUpText(Monster)then
Mouse(x,y,2,2,false);
Wait(1000+random(450));
ChooseOption('ack');
end;
Procedure FindBones;
begin
repeat
FindColor(x,y,BoneColor,0,0,450,450);
MMouse(x,y,1,1);
Until (IsUpText('one');
if (IsUpText('one')then
Mouse(x,y,1,1,false);
Wait(1000+random(300));
ChooseOption(x,y,'one');
end;
Procedure Bury;
begin
Mouse(583,225,2,2,true);
Wait(1000+random(400));
WriteLn('The script has buried a bone!W00t?');
end;
begin
SetupSRL;
DeclarePlayers;
If Not LoggedIn Then
LogIn
repeat
Kill;
FindBones;
Bury;
end.
Can someone fix that for me please?And also could someone help me with: if not logged in then login.Thanks -Pie.