SRL Archive - Reflection Development

Features:
~Very Easy To Use
~Very Accurate

Instructions:
~Fill In Const!
~Press Play In Scar
~Log In Runescape (S.M.A.R.T)
~When You Are At Start Position, Hold F12 And Release It When At The End!
~Remember Keep Moving All The Time, Because We Don't Wan't
Multiple Same Spots!

program GetPlayerPosition;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Reflection\Reflection.scar}


Const
  TimeWait = 2000; // Time How To Long Wait Before Script Logs Another Path?



procedure GetPlayerPosition;
var A, B: Integer;
var Ref_Pos: TPoint;
begin
  B := -1;
  if (IsFKeyDown(12)) then begin
    ClearDebug;
    Writeln('function LoadPath: TPointArray;')
      Writeln('begin')
      Writeln('')
      Writeln('SetLength(Result, [?]);')
      repeat
      Wait(TimeWait)
        Ref_Pos := GetMyPos;
      A := B + 1;
      B := B + 1;
      WriteLn('  Result[' + IntToStr(B) + '] := Point(' + IntToStr(Ref_Pos.x) + ', ' + IntToStr(Ref_Pos.y) + ')');
    until (not (IsFKeyDown(12)))
      Writeln('End;')
      ReplaceDebugLine(3, 'SetLength(Result, ' + IntToStr(B + 1) + ')');
  end;
end;




begin
Disguise('Home''s Path Tool')
  SmartSetupEx(115, true, true, false);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  ClearDebug;
  repeat
    GetPlayerPosition;
  until (False)
end.

~Home

Why make it so you have to hold the key down all the time?
You could just throw in a repeat until you press another fkey :)

program GetPlayerPosition;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Reflection\Reflection.scar}


Const
  TimeWait = 2000; // Time How To Long Wait Before Script Logs Another Path?



procedure GetPlayerPosition;
var A, B: Integer;
var Ref_Pos: TPoint;
begin
  B := -1;
  if (IsFKeyDown(12)) then begin
    ClearDebug;
    Writeln('function LoadPath: TPointArray;')
      Writeln('begin')
      Writeln('')
      Writeln('SetLength(Result, [?]);')
      repeat
      Wait(TimeWait)
        Ref_Pos := GetMyPos;
      A := B + 1;
      B := B + 1;
      WriteLn('  Result[' + IntToStr(B) + '] := Point(' + IntToStr(Ref_Pos.x) + ', ' + IntToStr(Ref_Pos.y) + ')');
    until ((IsFKeyDown(11)))
      Writeln('End;')
      ReplaceDebugLine(3, 'SetLength(Result, ' + IntToStr(B + 1) + ')');
  end;
end;




begin
Disguise('Home''s Path Tool')
  SmartSetupEx(115, true, true, false);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  ClearDebug;
  repeat
    GetPlayerPosition;
  until (False)
end.

~shut