SRL Archive - Outdated / Broken

Function LookForWater:Boolean;
var
SymbolAcc2: Extended;
begin
  If FindSymbol(x, y, 'water') Then
        begin
          Mouse(x,y,1,1, true);
          Writeln('Used ware for first click');
          Wait(4000+random(2000));
          FFlag(0);
          Result:=True;
        end;
      If not FindSymbol(x, y, 'water') Then
       begin
       MakeCompass('N');
       SymbolAcc2 := SymbolAccuracy;
       SymbolAccuracy := 0.4;
       If FindSymbol(x, y, 'water') Then
       Begin
         Mouse(x,y,1,1,true);
         Wait(4000+random(2000));
         Fflag(0);
         Result:=true;
         SymbolAccuracy := SymbolAcc2;
       end;
      end;
      SymbolAccuracy := SymbolAcc2;
   end;

Function GetInBank:boolean;
Var
  Tries,bankDtm:integer;
Begin
  MakeCompass('N');
    If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
    NextPlayer(false);
    BankDtm := DTMFromString('78DA63E4606060606240017FFE400418A17C4' +
    '67E4C353059B81A6620C14A400D179060C1AF0600084C0237');
    MakeCompass('n')
    Wait(4000+random(1000));
    FFlag(0);
    If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(x, y, 1, 1, True);
      FFlag(0);
      OpenBankQuiet('veb');
      wait(40+random(100))
      Result:=True;
    End;
    If Not DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      If FindSymbol(x, y, 'bank') Then
      Begin
        Mouse(x, y, 1, 1, True);
        FFlag(0);
        OpenBankQuiet('veb');
        wait(40+random(100))
        Result:=true;
      End;
      NextPlayer(False);
      WriteLn('Couldnt Find Bank');
    End;
    FreeDtm(BankDtm);
  end;
   
Procedure WalkToBank;
begin
  If Not LoggedIn then exit;
  SetAngle(True);
  MakeCompass('N');
  if not RadialRoadwalk(FindVarrockRoadColor, 17, 4, 61, 1, 1)then
  begin
    if not (LookForWater)then
    begin
      WriteLn('Lost');
      //NextPlayer(false);
    end;
  end;
  if not RadialRoadwalk(FindVarrockRoadColor, 86, 110, 70, 1, 1)then
  if not RadialRoadwalk(FindVarrockRoadColor, 106, 83, 70, 1, 1)then
  begin
    WriteLn('Lost');
    //NextPlayer(false);
  end;
  if not RadialRoadwalk(FindVarrockRoadColor, 86, 110, 70, 1, 1)then
  if not RadialRoadwalk(FindVarrockRoadColor, 106, 83, 70, 1, 1)then
  if not (LookForWater) then
  begin
    WriteLn('Lost');
    //NextPlayer(false);
  end;
  if GetInBank then
  begin
    Wait(3000+random(2000));
  end;
end;

What this script does , is walks you from most of the varrock general store, too varrock east bank.

First script in section FTW!!

SECOND POST IN THIS SECTION WOOT


btw to not make this as a spam

GOOD JOB ON THE CODING :P

Yay, I love you for not making my struggle useless. ^_^

Rep+ says it all.

Very Nice work might use this in the future:

Just some pointers :p:

You declared an Integer called 'Tries' but you never used in that procedure??

From: NaumanAkhlaQ
Very Nice work might use this in the future:

Just some pointers :p:

You declared an Integer called 'Tries' but you never used in that procedure??

Oh, i ment to but i didnt =]