Results 1 to 4 of 4

Thread: Please Test PowerMiner (iron)

  1. #1
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Please Test PowerMiner (iron)

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

    Script is:

    SCAR Code:
    //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.

  2. #2
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    er Why...

    SCAR Code:
    2: HoverSkill('Woodcutting', False);

    and instead of

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

    use something like

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

    haha just some suggestions
    “Ignorance, the root and the stem of every evil.”

  3. #3
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  4. #4
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you could test?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Auto Iron Powerminer Please :)
    By Ephraim2007 in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 07-03-2007, 02:51 AM
  2. Rimmington Iron Powerminer
    By vinny13 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 05-29-2007, 11:02 PM
  3. Iron Powerminer
    By NewToAutoing in forum First Scripts
    Replies: 8
    Last Post: 05-17-2007, 01:40 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •