SRL Archive - RS3 Outdated / Broken Scripts

Here it is.
My PowerMiner! (BETA)
It can only have just 1 player atm, but in later versions that will be fixed.

If anyone could give me a tut on Implenting MultiPlayer into this, Thanks!

It has Antirandoms, Antiban, and things like that.

Enjoy Autoing!

(Please rate 1/10)

Mined 28 Iron ore then never dropped and continued to act like mining

Uhh, for me it worked :p
Mmm, gotta work alot on dropping procedure.

Will maybe try it, but how many hours can you run it?

Well, since i dont have many accounts that can mine except for RICH ones, p2p, etc.
I havent tested it myself for too long, but once for 30mins, and that went well, with all the dropping, but that was before i came with a Progress Report, so i dont know how much i did.

Actually this was a BETA version, because there were many flaws

From: floor66
Well, since i dont have many accounts that can mine except for RICH ones, p2p, etc.
I havent tested it myself for too long, but once for 30mins, and that went well, with all the dropping, but that was before i came with a Progress Report, so i dont know how much i did.

Actually this was a BETA version, because there were many flaws

Use this instead of your (username) thing:

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Username; //Your Username.
  Players[0].Pass := 'Password'; // Your Password.
  Players[0].Nick := 'sern'; // 3-4 letters from your name.
  Players[0].Active := True; //True = Use player, False = Don't use.

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

& you can use LoginPlayer;
instead of your login & click the red thing. + when clicking the ores, add it like Mouse(x, y, 3, 3, true); so it wont click straight on the color.

Okay thanx vm!

But, how do i set it with NextPlayer etc.

From: floor66
Okay thanx vm!

But, how do i set it with NextPlayer etc.

Add more players to the Declare Players procedure, Ex:

procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username'; //Your Username.
  Players[0].Pass := 'Password'; // Your Password.
  Players[0].Nick := 'sern'; // 3-4 letters from your name.
  Players[0].Integers[0] := 100; //Loads of ore to mine
  Players[0].Active := True; //True = Use player, False = Don't use.

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := True;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := True;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

& Then down in your MainLoop(where you don't start w/ a procedure or function name) have something like:

begin
  SetupSRL;
  MouseSpeed := 12 +Random(5);
  LoadArrays;
   Credits;
   wait(1000);
   ActivateClient;
  LoginPlayer;
 wait(3000);
    SetRun(True); //You don't need to use "RunOn" this will do it for you
 MakeCompass(Angle); //True = Turn it on, False = Turn it off(Run)^^^
   repeat
   repeat
     MineThaOre;
     AntiBan;
     MakeCompass('E');
     FindFastRandoms;
     Randoms;
    until(InvFull);//Checks if the last postion in your inv is full
    If (InvFull) then
    begin
    Players[0].Integers[0] := Players[0].Integers[0] +1;//This is in DeclarePlayers
   DropToPosition(1, 28);
  SrlRandomsReport;
     Proggy;
   NextPlayer(True);//Logs in the next player & marks the current as Active
   until(false);
end.

If you use that last part^^ in your mining procedure try this:

procedure MineThaOre;
begin
Repeat //added
if (not(LoggedIn)) then
Exit;
if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
(FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
(FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
MMouse(x, y, 0, 0);
wait(100+random(100));
if IsUpText('ine') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
FindPick;
GasFound(x, y);
wait(3000+random(1000));
If InChatMulti('age to', 'ine', 'ome') then
RocksMined := RocksMined + 1;
Exit;
If InChatMulti('no', 'ore', 'avail') then
Exit;
Until(InvFull);//added<<^^
end;
end;

Hope that helps without me rewriting parts of the script ;). Try using a Formatter also so it reads better(below), just take out all the "/////"'s at the very beginning of script or it messes it up :)