SRL Archive - RS3 Outdated / Broken Scripts

{ this script will move your army from wherever ever you are
to wherever you want your army to be. just fill in where you
want your army to go in the main loop.}


program RelocateArmy;
{.include SRL/SRL.scar}

procedure DeclarePlayers;
begin
  HowManyPlayers:=8;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on

  Players[0].Name := '';  //Fill in your username
  Players[0].Pass := '';  //Fill in your password
  Players[0].Nick := '';  //2-3 letters of your username
  Players[0].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[0].Active  :=True;
  
  Players[1].Name    :='';  //Fill in your username
  Players[1].Pass    :='';  //Fill in your password
  Players[1].Nick    :='';  //2-3 letters of your username
  Players[1].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[1].Active  :=True;
  
  Players[2].Name    :='';  //Fill in your username
  Players[2].Pass    :='';  //Fill in your password
  Players[2].Nick    :='';  //2-3 letters of your username
  Players[2].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[2].Active  :=True;
  
  Players[3].Name    :='';  //Fill in your username
  Players[3].Pass    :='';  //Fill in your password
  Players[3].Nick    :='';  //2-3 letters of your username
  Players[3].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[3].Active  :=True;
  
  Players[4].Name    :='';  //Fill in your username
  Players[4].Pass    :='';  //Fill in your password
  Players[4].Nick    :='';  //2-3 letters of your username
  Players[4].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[4].Active  :=True;
  
  Players[5].Name    :='';  //Fill in your username
  Players[5].Pass    :='';  //Fill in your password
  Players[5].Nick    :='';  //2-3 letters of your username
  Players[5].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[5].Active  :=True;
  
  Players[6].Name    :='';  //Fill in your username
  Players[6].Pass    :='';  //Fill in your password
  Players[6].Nick    :='';  //2-3 letters of your username
  Players[6].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[6].Active  :=True;
  
  Players[7].Name    :='';  //Fill in your username
  Players[7].Pass    :='';  //Fill in your password
  Players[7].Nick    :='';  //2-3 letters of your username
  Players[7].Booleans[0] := True;  //True for Varrock East, False For Varrock West
  Players[7].Active  :=True;
  
end;

procedure GetMageBook;
begin
  Mouse(778,311,0,0,true)
  Wait(1000)
  Mouse(742,184,0,0,true)
  Wait(1000)
end;

procedure TeleToLumby;
begin
  Mouse(570,240,0,0,true)
  Wait(20000)
end;

procedure VarrockEast;
begin
  RadialRoadWalk(FindRoadColor, 71, 76, 60, 0, 0);
  RadialRoadWalk(FindRoadColor, 86, 90, 60, 0, 0);
  RadialRoadWalk(FindRoadColor, 26, 30, 51, 0, 0);
  RadialRoadWalk(FindRoadColor, 326, 330, 70, 0, 0);
  RadialRoadWalk(FindRoadColor, 342, 346, 72, 0, 0);
  RadialRoadWalk(FindRoadColor, 320, 324, 74, 0, 0);
  RadialRoadWalk(FindRoadColor, 355, 357, 71, 0, 0);
  RadialWalk( 2463332, 306, 311, 71, 0, 0);
  RadialWalk( 3245662, 341, 347, 69, 0, 0);
  RadialWalk( 2582124, 313, 315, 73, 0, 0);
  RadialWalk( 4487011, 13, 21, 67, 0, 0);
  RadialRoadWalk(FindRoadColor, 3, 9, 70, 0, 0);
  RadialRoadWalk(FindRoadColor, 357, 359, 69, 0, 0);
  RadialRoadWalk(FindRoadColor, 357, 353, 64, 0, 0);
  RadialRoadWalk(FindRoadColor, 352, 358, 70, 0, 0);
  RadialRoadWalk(FindRoadColor, 353, 357, 71, 0, 0);
  RadialRoadWalk(FindRoadColor, 47, 52, 63, 0, 0);
  RadialRoadWalk(FindRoadColor, 80, 84, 56, 0, 0);
  RadialRoadWalk(FindRoadColor, 87, 92, 57, 0, 0);
  RadialRoadWalk(FindRoadColor, 159, 155, 35, 0, 0);
  Logout;
  NextPlayer(True);
end;

procedure VarrockWest;
begin
  RadialRoadWalk(FindRoadColor, 73, 76, 59, 0, 0);
  RadialRoadWalk(FindRoadColor, 100, 104, 58, 0, 0);
  RadialRoadWalk(FindRoadColor, 34, 38, 63, 0, 0);
  RadialRoadWalk(FindRoadColor, 331, 333, 70, 0, 0);
  RadialRoadWalk(FindRoadColor, 349, 352, 67, 0, 0);
  RadialRoadWalk(FindRoadColor, 322, 325, 58, 0, 0);
  RadialRoadWalk(FindRoadColor, 3, 4, 61, 0, 0);
  RadialWalk( 2198140, 329, 331, 69, 0, 0);
  RadialWalk( 2329976, 345, 347, 63, 0, 0);
  RadialWalk( 2981497, 311, 313, 59, 0, 0);
  RadialWalk( 2970213, 321, 323, 70, 0, 0);
  RadialWalk( 4553331, 18, 19, 65, 0, 0);
  RadialRoadWalk(FindRoadColor, 5, 7, 64, 0, 0);
  RadialRoadWalk(FindRoadColor, 351, 355, 69, 0, 0);
  RadialRoadWalk(FindRoadColor, 357, 359, 54, 0, 0);
  RadialRoadWalk(FindRoadColor, 354, 357, 59, 0, 0);
  RadialRoadWalk(FindRoadColor, 329, 331, 53, 0, 0);
  RadialRoadWalk(FindRoadColor, 271, 275, 58, 0, 0);
  RadialRoadWalk(FindRoadColor, 269, 271, 46, 0, 0);
  RadialWalk( 4020591, 323, 326, 18, 0, 0);
  Logout;
  NextPlayer(True);
end;

procedure Setup;
begin
  if(Players[CurrentPlayer].Booleans[0] = True)then
   begin
     VarrockEast;
   end;
  if(Players[CurrentPlayer].Booleans[0] = False)then
   begin
     VarrockWest;
   end;
end;

begin
  SetupSrl;
  DeclarePlayers;
  if(LoggedIn)then
  Logout;
  LoginPlayer;
  GetMageBook;
  TeleToLumby;
  Setup;
end.