Results 1 to 13 of 13

Thread: mining procedure

  1. #1
    Join Date
    Nov 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default mining procedure

    Hey,

    I'm in the midst of making a guild miner, and i'm confused about a procedure to mine the rocks. I can find the rocks fine, but i don't know how to make it wait until the coal is mined before clicking another rock. If someone could please help me that would be great .

  2. #2
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    check the chatbox text for "you manage to mine" or "there is no ore in this rock" or "you swing your pick" to make sure you actually try to mine it.
    there are many more failsafes you could do to check if another player mined it before you did, make sure to think about those. minimum put a time mark in there

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  3. #3
    Join Date
    Dec 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You would perhaps also want to check if the ore has been mined by someone else (EDIT: Already suggested, I see). A color-check would do. Say, you check the color when you click the rock and then you compare it to the current color in the rock every once in a while. It's easy as long as you know where the rock actually is.
    This sentence is false.

  4. #4
    Join Date
    Jan 2007
    Location
    Tennessee
    Posts
    642
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    //Looks for Game text in the chat box at (a, b).
    //if the bottom line has a player's chat on it, it will move up a line and so on
    //until it gets to a line with black text on it.
    function FindBlackInChat(a, b:integer): boolean;
    var
      x, y, Line: integer;
    begin
      Line:= 0;
      Result:= false;
      if not(FindColor(x, y, 16711680, 42, 451, 254, 459)) then
        Line:= 1;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 437, 254, 439)) then
          Line:= 2;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 420, 254, 427)) then
          Line:= 3;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 406, 254, 412)) then
          Line:= 4;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 394, 254, 400)) then
          Line:= 5;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 379, 254, 384)) then
          Line:= 6;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 365, 254, 369)) then
          Line:= 7;
      if Line= 0 then
        if not(FindColor(x, y, 16711680, 42, 347, 254, 357)) then
          Line:= 8;
      if Line= 1 then
        if GetColor(a, b)=  0 then
          Result:= true;
      if Line= 2 then
        if GetColor(a, b-14)=  0 then
          Result:= true;
      if Line= 3 then
        if GetColor(a, b-28)=  0 then
          Result:= true;
      if Line= 4 then
        if GetColor(a, b-42)=  0 then
          Result:= true;
      if Line= 5 then
        if GetColor(a, b-56)=  0 then
          Result:= true;
      if Line= 6 then
        if GetColor(a, b-70)=  0 then
          Result:= true;
      if Line= 7 then
        if GetColor(a, b-84)=  0 then
          Result:= true;
      if Line= 8 then
        if GetColor(a, b-98)=  0 then
          Result:= true;
    end;

    SCAR Code:
    Bla bla bla
    until(c > 20) or (FindBlackInChat(181, 454));

    You should also have a fail safe like (c > 20) in case someone mines your rock.

  5. #5
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    god no. You can either use FindLastChatBlackMessage or FindChatBlackMessage(better cheach the real name) to get all of them in a TStringArray

    ~ RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  6. #6
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    god no. You can either use FindLastChatBlackMessage or FindChatBlackMessage(better cheach the real name) to get all of them in a TStringArray

    ~ RM
    hmm i have the same problem...so FindChatBlackMessage;
    is enuff?? lol im confused and is like a tut for this that u know??

  7. #7
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    yes. it's called checking your SRL core folder probably chat.scar or something like that.

    ~ RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  8. #8
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    yes. it's called checking your SRL core folder probably chat.scar or something like that.

    ~ RM
    lol thx...hmm is there a folder for the stupd radial walk too?

  9. #9
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by faster789 View Post
    lol thx...hmm is there a folder for the stupd radial walk too?
    SRL/SRL/core/MapWalk.scar, if you dont understand, read my tut and check the RadialWalk.


  10. #10
    Join Date
    Nov 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, i go to soccer and theres like 10 posts. Thanks guys, and so far your idea works rasta

  11. #11
    Join Date
    Jan 2007
    Location
    Tennessee
    Posts
    642
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    god no. You can either use FindLastChatBlackMessage or FindChatBlackMessage(better cheach the real name) to get all of them in a TStringArray

    ~ RM
    Wow i'd rather NOT take the super slow way.

  12. #12
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    yes. it's called checking your SRL core folder probably chat.scar or something like that.

    ~ RM
    text.scar


    also a good way is to use inventory counting like:
    SCAR Code:
    var
      inventoryCount: integer;
    begin
      inventoryCount:= invCount;
      // marktime  failsafe too always always always
      repeat
        if invCount > inventoryCount then
          break;
      until(timefrommark(blah);
    end.

    my favorite way. You can use a dtm/invBox to make sure its an ore not a gem, if you wanna get fancy
    end.

  13. #13
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by munk View Post
    text.scar


    also a good way is to use inventory counting like:
    SCAR Code:
    var
      inventoryCount: integer;
    begin
      inventoryCount:= invCount;
      // marktime  failsafe too always always always
      repeat
        if invCount > inventoryCount then
          break;
      until(timefrommark(blah);
    end.

    my favorite way. You can use a dtm/invBox to make sure its an ore not a gem, if you wanna get fancy
    end.
    oo lol i was like searching for chat.scar lol thx..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mining Procedure Help
    By massive630 in forum OSR Help
    Replies: 12
    Last Post: 01-13-2008, 02:54 PM
  2. help with my mining procedure
    By stuckman in forum OSR Help
    Replies: 4
    Last Post: 06-01-2007, 06:31 AM
  3. help w/ mining procedure...
    By stupedspam in forum OSR Help
    Replies: 7
    Last Post: 04-04-2007, 02:32 AM
  4. Mining Procedure
    By stol3n in forum OSR Help
    Replies: 6
    Last Post: 04-03-2007, 07:09 AM
  5. Mining Procedure
    By ben123321 in forum OSR Help
    Replies: 9
    Last Post: 11-25-2006, 09:33 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
  •