SRL Archive - Archive

// Either set Booleans[0] to true or have your character(s) start in the lumbridge
// square in front of the castle steps. Be sure to set run on or off.

//Dont bring more than three items unless you are confident a dark wizard
//wont kill you if they manage to attack you
// Script by Metagen
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
var
x, y, i : integer;

procedure DeclarePlayers;
//----------------------------SETUP---------------------------------------------
Begin
  HowManyPlayers := 6; //Set how many players you wish to move
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Set which player you want to move first

  Players[0].Name := '';  //Username
  Players[0].Pass := '';   //Password
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Booleans[0]  := True;  //Home Tele?
  Players[0].Booleans[1]  := True;  //Run On?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Booleans[0]  := True;  //Home Tele?
  Players[1].Booleans[1]  := True;  //Run On?

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := True;
  Players[2].Booleans[0]  := True;  //Home Tele?
  Players[2].Booleans[1]  := True;  //Run On?

  Players[3].Name := '';  //Username
  Players[3].Pass := '';   //Password
  Players[3].Nick := '';
  Players[3].Active := True;
  Players[3].Booleans[0]  := True;  //Home Tele?
  Players[3].Booleans[1]  := True;  //Run On?

  Players[4].Name := '';  //Username
  Players[4].Pass := '';   //Password
  Players[4].Nick := '';
  Players[4].Active := True;
  Players[4].Booleans[0]  := True;  //Home Tele?
  Players[4].Booleans[1]  := True;  //Run On?

  Players[5].Name := '';  //Username
  Players[5].Pass := '';   //Password
  Players[5].Nick := '';
  Players[5].Active := True;
  Players[5].Booleans[0]  := True;  //Home Tele?
  Players[5].Booleans[1]  := True;  //Run On?

end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result:= True;
      2: if FindMod then
          Result:= True;
      3: if FindMime then
          Result:= True;
      4: if FindMaze then
          Result:= True;
      5: if FindQuiz then
          Result:= True;
      6: if FindDemon then
          Result:= True;
      7: begin
          if NoGameTab then
          begin
            Result:= True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Players[CurrentPlayer].Active:= False;
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    Wait(1);
  end;
end;
procedure go;
begin
//-------------------------- Home Teleport -------------------------------------
if Players[CurrentPlayer].Booleans[0] = true then
begin
     if getlumbridgemins = 0 then
     begin
          cast('Home Teleport');
          wait(22000);
     end else
     begin
          LogOut;
          Exit;
     end;
end;
//---------------------------- Run Toggle --------------------------------------
if Players[CurrentPlayer].Booleans[1] = true then
begin
    SetRun(true);
end else
begin
    SetRun(false);
end;
//------------------------------------------------------------------------------
wait(1000);
makecompass('N');
wait(2000);
findnormalrandoms;
//--------------- lumbridge castle to arbitrary rock ---------------------------
if not LoggedIn then
   exit;
RadialRoadWalk(FindRoadColor, 60, 100, 60, 1, 1);
wait(random(1000));
FindFastRandoms;

RadialRoadWalk(FindRoadColor, 50, 120, 60, 1, 1);
wait(random(1000));

RadialRoadWalk(FindRoadColor, 0, 72, 45, 1, 1);
wait(random(1000));
FindFastRandoms;

RadialRoadWalk(FindRoadColor, 300, 395, 60, 1, 1);
wait(random(1000));

RadialRoadWalk(FindRoadColor, 300, 395, 60, 1, 1);
wait(random(1000));
FindFastRandoms;

RadialRoadWalk(FindRoadColor, 300, 395, 60, 1, 1);
wait(random(1000));

FindColorSpiral(x, y, FindRockColor, 572, 11, 646, 82); //Rock Landmark
movemousesmoothex(x, y, 5, 5, 5, 5, 5);
clickmouse(x, y, true);
wait(5000+random(523));
FindFastRandoms;

//---------------------------- rock to quest point -----------------------------
RadialRoadWalk(FindRoadColor, 400, 300, 58, 1, 1);
wait(random(2000));

RadialRoadWalk(FindRoadColor, 450, 350, 72, 1, 1);
wait(random(2000));

RadialRoadWalk(FindRoadColor, 70, 30, 60, 1, 1);
wait(random(2000));
FindFastRandoms;

