Results 1 to 5 of 5

Thread: An idea for mining

  1. #1
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default An idea for mining

    I hate how most mining scripts either you or the scripter have to make a guess for how long to wait before you mine the next rock, and I was thinking of a way to get around it, I think I found a way that would work pretty good. Could you do:

    all your mining code up here, then once it says to click and mine rock have it do
    Code:
      //at beginning of procedure have I := 0 then a repeat for mining after it so I doesn't keep getting set to 0
      mouse(x, y, 1, 1, True) //or whatever you want for it to click on rock
      I := I + 1 //after it click a rock I would = which ore number your about to mine
      repeat
        wait(100)
      Until (InvCount = I)  //unless your not wielding a pick, then you'd want I := 1 at the beginning before the repeat

    Something like that, you think that would work? any suggestions on making it better? I don't know, but wouldn't that work like perfectly? and eleminate setting a specific wait time to mine the next rock like wait(2000 + random(500)) or something like that.


    So yea, I'd like to know what everyone thinks, good idea, bad idea?

    And I realized most/all scripts in this section are ones to use to mine, if this is in the wrong spot, can a mod please move it to the appropiate area?

  2. #2
    Join Date
    Sep 2008
    Location
    New Zealand
    Posts
    157
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There are other ways this could be done but from the quick read I just did that looks like a very tidy way to do it (I haven't been around long so there may be better ways). Looks as though it would work, nice contribution!

  3. #3
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Been there... Done that...

    SCAR Code:
    {*******************************************************************************
    Procedure WaitWhileMine;
    By: Orange
    Description: Waits until you have mined the rock or until the time is up before
                 continuing.
    *******************************************************************************}

    Procedure WaitWhileMine;
    var
      IsMining, CountInv: Integer;
    begin
      GameTab(4);
      CountInv := InvCount;
      R_FFlag(0);
      wait(249 +random(516));
      if FindBlackChatMessage('swing') then
      begin
        repeat
          wait(91 +random(58));
          Inc(IsMining);
        until FindBlackChatMessage('manage') or (IsMining > 30) or (InvCount := CountInv + 1);
        wait(216 +random(38));
      end;
    end;

    Improved it a bit,

  4. #4
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    That's a good way to do it. The one time it might not work perfectly is if you mine a gem, since that will increase your invcount, but you haven't finished mining the ore yet. So you could count the number of ores in the inventory instead, using a generic ore bmp.

    The way I do it is to have a wait loop, with numerous conditions to break out of it.

    1) Detect "manage" text in the first line of the chat window.
    2) Count all the ores in inventory and wait until that number increases by 1.
    3) Wait xx seconds.
    4) Can't detect ore color anywhere on the mainscreen.
    5) Full inventory.

    That's really overkill for a simple procedure, and you certainly don't need that many conditions, but that's what I do.


  5. #5
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by orange View Post
    Been there... Done that...

    SCAR Code:
    {*******************************************************************************
    Procedure WaitWhileMine;
    By: Orange
    Description: Waits until you have mined the rock or until the time is up before
                 continuing.
    *******************************************************************************}

    Procedure WaitWhileMine;
    var
      IsMining, CountInv: Integer;
    begin
      GameTab(4);
      CountInv := InvCount;
      R_FFlag(0);
      wait(249 +random(516));
      if FindBlackChatMessage('swing') then
      begin
        repeat
          wait(91 +random(58));
          Inc(IsMining);
        until FindBlackChatMessage('manage') or (IsMining > 30) or (InvCount := CountInv + 1);
        wait(216 +random(38));
      end;
    end;

    Improved it a bit,
    that's a good idea, i like the "until FindBlackChatMessage('manage')".




    Quote Originally Posted by tarajunky View Post
    That's a good way to do it. The one time it might not work perfectly is if you mine a gem, since that will increase your invcount, but you haven't finished mining the ore yet. So you could count the number of ores in the inventory instead, using a generic ore bmp.

    The way I do it is to have a wait loop, with numerous conditions to break out of it.

    1) Detect "manage" text in the first line of the chat window.
    2) Count all the ores in inventory and wait until that number increases by 1.
    3) Wait xx seconds.
    4) Can't detect ore color anywhere on the mainscreen.
    5) Full inventory.

    That's really overkill for a simple procedure, and you certainly don't need that many conditions, but that's what I do.
    and yea that's true I forgot about getting gems, but it would work if I did it like you said, to use a ore inv. count and not just a general inv. count

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mining
    By mormonman in forum OSR Help
    Replies: 4
    Last Post: 12-24-2008, 03:23 AM
  2. 72 to 99 mining
    By Simtoon in forum RuneScape News and General
    Replies: 11
    Last Post: 09-17-2008, 12:09 PM
  3. 85 mining
    By MasterSparta in forum Discussions & Debates
    Replies: 8
    Last Post: 01-16-2008, 09:37 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
  •