Thomis' FeatherBuyer

[thomis]

Please post your reviews and suggestions for this script.
I hope it works well, but it doesn't have AntiRandom so watch out.

Well, here it is:

{This script was made by Thomis with the help of some others.
It's free to use and you can post it everywhere as long as you credit me.}
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
  Writeln('Trying to find shop');
  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
  Writeln('Trying to trade Gerrand');
  repeat
    Attempts:=Attempts+1;
    if FindObjMultiText(FSX,FSY,'erran','errand','Gerrand',ShopkeeperColor,6) then
      Mouse(FSX,FSY,2,2,false);
      ClickOption('Trade',1);
  until (TradeScreen) or (Attempts > 5);
  if (Tradescreen) then
  begin
    Writeln('Traded Gerrand after '+IntToStr(Attempts)+' attempts'):
  if Attempts > 5 then
  Begin
    Writeln('Failed to trade Gerrand, logging out');
    Logout;
  end;
end;



Procedure BuyTheFeathers;
begin
  Writeln('Beginning to buy feathers');
  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.