I'm trying to make a PowerCutter and keep getting this compiling error. What am I doing wrong?
SCAR Code:
program PowerCutter;
{.include srl/srl.scar}
const
ms1='z0mg tis is boaring!'; //Random Message for AntiBan
ms2='*sighs'; //Random Message for AntiBan
ms3='Woodcutting Lvls?'; //Random Message for AntiBan
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //your runescape account
Players[0].Pass := ''; // your runescape password of your account
Players[0].Nick := ''; // 2-4 letters to use for antirandoms
Players[0].Active := True; // use this character?
end;
Procedure Login;
begin
if LoggedIn then Exit;
loginplayer;
end
Procedure AB;
begin
if(not(LoggedIn))then Exit;
case Random(6) of
0: begin
HoverSkill('Attack', false);
wait(2453+Random(432));
end;
1: begin
pickupmouse;
end;
2: begin
MakeCompass('N');
wait(10+random(5));
MakeCompass('S');
MakeCompass('N');
end;
3: begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
end;
4: begin
BoredHuman;
end;
5: begin
DoEmote(400 + Random(90));
end;
6: begin
case Random(3) of
0: Typesend(Ms1);
1: Typesend(Ms2);
2: Typesend(Ms3);
end;
end;
Procedure AntiRandom;
Begin
FindNormalRandoms;
findfight;
FindNonInventoryRandoms;
end;
Procedure findfight;
begin
Begin
If(FindFight) then
Begin
Begin
RunAway(RunDir,False,1,8000+Random(3000))
end;
end;
end;
Procedure AutoMine;
begin
end;
begin
SetupSRL;
Disguise('iTunes');
ActivateClient;
Login;
Repeat
AB;
AntiRandom;
Automine;
until False
end.
The error is Line 28: [Error] (16247:1): Semicolon (';') expected in script
Line 28 is so I'm not sure what the problem is.
Thanks.