SRL Archive - First Scripts

So this is the procedure for getting logs and its:

Procedure GetLogs;
var
  RegLogs, x, y, logx, logy: Integer;
begin
 x:= MSCX;
 y:= MSCY;
 LogCount:= (Invcount + 1);

     If FindObjCustom(x, y, ['ogs', 'ake'], [2312015], 5) then    // Finds The Logs on the Floor near You
     begin
       GetMousePos(logx, logy);  // Gets The Position of the Mouse
       ClickMouse(logx, logy, 1);    //Clicks the Mouse
       Wait(Random(2000)+2000);
       LogCount:= (Invcount + 1);   // Increase the Count of Logs
       WriteLn('We Have Obtained  ' + IntToStr(LogCount) + ' Logs.');
     end;
end;
            

Also:

begin
  {$IFDEF SIMBAMAJOR980}
    SMART_SERVER := 24;
    SMART_MEMBERS := TRUE;
    SMART_SIGNED := TRUE;
    SMART_SUPERDETAIL := FALSE;
  {$ELSE}
    SMART_FIXSPEED := TRUE;
  {$ENDIF}
  ClearDebug;
  ActivateClient;
  SetupSRL;
  SRL_SixHourFix := True;
  DeclarePlayers;
    if not (LoggedIn) then
  LoginPlayer;
  wait(1000 + Random(400));
  ClickNorth(0);     // Set the Compass to North and set the Angle to The Highest Point
 Repeat
  GetLogs;
 Until (LogCount = 4);
end.                                    

The script is supposed to repeat until the log count is 4 but it doesn't! Help:fiery: