Need help with my script!

[thomis]

It keeps saying "Syntax error in line 10" but i don't know what it means.
And I need an antirandom thing at the end, I hope someone can help me out.

Here's my script then:

program MyFeatherBuyer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\amount.scar}

var
   bought: integer;

const
   FeathersToBuy = ;//How many Feathers you want to buy
   ShopColor = ;//Pick the blue color of the shop symbol
   ShopkeeperColor = ;//Pick the color of the shopkeeper


function JadSymbol(WhatSymbol: String; Click, Switch: Boolean): Boolean;
var I: Integer;
begin
  for I := 1 to 25 do
  begin
    if(FindSymbol(x,y,(WhatSymbol)))then
    begin
      if(Click)then
        Mouse(x,y,2,2,true);
      Result := True;
      Exit;
    end;
    wait(750+random(500));
  end;
  Writeln('Could NOT find symbol.');
  Result := False;
  if(Switch)then
    LogOut;
end;         //Credits for this function go to JAD


procedure FindShopkeeper;
var FSX, FSY, Attempts: integer;
begin
  repeat
    Attempts:=Attempts+1;
    if FindObjMultiText(FSX,FSY,'erran','errand','Gerrand',ShopkeeperColor,?) then
      Mouse(FSX,FSY,2,2,false);
      ClickOption('Trade',1);
  until (TradeScreen) or (Attempts > 5);
  if Attempts > 5 then
  Begin
    Logout;
  end;
end;



Procedure BuyTheFeathers;
begin
  if (GetAmount(370,73) > 970) then
  begin
    Mouse(370,73,10,10,false);
    ClickOption('Buy 10',1);
    bought := bought + 10;
  end;
end;

procedure FinalReport;
begin
  Writeln('----------------------------------')
  Writeln('|     FeatherBuyer by Thomis     |')
  Writeln('----------------------------------')
  Writeln('|                                |')
  Writeln('| Succesfully bought '+IntToStr(bought)+' Feathers |')
  Writeln('|                                |')
  Writeln('----------------------------------')
end;

begin
  SetupSRL;
  ActivateClient;
     bought := 0;
  HighestAngle;
  JadSymbol('fishing shop',true,true);
  FindShopKeeper;
  repeat
    BuyTheFeathers;
    Wait(5000 + random(1000));
  until (bought > FeathersToBuy);
  CloseWindow;
  FinalReport;
  Logout;
end.

 

[Gofez0r]

You need to fill the contants.

 

[Zeta]

FeathersToBuy = ;//How many Feathers you want to buy
ShopColor = ;//Pick the blue color of the shop symbol
ShopkeeperColor = ;//Pick the color of the shopkeeper

ya u need to set that.. and srl is down cause rs update anyway

 

[thomis]

ok thanks guys

but I still need that antirandom thing at the end

 

[Town]

FeathersToBuy = 0;//How many Feathers you want to buy
   ShopColor = 0;//Pick the blue color of the shop symbol
   ShopkeeperColor = 0;//Pick the color of the shopkeeper

That will take away the errors.

FindNormalRandoms?

 

[thomis]

Just FindNormalRandoms at the end?
But does it also solve them or does it just log out?

 

[Town]

FindNormalRandoms wherever it's needed will do everything you need.