SRL Archive - Help and Support

In my script this code

Function FindRandoms: Boolean;
var
  i,Mark: Integer;
begin
 MarkTime(Mark);
  for i := 1 to 3 do
  begin
    case I of
      1: if(FindNormalRandoms)then
           Result := True;
      2: FindEnt(x,y,True); // Didn't want a result
      
     3: if(FindFight)then // Didnt want a result
          begin
          RunTo('E',True)
          Wait(7000+random(3000));
          RunBack;
          end;
    end;
    if Result then
      SRLRandomsReport;
      Break;
    Wait(1);
  end;
  Writeln('Randoms took '+inttostr(TimeFromMark(Mark))+' ms');
  SRLRandomsReport;
end;

is taking 5 seconds and producing

Randoms took 5750 ms
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

So although nothing is being found it is still taking a long time… is there anything i can do to change this?

no but

 if Result then
      SRLRandomsReport;
      Break;
    Wait(1);

should be

 if Result then
 begin
      SRLRandomsReport;
      Break;
    Wait(1);
 end;

From: pwnaz0r
no but

 if Result then
      SRLRandomsReport;
      Break;
    Wait(1);

should be

 if Result then
 begin
      SRLRandomsReport;
      Break;
    Wait(1);
 end;

No it shouldn't, read it again.

Function FindRandoms: Boolean;
var
  i,Mark: Integer;
begin
  MarkTime(Mark);
  for i := 1 to 3 do
  begin
    case I of
      1: if(FindNormalRandoms)then
           Result := True;
           
      2: FindEnt(x,y,True); // Didn't want a result

      3: if(FindFight)then // Didnt want a result
         begin
           RunTo('E',True)
           Wait(7000+random(3000));
           RunBack;
         end;
    end;
    if Result then
      SRLRandomsReport;
    Break;
    Wait(1);
  end;
  Writeln('Randoms took '+inttostr(TimeFromMark(Mark))+' ms');
  SRLRandomsReport;
end;

I'm pretty sure it should be, unless he wants to break out before it does EntCheck and FindFight

Its probally when SRLRandomsReport; connects to the server.

Its probally when SRLRandomsReport; connects to the server.

Correct. Or atleast I think so, because when I do any "GetPage" or any connexion shit with scar, it takes approximately 2-7 seconds.

so take it of or just put it after the script is finished ;)

Only use SendSRLRandoms report when you switch player (obviously could be done in ProgressReport)….

From: The Claw

Function FindRandoms: Boolean;
var
  i,Mark: Integer;
begin
  MarkTime(Mark);
  for i := 1 to 3 do
  begin
    case I of
      1: if(FindNormalRandoms)then
           Result := True;
           
      2: FindEnt(x,y,True); // Didn't want a result

      3: if(FindFight)then // Didnt want a result
         begin
           RunTo('E',True)
           Wait(7000+random(3000));
           RunBack;
         end;
    end;
    if Result then
      SRLRandomsReport;
    Break;
    Wait(1);
  end;
  Writeln('Randoms took '+inttostr(TimeFromMark(Mark))+' ms');
  SRLRandomsReport;
end;

I'm pretty sure it should be, unless he wants to break out before it does EntCheck and FindFight

Oh, I was looking at the Wait(1) instead of the Break, so I was half right. The wait should have been after the end;, though.