RadialRoadWalk(FindRoadColor, 90, 0, 60, 1, 1);
wait(random(2000));

RadialRoadWalk(FindRoadColor, 90, 0, 60, 1, 1);
wait(random(600));
FindFastRandoms;

FindSymbolIn(x, y, 'Quest', 618, 28, 698, 94); //Quest landmark
movemousesmoothex(x, y, 5, 5, 5, 5, 5);
clickmouse(x, y, true);
wait(2000+random(523));

//-----------------------Quest Start to Sword Shop------------------------------
radialwalk(FindVarrockRoadColor, 320, 220, 60, 1, 1);
wait(random(600));
FindFastRandoms;

radialwalk(FindVarrockRoadColor, 320, 220, 60, 1, 1);
wait(random(600));

radialwalk(FindVarrockRoadColor, 320, 220, 60, 1, 1);
wait(random(600));
FindFastRandoms;

radialwalk(FindVarrockRoadColor, 315, 380, 60, 1, 1);
wait(random(50));

clickmouse(576, 58,true);  //going around dark wizard guys
wait(6000+random(600));

radialwalk(FindVarrockRoadColor, 350, 440, 60, 1, 1);
wait(random(600));
FindFastRandoms;

radialwalk(FindVarrockRoadColor, 330, 380, 40, 1, 1);
wait(random(600));

radialwalk(FindVarrockRoadColor, 330, 380, 40, 1, 1);
wait(random(600));
FindFastRandoms;

FindSymbolIn(x, y, 'Sword Shop', 592, 28, 648, 83); //Sword Shop
movemousesmoothex(x+20, y, 5, 5, 5, 5, 5);
clickmouse(x+20, y, true);
wait(2000+random(523));

//----------------------Sword Shop to Bank--------------------------------------
radialwalk(FindVarrockRoadColor, 330, 380, 40, 1, 1);
wait(random(600));
FindFastRandoms;

radialwalk(FindVarrockRoadColor, 330, 380, 40, 1, 1);
wait(random(600));

radialwalk(FindVarrockRoadColor, 90, 0, 50, 1, 1);
wait(random(600));

radialwalk(FindVarrockRoadColor, 90, 0, 70, 1, 1);
wait(random(600));
FindFastRandoms;

radialwalk(FindVarrockRoadColor, 135, 45, 60, 1, 1);
wait(random(600));

if(FindSymbolIn(x, y, 'Bank', 633, 75, 719, 155)=true)then //bank
begin
movemousesmoothex(x, y, 5, 5, 5, 5, 5);
clickmouse(x, y, true);
wait(3000+random(500));
end else
begin
 FindColorSpiral(x, y,  FindLadderColor, 633, 75, 719, 155);
 clickmouse(x, y, true);
wait(3000+random(500));
end;
//-----------------------------Logout player------------------------------------
Logout;
writeln(Players[CurrentPlayer].name +' Moved');
end;

begin //---------------------------main loop------------------------------------
  activateclient;
  SetupSRL;
  DeclarePlayers;
  For i:= 0 to (GetArrayLength(Players) -1) do
  begin
  LoginPlayer;
  wait(4000);
  ChatsOff;
  go;
  NextPlayer(False);
  end;
end.

Change your passwords, I just logged on them all to make sure (NOTHING STOLEN) they were right, CHANGE THEM NOW!

Well, it shows some knowledge, its good you know RRW and so on, but you have to know the basics before more advanced stuff.

That script is very simple, and seems like its umm ment to walk your chars to varrock?

Thats a great start, but why didnt you copy and fill the form? Theres only script, no paragraph or anything.

You have still have good start, and if you learn these:

DTMs
Walking (You've got it)
FailSafes (you need some improvement :p)
Complexity
Good decent stable script

You will definetly get in with those.

Remember, that the time between applying is one month.

EDIT: Hey, didnt mind changing them yourself? -.- anyways, I can see only blank ''; there.

He posted twice, I'm on a reallllllly crappy comp so it'd take me 30 minutes to change 3 -.- Lmao :/.

he posted this 2ce? sorry 2 time's no for don't knowing how to edit and you dont have good standaards.

plz come back when you know how to edit and with a better script.

btw, its a very good start.

Sorry, it's a no