Problems with script

[Syntax]

Hi guys I'm having a few troubles with my iron miner that I can't figure out what is wrong with it. The error in the debug box is:
[Error] (84:4): Identifier expected at line 83
Compiling failed.


program Iron_Miner;
{$DEFINE SMART}
{$i srl/srl.simba}

const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 35; // Enter "0" to pick a random server.
MEMBERS = True;
Version ='1.1';


Procedure DeclarePlayers;
begin;
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name:='';
Players[0].Pass:='';
Players[0].Nick:='';
Players[0].Active:=True;
end;

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('W');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;

Procedure MineOre;
var x, y, : integer;
begin;
{if not FindNormalRandoms then
if not LoggedIn then
TerminateScript};
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400))
begin
if FindObjCustom(x, y, ['Mine', 'ine'], [2832994, 3294323 , 2701150, 3029075], 25) then
GetMousePos(x, y);
case random(2) of
0: Mouse(x, y, 5, 5, True);
1: begin
Mouse(x, y, 5, 5, False);
WaitOption('Mine', 500);
end;
end;

begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
Smart_Server := 35;
ActivateClient;
SetUpSRL;
DeclarePlayers;
LoginPlayer;
wait(4000+random(400));
repeat
MineOre;
Antiban;
until(false)
end.




Thank you.

[YoHoJo]

Seems like a developer made a commit that didn't compile as far as I can see.
Gotta wait a while and SRL should be fixed/updated.

[Runaway]

Procedure MineOre;
var x, y, : integer; // remove the , after the y!
begin; // remove the ;!
{if not FindNormalRandoms then
if not LoggedIn then
TerminateScript}; // another unecessary ;!
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400)) // need a ; here!


EDIT: also


Procedure MineOre;
var x, y, : integer;
begin;
{if not FindNormalRandoms then
if not LoggedIn then
TerminateScript};
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400))
begin
if FindObjCustom(x, y, ['Mine', 'ine'], [2832994, 3294323 , 2701150, 3029075], 25) then
GetMousePos(x, y);
case random(2) of
0: Mouse(x, y, 5, 5, True);
1: begin
Mouse(x, y, 5, 5, False);
WaitOption('Mine', 500);
end;
end;


lots of begins and only 2 ends! I think it's carrying over to the end (line 84) since there's no actual end it recognizes.

@YoHo, I don't understand, where does randomtool.simba come into this? 0.0

[YoHoJo]

^ And yeah, lots of little problems in the script.
(But would those cause an error in RandomTool.simba too??? what's going on?!)

[Syntax]

^ And yeah, lots of little problems in the script.
(But would those cause an error in RandomTool.simba too??? what's going on?!)

Its my first script

[YoHoJo]

^ I don cer u r stupid!

I know :], didn't mean to make you feel bad or anything.
Anyways here it is with proper/better standards (spacing done right), and fixed all the small errors, it now compiles and works fine.

Very odd how it was not giving a compile error and an error with SRL... hmm

program Iron_Miner;
{$DEFINE SMART}
{$i srl/srl.simba}

const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 35; // Enter "0" to pick a random server.
MEMBERS = True;
Version ='1.1';


Procedure DeclarePlayers;
begin;
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name:='';
Players[0].Pass:='';
Players[0].Nick:='';
Players[0].Active:=True;
end;

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;

case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('W');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;

end;
end;

Procedure MineOre;
var x, y : integer;
begin
{if not FindNormalRandoms then
if not LoggedIn then
TerminateScript};
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400))
begin
if FindObjCustom(x, y, ['Mine', 'ine'], [2832994, 3294323 , 2701150, 3029075], 25) then
GetMousePos(x, y);

case random(2) of
0: Mouse(x, y, 5, 5, True);
1: begin
Mouse(x, y, 5, 5, False);
WaitOption('Mine', 500);
end;
end;
end;
end;

begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
Smart_Server := 35;
ActivateClient;
SetUpSRL;
DeclarePlayers;
LoginPlayer;
wait(4000+random(400));
repeat
MineOre;
Antiban;
until(false)
end.

[Syntax]

^ I don cer u r stupid!

I know :], didn't mean to make you feel bad or anything.
Anyways here it is with proper/better standards (spacing done right), and fixed all the small errors, it now compiles and works fine.

Very odd how it was not giving a compile error and an error with SRL... hmm

program Iron_Miner;
{$DEFINE SMART}
{$i srl/srl.simba}

const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 35; // Enter "0" to pick a random server.
MEMBERS = True;
Version ='1.1';


Procedure DeclarePlayers;
begin;
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name:='';
Players[0].Pass:='';
Players[0].Nick:='';
Players[0].Active:=True;
end;

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;

case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('W');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;

end;
end;

Procedure MineOre;
var x, y : integer;
begin
{if not FindNormalRandoms then
if not LoggedIn then
TerminateScript};
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400))
begin
if FindObjCustom(x, y, ['Mine', 'ine'], [2832994, 3294323 , 2701150, 3029075], 25) then
GetMousePos(x, y);

case random(2) of
0: Mouse(x, y, 5, 5, True);
1: begin
Mouse(x, y, 5, 5, False);
WaitOption('Mine', 500);
end;
end;
end;
end;

begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
Smart_Server := 35;
ActivateClient;
SetUpSRL;
DeclarePlayers;
LoginPlayer;
wait(4000+random(400));
repeat
MineOre;
Antiban;
until(false)
end.

Ok thanks mate :)