Results 1 to 7 of 7

Thread: Power Miner help

  1. #1
    Join Date
    Jul 2008
    Location
    Wyoming
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Power Miner help

    I am currently working on my first true no work power miner and I would just like some help

    I will post sections of code when I get them completed I would like some help

    SCAR Code:
    program MiningTrainer;
    {////////////////////////////
    Created by Harkonnen for training your army up to around level 30
    Please do not use past this or else you might raise the suspisions of our
    benevolent Jagex leaders. =) Mainly used for Copper or Tin depending on if you
    want to alter the code yourself. If you do feel free to change rocks too in
    theory this could be used for any rocks I suggest Copper or tin though.
    ////////////////////////////}

    {////////////////////////////
    Personal set up for mining, make sure to imput all username passwords nicks ect...
    In your runescape settings please make sure that you turn off all visual settings
    make all settings as basic a possible. Then turn your brightness into very bright.
    Other than that there should be nothing that you need to do.
    ////////////////////////////}


    var Rocky1, Rocky2, Rockcolor1: RockColor2: Integer; // Declares variables for rocks
    procedure DeclarePlayers
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;
    //
      Players[0] .Name := 'Username';  //Players Username
      Players[0] .Pass := 'Password';  //Players Password
      Players[0] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      Players[0] .Active := True;     // If you do not want to use this player make active = false
    //
      Players[1] .Name := 'Username';  //Players Username
      Players[1] .Pass := 'Password';  //Players Password
      Players[1] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      Players[1] .Active := True;     // If you do not want to use this player make active = false
    //
      Players[2] .Name := 'Username';  //Players Username
      Players[2] .Pass := 'Password';  //Players Password
      Players[2] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      Players[2] .Active := True;     // If you do not want to use this player make active = false
    //
      Players[3] .Name := 'Username';  //Players Username
      Players[3] .Pass := 'Password';  //Players Password
      Players[3] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      Players[3] .Active := True;     // If you do not want to use this player make active = false
    //
      Players[4] .Name := 'Username';  //Players Username
      Players[4] .Pass := 'Password';  //Players Password
      Players[4] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      Players[4] .Active := True;     // If you do not want to use this player make active = false
    {////////////////////////
    If you want to add another another plyer make wure to change the proper numbers.
    Also use this form to add players.
      Players[#] .Name := 'Username';   //Players Username
      Players[#] .Pass := 'Password';   //Players Password
      Players[#] .Nick := '3-4 Lw Case letters of Username';   //Players nick for randoms
      PLayers[#] .Active := True;   // If you do not want to use this player make active = false
    ////////////////////////}

    procedure AutoColorRocks;     // Auto coloring the rocks
    begin

      Rocky2 := DTMFromString('78DA634C676260E86264000166060868CEF66' +
           '69003D220D1FF40C0580254D38DAAE658B1315C0D08301601D534' +
           'A0AAD9936B88AA2617534D45922BAA9A2AA09A7654359DF97EA86' +
           'ACA816AFA51D55CA83443559303543389805DC998FE4A0EB04451' +
           '03001CEA16DD');
      if(FindDTM(Rocky2, x, y, MIX1, MIY1, MIX2, MIY2))then
      begin
        Mouse(x,y,2,2,true);
        Writeln(IntToStr(RockColor2));
      end;
    end;
    //
    procedure RockMining;
    begin
      if not LoggedIn then
        Exit;
      if (not (FindObjCustom(x,y, ['Mi', 'ne'], [RockColor1], 7))) then
        wait(100+random(100))
        if RockColor1 := false then
          make Compass := 'N' else
            Tries := Tries + 1;
              if(Tries+random(25) = 40)then
                begin
                  Logout;
                  Exit;
                end else
          if RockColor1 := false then
            make Compass := 'E' else
            Tries := Tries + 1;
              if(Tries+random(25) = 40)then
                begin
                  Logout;
                  Exit;
                end else
            if RockColor1 := false then
              make Compass := 'S' else
            Tries := Tries + 1;
              if(Tries+random(25) = 40)then
                begin
                  Logout;
                  Exit;
                end else
              if RockColor1 := false then
                make Compass := 'W' else
            Tries := Tries + 1;
              if(Tries+random(25) = 40)then
                begin
                  Logout;
                  Exit;
                end else
                repeat until RockColor1 := true
                end;
              end;
            end;
          end;
        end;
        if FindObjCustom(x, y, ['Min', 'ine'], [RockCOlor1, ], 7) then
      repeat
      case (random)2)) of
        1: Mouse(x, y, 4, 4, false);
          ChooseOption('ine');
        2: Mouse(x, y, 4, 4, True);
      end;
      until (InvFull)
    end;
    end.

  2. #2
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    BitMaps too Large,
    AutoColoring that sort of large image gives a higher chance of getting the wrong color, therefor it will click something else.

    Best use either TPA or FindObjTPA.

    DDTM mgiht work, or FindColorSpiralTolerance....

  3. #3
    Join Date
    Jul 2008
    Location
    Wyoming
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok well for the second rock I just trried to get a DTM to work so I changed the code what do you think I will work on the first one now

  4. #4
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    SCAR Code:
    if(FindDTM(Rocky2,x,y,Coords1,Coords1,Coords2,Coords2))then

    should be....

    SCAR Code:
    if (FindDTM(Rocky2, x, y, MSX1, MSY1, MSX2, MSY2)) then

    What is MSX1 and MSY1? Well those are the coords for the entire main screen. (NOT including the Inventory, Mini Map or Chat box.

    Heres the codes

    MSX1, MSY1, MSX2, MSY2 - Main Screen
    MIX1, MIY1, MIX2, MIY2 - Inventory
    MMX1, MMY1, MMX2, MMY2 - Mini Map
    MCX1, MCY1, MCX2, MCY2 - ChatBox

    this helps find a specific part of the RS Client. What i just did in your FindDTM function is search in the Main Screen.

  5. #5
    Join Date
    Jul 2008
    Location
    Wyoming
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Actually sense the DTM is supposed to be in the inventory for the drop should I move that to the droprocks procedure?

  6. #6
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    I wouldn't suggest to use a DTM or a Bitmap to find the rock. I would use one about 2 colours, and a tolerance level of 25 to find the colours using FindColorSpiralTolerance. Way more efficient
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  7. #7
    Join Date
    Jul 2008
    Location
    Wyoming
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    But would it work with the code i have now the code box has been updated

    I think I will change it so that the only thing other than the DTM is just the color user picked like you said

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. power miner
    By loliker123 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-28-2008, 09:12 PM
  2. I need help with my power miner
    By dallas574 in forum OSR Help
    Replies: 3
    Last Post: 04-27-2008, 04:26 PM
  3. Power Miner
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-11-2007, 06:51 PM
  4. Power miner??????
    By dewituwont in forum OSR Help
    Replies: 4
    Last Post: 06-18-2007, 03:34 PM

Posting Permissions

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