SRL Archive - RS3 Outdated / Broken Scripts

Please delete this thread.

Reserved

Just tested ..

I have to fix switch players when i have time tomorrow.
If you can fix yourself, then enjoy.

My ToCactus works towards banks as well its just ToCactus(false).

So you could shorten ur ToBank to this however, you should consider to redo this. You Symbolaccuracy positions will always only search at 0.5, also you have no fail safes to break out of this loop. You should have a Timed break out and a Not Loggedin break out.

Function ToBank: boolean;
var
  x, y: integer;
begin
  if ToCactus(false) then
  begin
    repeat
      wait(750 +random(500));
      SymbolAccuracy := 0.5;
      If (FindSymbol(x, y, 'bank')) then
        Mouse(x, y, 1, 3, True);
      SymbolAccuracy := 0.8;
      FFlag(5);
    until (FindSymbol(x, y, 'bank'));
    Result := true;
  end;
end;

Thank you,
I'm still confused on how to break after so many minutes..
There aren't many tut's on it, at least i couldn't find any.

Here's 2 ways I use. I use second one more though now.

program new;
{.include srl/srl.scar}

procedure Timer1;
var
  Timer: integer;
begin
  MarkTime(Timer);
  Writeln('Time 1 Marked');
  Repeat
    //Stuff
    Wait(50);
  until (TimeFromMark(Timer) > 10000);
  Writeln('Times up!');
end;

procedure Timer2;
var
  Timer: integer;
begin
  Timer := GetSystemTime + 10000;
  Writeln('Time 2 Marked');
  repeat
    //Stuff
    Wait(50);
  until (GetSystemTime > Timer);
  Writeln('Times up!');
end;

begin
  Timer1;
  Timer2;
end.

I'll try fixing it rep+