SRL Archive - Research & Development Lounge

Could someone please test my script hope this is the right area to post.

Script is:

//Major Cred to iron_man_ftw, Narcle

program MyPowerMine;
{.Include SRL\SRL.SCAR}

var
x, y : integer;


const
RockColor1 = 2437977;
RockColor2 = 2306390;

procedure DeclarePlayers;
begin

     HowManyPlayers := 1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:= 0

     Players[0].Name   := '';
     Players[0].Pass   := '';
     Players[0].Nick   := '';
     Players[0].Active := True;
     Players[0].Booleans[0] := True;//True for equipped Pickaxe. False for in Inv

end;

{                             ____
                         NO  /____\ Entrance
<><><><><><><><><><><><><><>|Master|<><><><><><><><><><><><><><><><>
                            |______|                                }


Procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp('Mining');
end;


procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: DoEmote(400 +Random(90));
  end;
end;


procedure RockMining;
begin
  repeat //move repeat up here
    if not LoggedIn then //place failsafe inside repeat
     Exit;

     if FindObjTPA(x, y, RockColor, 20, 2, 20, 20, 10, ['ine', 'Min', 'Mine']) then //just this one is needed
    begin//added a begin
      case Random(2) of
        0: begin
             Mouse(x, y, 4, 4,false);
             ChooseOption('ine');
           end;
        1:Mouse(x, y, 4, 4, True);
      end;
      Wait(2000+random(1000));//wait for it to be mined
    end;//added a end
  until (InvFull)
end;



procedure DropOres;

var
   i: integer;

begin
     if (InvFull) then
     case Players[CurrentPlayer].Booleans[0] of
     True: DropAll;
     False: begin
            for i := 2 to 28 do
            DropItem(i);
            end;
        end;
Wait(500 + random(1501));
end;


Procedure Signature;
begin
Writeln('  ___    ___   ___   __    __ ___  ___  ');
wait(50)
Writeln(' |   \  /   | |   | |  \  |  |   |/  /  ');
wait(50)
Writeln(' |    \/    | |   | |   \ |  |      /   ');
wait(50)
Writeln(' |   |\/|   | |   | |    \|  |      \   ');
wait(50)
Writeln(' |   |  |   | |   | |  |\    |       \  ');
wait(50)
Writeln(' |___|  |___| |___| |__| \___|___/\___\ ');
end;


begin
  SetupSRL;
  Signature;
  ActivateClient;
  repeat
    RockMining;
    AntiBan;
    DropOres;
    AntiBan;
  until (False)
end.

er Why…

 2: HoverSkill('Woodcutting', False);

and instead of

 if FindObjCustom(x, y, ['Min', 'ine'], [RockColor1, RockColor2], 7) then

use something like

 if FindObjTPA(x, y, RockColor, 20, 2, 20, 20, 10, ['ine', 'Min', 'Mine']) then

haha just some suggestions :p

this was based on torrent of flames tut and its not really updated (like all the tutorials) so i dont no what still walks and what doesnt, thats why i need someone to test.

you could test?