Running Back Procedure

Well, since there was no more running back procedure, i decided to make my own. Now i know that you can run back using the RunAway procedure by nielsie95 but this will run you back when you use the RunTo procedure.

Location: SRL\SRL\core/MapWalk.scar
Replace all of the RunTo procedure with this code for this to work properly:

SCAR Code:

{*******************************************************************************
procedure RunTo(dir: String; runfar: Boolean);
By: Mutant Squirrle and Nielsie95 modified by IP-Drowner (minor changes)
Description: Runs to direction
*******************************************************************************}

procedure RunTo(dir: string; runfar: Boolean);
var
 OffSet, Tab: Integer;
begin
  Tab := GetCurrentTab;
  SetRun(True);
  if RunFar then
    OffSet := 63
  else
    OffSet := 30;
  case UpperCase(dir) of
    'N': MouseFlag(648, 83 - OffSet, 0, 0)
    'S': MouseFlag(648, 83 + OffSet, 0, 0)
    'E': MouseFlag(648 + OffSet, 83, 0, 0)
    'W': MouseFlag(648 - OffSet, 83, 0, 0)
  end;
  Wait(6500 + Random(2000));
  IdleTime(6000, 500, 1.0);
  case UpperCase(dir) of
    'N': MouseFlag(648, 83 + OffSet, 0, 0)
    'S': MouseFlag(648, 83 - OffSet, 0, 0)
    'E': MouseFlag(648 - OffSet, 83, 0, 0)
    'W': MouseFlag(648 + OffSet, 83, 0, 0)
  end;
  SetRun(False);
  GameTab(Tab);
  DirectionRan:=dir;
  RanFurther:=runfar;
end;

{*******************************************************************************
procedure RunBack(Direction: String; RanFar: Boolean);
By: IP-Drowner
Description: Will run back to original position.
*******************************************************************************}

procedure RunBack;
var OppDirection: String;
begin
  case Lowercase(DirectionRan) of
    'n': OppDirection:='s';
    'e': OppDirection:='w';
    's': OppDirection:='n';
    'w': OppDirection:='e';
  end;
  RunTo(OppDirection, RanFurther);
  end;
end;

Also declare these variables as global variables, put under the DebugRadialRoad declare:

SCAR Code:

var
  RanFurther: Boolean;
  DirectionRan: Integer;
//* Running Back procedures.

Well, enjoy and i hope this gets added into SRL ;)