SRL Archive - OSR Help

I've been following YoHoJo's scripting tutorial and I've adapted it for my own needs, yet I get the error 'Identifier expected at line 29' so I must be missing an 'end;' somewhere, right? If I am, where do I put it? If I'm not, what's my problem? Thanks for helping :P

function MineClay:Boolean;
var seX, seY: integer;
Begin
if FindObjCustom(seX, seY: ['Mine', 'Clay', 'rocks'] [8767726, 5802910, 6132391], 30) then
WriteLn ('Found the clay!');
End;

This is the issue:

if FindObjCustom(seX, seY, ['Mine', 'Clay', 'rocks'], [8767726, 5802910, 6132391], 30) then
  WriteLn ('Found the clay!');

Every parameter has to be separated by a comma.

Ah right, thanks a lot :D forgot about the parameters needing a comma, but I'm still getting the error. Sorry if it's a stupid question or anything, but I know very little about scripting or pascal in general.

Once it is changed to this:

function MineClay:Boolean;
var
  seX, seY: integer;
Begin
  if FindObjCustom(seX, seY, ['Mine', 'Clay', 'rocks'], [8767726, 5802910, 6132391], 30) then
    WriteLn ('Found the clay!');
End; 

You don't get the "[Error] (62:26): comma (',') expected at line" error, so which line are you getting the "Identifier expected" error on?

From: putonajonny
Once it is changed to this:

function MineClay:Boolean;
var
  seX, seY: integer;
Begin
  if FindObjCustom(seX, seY, ['Mine', 'Clay', 'rocks'], [8767726, 5802910, 6132391], 30) then
    WriteLn ('Found the clay!');
End; 

You don't get the "[Error] (62:26): comma (',') expected at line" error, so which line are you getting the "Identifier expected" error on?

I get the identifier expected error on the line

function MineClay:Boolean;

The error is with the previous function / procedure

From: bishknight
I get the identifier expected error on the line

function MineClay:Boolean;

I'm pretty sure that means it's something above that. The line right above that has an error…what is that line? Post it please. :)

From: shstiger2009
I'm pretty sure that means it's something above that. The line right above that has an error…what is that line? Post it please. :)

I've probably copied some of the standard stuff wrong, here's what I've got.

program ECBanker;
{$DEFINE SMART}
{$i SRL\SRL.simba}

Const
SERVER = 0; 
MEMBERS = FALSE; 
SRLStats_Username = '';
SRLStats_Password = '';
NumbOfPlayers= 1;
StartPlayer= 0;

Procedure DeclarePlayers;
var i: integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i]. BoxRewards := ['mote', 'ostume', 'XP', 'Gem'];

with Players[0] do
 begin
 Name        := '';
 Pass        := '';
 Pin         := '';
 Active      := True;
end;

You need another end:

Procedure DeclarePlayers;
var i: integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i]. BoxRewards := ['mote', 'ostume', 'XP', 'Gem'];

with Players[0] do
 begin
 Name        := '';
 Pass        := '';
 Pin         := '';
 Active      := True;
 end; // <-
end;

From: Runaway
You need another end:

Procedure DeclarePlayers;
var i: integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i]. BoxRewards := ['mote', 'ostume', 'XP', 'Gem'];

with Players[0] do
 begin
 Name        := '';
 Pass        := '';
 Pin         := '';
 Active      := True;
 end; // <-
end;

Thats worked, thanks a lot :D

From: Runaway
You need another end:

Procedure DeclarePlayers;
var i: integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i]. BoxRewards := ['mote', 'ostume', 'XP', 'Gem'];

with Players[0] do
 begin
 Name        := '';
 Pass        := '';
 Pin         := '';
 Active      := True;
 end; // <-
end;

This. There's your missing end. :)