help me out

[jphamlett]

ok so this is my first script

program SimplePowerMiner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}

var
  x, y, g, i: Integer;

procedure Setup;
begin
 ClearDebug;
 g:= 0;
  SMARTSetupEx(149, False, True, False);
                    Wait(5000);
                    SetTargetDC(SmartGetDC);
                    repeat
                    wait(100);
                    until(SmartGetColor(253, 233)<>1118604);
  SetupSRL
  SetupMining;
end;
  
procedure MineTheStuff;
begin
  repeat
  g:= g + 1;

  FindObjRock(x, y, rimmington_Iron);//seee bottom of script for other rocks

  Mouse(x, y, 4, 4, False);
  Wait(100 + Random(200));
  ChooseOption('ine');
  WriteLn('mining number '+ IntToStr(g));

  Wait(3000 + Random(700));

  g:= g + 1;

  FindObjRock(x, y, rimmington_Iron);//seee bottom of script for other rocks

  Mouse(x, y, 4, 4, true);
  Wait(100 + Random(200));
  WriteLn('mining number '+ IntToStr(g));
  Wait(3000 + Random(700));
  until Invfull
end;

procedure DropTheStuff;
begin
  for i := 2 to 28
 DO begin
    DropItem(i);
end;

procedure MainLoop;
begin;
Setup;
repeat
MineTheStuff;
DropTheStuff;
until(g=10)
end.

{rimmington_Clay
  rimmington_Copper
  rimmington_Tin
  rimmington_Iron
  rimmington_Gold

  old_Clay
  old_Copper
  old_Tin
  old_Iron
  old_Coal
  old_Mithril
  old_Adamant

  varrock_Clay
  varrock_Copper
  varrock_Tin
  varrock_Iron
  varrock_Silver

  lumbridge_Copper
  lumbridge_Tin
  lumbridge_Coal
  lumbridge_Mithril
  lumbridge_Adamant

  falador_Clay
  falador_Copper
  falador_Tin
  falador_Iron
  falador_Coal
  falador_Mithril
  falador_Adamant}

copy and paste that in to a scar and run it and see if u get this error


"Failed when compiling
Line 55: [Error] (17146:1): Identifier expected in script"

ive tried many diffrent things and i cant figure out what its expecting


im pretty sure once you telll me im gonna be like how did i not see that and stuff

btw this script isnt done yet so dont tell me what i should add unless i totaly messed up sumtin i already wrote


ty in advance

 

[Frt]

program SimplePowerMiner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}

var
  x, y, g, i: Integer;

procedure Setup;
begin
 ClearDebug;
 g:= 0;
  SMARTSetupEx(149, False, True, False);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    wait(100);
  until(SmartGetColor(253, 233)<>1118604);
  SetupSRL
  SetupMining;
end;

procedure MineTheStuff;
begin
  repeat
  g := g + 1;
  if FindObjRock(x, y, rimmington_Iron) then
  begin
    Mouse(x, y, 4, 4, False);
    Wait(100 + Random(200));
    ChooseOption('ine');
    WriteLn('mining number ' + IntToStr(g));
  end;
  Wait(3000 + Random(700));
  until(InvFull);
end;

procedure DropTheStuff;
begin
  for i := 2 to 28 do
    DropItem(i);
end;

procedure MainLoop;
begin;
  Setup;
  repeat
    MineTheStuff;
    DropTheStuff;
  until(g = 10)
end;

begin
  MainLoop;
end.

{rimmington_Clay
  rimmington_Copper
  rimmington_Tin
  rimmington_Iron
  rimmington_Gold

  old_Clay
  old_Copper
  old_Tin
  old_Iron
  old_Coal
  old_Mithril
  old_Adamant

  varrock_Clay
  varrock_Copper
  varrock_Tin
  varrock_Iron
  varrock_Silver

  lumbridge_Copper
  lumbridge_Tin
  lumbridge_Coal
  lumbridge_Mithril
  lumbridge_Adamant

  falador_Clay
  falador_Copper
  falador_Tin
  falador_Iron
  falador_Coal
  falador_Mithril
  falador_Adamant}

Compiles.