SCAR help

Line 10: [Error] (10:1): Identifier expected in script

it does that to every thing i try to work with lol tell me wuts going on

 

Post the script

 

{
BumFighter SRL v1.0.0

Program in your settings on line 18.

Universal AutoFighter, with Anti-Ban and Anti-Randoms.

- Enjoy
}
program BFSRL;
var
col1,col2,col3,coltol,attacktime,antibanmins,killscripthour,size: integer;
colmonname,rawmenutext: string;
{.Include srl/srl.scar}

Procedure ScriptSettings;
begin
colmonname:= 'Goblin' //Monster Name
col1:= 878968 //Monster Color 1
col2:= 8041633 //Monster Color 2
col3:= 8229534 //Monster Color 3
size:= 1 //Monster Range (1-5) The area the mouse randomly moves to away from the monster color it returns.
coltol:= 5 //Tolerance of Monster Colors
attacktime:= 4000 //Repeat time for re-attacking Monsters
AntiBanMins:= 1 //Every Minute to do Antibans
KillScriptHour:= 5 //How many hours to kill script
end;

//SRL PROCEDURES AND FUNCTIONS --- >
procedure KillScript(hours: Integer);
begin
if ((TimeFromMark(KillScriptMark) / 1000) / 3600 >= hours) then
begin
WriteLn('Stopping script at ' + IntToStr(hours) + ' hours');
MMouse(Random(500), -10, 0, 0);
TerminateScript;
end;
end;
procedure RotateEvery(mins: Integer);
begin
if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
begin
MarkTime(RotateMark);
SendArrowSilentWait(Random(4), 500 + Random(500));
SendArrowSilentWait(Random(4), 500 + Random(500));
MakeCompass('n');
SendArrowSilentWait(0, 1400 + Random(100));
end;
end;
procedure RandomRClickEvery(mins: Integer);
begin
if ((TimeFromMark(RandomClickMark) / 1000) / 60 >= mins) then
begin
MarkTime(RandomClickMark);
RandomRClick;
end;
end;
function InFight: Boolean;
begin
Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
230, 130, 280, 180))
end;
//SRL PROCEDURES AND FUNCTIONS < ---

Procedure Attackmon;
var
RightOrLeft: Integer;
Begin
RightOrLeft:=Random(2)
If InFight=True Then
Begin
Wait(500+Random(500))
End;
If InFight=False Then
Begin
If FindColorTolerance(x,y,col1,0,0,509,336,coltol) or
FindColorTolerance(x,y,col2,0,0,509,336,coltol) or
FindColorTolerance(x,y,col3,0,0,509,336,coltol) then
Begin
MouseSpeed:=1+random(5)
Case RightOrLeft Of
1:
Begin;
Mouse(x,y,size,size,false)
Wait(300+random(300))
if ChooseOption(x,y,(colmonname))then
Begin
Wait(attacktime+random(2000))
End
if not ChooseOption(x,y,(colmonname))then
Begin
Attackmon;
End;
End;
2:
Begin
Mouse(x,y,1,1,True)
Wait(attacktime+random(2000))
End;
End;
End;
End;
End;

Procedure NoBan;
var
bancheck: integer;
begin
RotateEvery(2)
RandomRClickEvery(4)
KillScript(KillScriptHour)
bancheck:=Random(8)
if BanCheck=3 Then
begin
If FindNormalRandoms=True Then
Begin
SolveTalkingRandom(RawMenuText)
end;
end;
end;

Procedure EnableRun;
Begin
Mouse(675,546,5,5,true)
Wait(500+random(500))
If Not FindColorTolerance(x,y,1974404,617,468,668,516,5) then
begin
Mouse(639,493,5,5,true)
Wait(300+random(300))
end;
End;

Procedure MouseMovements;
var
WhatMouseMovements: Integer;
Begin
WhatMouseMovements:=Random(10)
if WhatMouseMovements=1 then
begin
MMouse(92,130,80,100)
Wait(200+random(200))
end;
if WhatMouseMovements=2 then
begin
MMouse(86,351,75,165)
Wait(200+random(200))
end;
if WhatMouseMovements=3 then
begin
MMouse(321,378,175,175)
Wait(200+random(200))
end;
if WhatMouseMovements=4 then
begin
MMouse(501,210,80,100)
Wait(200+random(200))
end;
if WhatMouseMovements=5 then
begin
MMouse(654,374,10,100)
Wait(200+random(200))
end;
End;

Procedure ClickATab;
var
Whichtab: Integer;
Begin
Wait(200+random(300))
Whichtab:=Random(5)
if Whichtab=1 Then
Begin
Mouse(579,247,10,10,true)
Wait(200+random(200))
End;
if Whichtab=2 Then
Begin
Mouse(541, 246,10,10,true)
Wait(200+random(200))
End;
if Whichtab=3 Then
Begin
Mouse(577,547,10,10,true)
Wait(200+random(200))
End;
if Whichtab=4 Then
Begin
Mouse(709,243,10,10,true)
Wait(200+random(200))
End;
if Whichtab=5 Then
Begin
Mouse(577,249,10,10,true)
Wait(200+random(200))
MMouse(582,316,7,7)
Wait(1500+random(500))
End;
End;

Procedure RandomActionProc;
var
WhatAction: Integer;
begin
WhatAction:=Random(3)
if WhatAction=1 Then
Begin
ClickATab;
Writeln('click a tab')
End;
if WhatAction=2 Then
Begin
MouseMovements;
Writeln('Mouse Movements')
End;
if WhatAction=3 Then
Begin
EnableRun;
Writeln('Enable Run')
End;
end;

Procedure StartScript;
var
RandomAction: Integer;
begin
Attackmon;
NoBan;
Wait(200+Random(200))
RandomAction:=Random(3)
if RandomAction=2 then
begin
RandomActionProc;
end;
end;


begin
SetupSRL;
Repeat
ScriptSettings;
Wait(500+random(100))
StartScript;
Until(false);
end.;
begin
end.

 

you didn't finish the block of code. make sure you have all your beings, ends, repeats, etc etc