SRL Archive - Help and Support

NVM!!! I found them. Why were these taken out of SRL?

{*******************************************************************************
procedure RunAwayDirection(direction: String);
By: Stupid3ooo
Description: Runs away in specified direction.
*******************************************************************************}
procedure RunAwayDirection(direction: String);
var
  RunBackx, RunBacky : Integer;
begin
  x := 0;
  y := 0;
  if (Uppercase(direction) = 'N') then
    y := -50;
  if (Uppercase(direction) = 'E') then
    x := 50;
  if (Uppercase(direction) = 'S') then
    y := 50;
  if (Uppercase(direction) = 'W') then
    x := -50;
  RunBackx := x + 648;
  RunBacky := y + 83;
  MouseFindFlag(x + 648, y + 83, 1, 1);
  SetRun(True);
  Flag;
  x := RunBackx;
  y := RunBacky;
end;

{*******************************************************************************
procedure RunBack;
By: Stupid3ooo
Description: Runs back in specified direction
*******************************************************************************}
procedure RunBack;
begin
  MouseFindFlag((648 - x) + 648, (83 - y) + 83, 1, 1);
  SetRun(True);
  Flag;
end;

Function FindRandoms(FFight: Boolean; Direction: String) : Boolean;
begin
  If FindNormalRandoms Then
  Result:= True;
  if (FFight)then
    begin
      if(FindFight)then
        begin
          Result:= True;
         [COLOR="DarkGreen"] RunAwayDirection(Direction);[/COLOR]
          Wait(8000+random(1000));
          [COLOR="DarkGreen"]RunBack;[/COLOR]
        end;
    end;
  //if (ClickToContinue) then Wait((200) + Random(100));
  //if Findname Then FindTalk;
end;

Ok Where can i find RunAwayDirection(); and RunBack; they have been taken out of the new version and I use them in my scripts? Where can I find them in the last srl so I can through them into my scripts? Im having no luck running them down. Or is there a new Function for this?

From: Mr. Freeweed
NVM!!! I found them. Why were these taken out of SRL?

{*******************************************************************************
procedure RunAwayDirection(direction: String);
By: Stupid3ooo
Description: Runs away in specified direction.
*******************************************************************************}
procedure RunAwayDirection(direction: String);
var
  RunBackx, RunBacky : Integer;
begin
  x := 0;
  y := 0;
  if (Uppercase(direction) = 'N') then
    y := -50;
  if (Uppercase(direction) = 'E') then
    x := 50;
  if (Uppercase(direction) = 'S') then
    y := 50;
  if (Uppercase(direction) = 'W') then
    x := -50;
  RunBackx := x + 648;
  RunBacky := y + 83;
  MouseFindFlag(x + 648, y + 83, 1, 1);
  SetRun(True);
  Flag;
  x := RunBackx;
  y := RunBacky;
end;

{*******************************************************************************
procedure RunBack;
By: Stupid3ooo
Description: Runs back in specified direction
*******************************************************************************}
procedure RunBack;
begin
  MouseFindFlag((648 - x) + 648, (83 - y) + 83, 1, 1);
  SetRun(True);
  Flag;
end;

Function FindRandoms(FFight: Boolean; Direction: String) : Boolean;
begin
  If FindNormalRandoms Then
  Result:= True;
  if (FFight)then
    begin
      if(FindFight)then
        begin
          Result:= True;
         [COLOR=DarkGreen] RunAwayDirection(Direction);[/COLOR]
          Wait(8000+random(1000));
          [COLOR=DarkGreen]RunBack;[/COLOR]
        end;
    end;
  //if (ClickToContinue) then Wait((200) + Random(100));
  //if Findname Then FindTalk;
end;

Ok Where can i find RunAwayDirection(); and RunBack; they have been taken out of the new version and I use them in my scripts? Where can I find them in the last srl so I can through them into my scripts? Im having no luck running them down. Or is there a new Function for this?

Look in SRL\SRL\Extended\XAntiRandoms.Scar they should be in there… We removed alot of functions/procedures that werent as popular to reduce the memory usage of SRL as it was lagging alot of systems….