Here is my script:
SCAR Code:
program AutoWillowcutter;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}
Var
x, y, i, Dropped : Integer;
Const
WieldAxe = 'False'; //Are you weilding an axe?
Procedure AntiBan;
RandomCompass : TStringArray;
Begin
RandomCompass := ['E', 'S', 'W'];
MakeCompass(RandomCompass);
Wait(2500 + Random(1000));
MakeCompass('N');
Case Random(50) Of
0: BoredHuman;
1: RandomMovement;
2: PickUpMouse;
3,4: HoverSkill('random', False);
5: MMouse(Random(X), Random(Y), 0, 0);
End;
End;
Procedure Cutter;
Var
WillowColors : Array [0..4] of Integer;
Begin
WillowColors[0] := 3163964
WillowColors[1] := 4025190
WillowColors[2] := 4021327
WillowColors[3] := 4286041
WillowColors[4] := 3299411
Repeat
For i := 0 To 4 Do
If FindObj(x, y, 'illo', WillowColors[i], 30) Then
Begin
Mouse(x, y, 2, 3, True);
Wait(5000 + Random(2500));
End;
AntiBan;
Until(InvFull);
End;
Procedure Dropper;
Begin
case WieldAxe of
'True' : Begin
For i := 1 to 28 Do
Begin
DropItem(i);
inc(Dropped);
End;
End;
'False' : Begin
For i := 2 to 28 Do
Begin
DropItem(i);
inc(Dropped);
End;
End;
End;
End;
Procedure MainLoop;
Begin
SetUpSRL;
ActivateClient;
SetAngle(True);
SetRun(True);
Repeat
Cutter;
If InvFull Then
Begin
Dropper;
End;
Until (not LoggedIn);
if (not LoggedIn) then
Begin
Exit;
End;
End;
Begin
MainLoop;
End.
Here is the error:
Code:
Line 12: [Error] (16960:1): 'BEGIN' expected in script
The code says that I am missing a, 'Begin'. I do not see where though.