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.
NOTE: This requires to modify an SRL root file. If you're inexperienced then read some tutorials to learn how. You'll need to know about variables and procedures before continuing!
Location: Includes\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;
Also declare these variables as global variables, put under the DebugRadialRoad declare:
SCAR Code:
var
RanFurther: Boolean;
DirectionRan: String;
//* Running Back procedures.
Enjoy