[Error] (131:4): Identifier expected at line 130 Compiling failed.

[John]

had a look at it, can you see where i have gone wrong? :P

error:
[Error] (131:4): Identifier expected at line 130
Compiling failed.

program Gilded_Altar;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}




procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // TruiBox := InvBox;
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;


 procedure AntiRandoms;
begin
  FindNormalRandoms;
  LevelUp;
end;


function UseBankNPC: Boolean;
var
  bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
  Result := (LoggedIn) and (BankScreen or PinScreen);
  if (Result) then exit;
  Speed := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  ColFace := 7513036;
  ColGrey := 4995649;
  ColBlue := 4336690;
  ColHair := 2506053;
  if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
    ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
  begin
    Mouse(bx, by, 0, 0, False);
    if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
    begin
      t := (GetSystemTime + 5000);
      repeat
        if (BankScreen) or (PinScreen) then
        begin
          Result := true;
          Break;
        end;
        Wait(50);
      until(GetSystemTime > t);
      if (Length(Players) > 0) then
        if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
          InPin(Players[CurrentPlayer].Pin);
      Result := (BankScreen) or (PinScreen);
    end;
  end;
  ColorToleranceSpeed(Speed);
end;


procedure TeleToBank;
var
  x, y, N: Integer;
begin
  if (N > 3) then
    begin
      Exit;
    end;
  ClickNorth(SRL_Angle_High);
  AntiRandoms;
  begin
    repeat
    Inc(N);
    //if FindObjTPA(x, y, 6982558, 10, 2, 25, 20, w, ['mulet']) then
    if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
      GetMousePos(X, Y);
    Mouse(x, y, 0, 0, false);
    AntiRandoms;
    until ChooseOption('Rub') or (N > 5);
  end;
  if (N > 5) then
    begin
      Exit;
    end;
  FFlag(0);
  N:=0;
  repeat
  Inc(N);
  Wait(500);
  until FindNpcChatText('dgev', ClickLeft);
  Wait(4912 + Random(957));
  begin
    SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
    SPS_Continue := true;
    SPS_WalkPath([Point(4214, 2686)]);
    FFlag(0);
    Wait(2500 + Random(200));
    AntiRandoms;
    N:=0;
  end;
end;


Procedure StartAltar;
var
x, y : integer;

begin
  KeyUp(VK_F1);
  Wait(5500 + Random(200));
  begin
    repeat
    if FindObjCustom(X, Y, ['oor','Doo'], [4542809,3883076,9873837], 3) then
      GetMousePos(X, Y);
    Mouse(x, y, 10, 10, false);
    AntiRandoms;
    until ChooseOption('Open');
  end;



begin
  Startaltar;
end.

E: the line is the very last line of the script ("end.")

[Kyle Undefined]

You're missing an end; in your StartAltar procedure.

[John]

tyvm kyle