SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
metagen - SRL Member Application Form
metagen

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
i know a bit of C++, HTLM, Javascript, C#

Other Communitys
just this one =]

How Long have You Played Runescape
since 2002

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I am 16 and i live in ontario canada. I always like programming and am thinking of a career in programming. I used to macro a long time ago in RSC but now everything is way different (SRL exists now). I program sometimes in the languages above, but i'm not much (i know the basics of them).

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

// 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.

——————————————————
<!– END TEMPLATE: formanswers –>

Change your passwords from other script you left them in :/, also, why double post? Scar tags plawkz :o.

No, there is no SCAR Tags, no Standards, i dont really know what the script is (Its annoying looking at code whats not in tags), i can see clickmouse aswell

Please use Mouse(x,y,1,1,true) instead of clickmosue please. Clickmouse = Ban.

EDIT: reaction at your other aply….

2 apps, other one has more attention.

Closed.