Results 1 to 8 of 8

Thread: help w/ mining procedure...

  1. #1
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    help w/ mining procedure...

    Ok im making the script (look in sig for name) and I need to mine clay... the one we (A G E N T 83 and I) made but it some times works or not at all...when it does work it will move the mouse to the corrnor of the screen then find the rock and click it ( but only sometimes...)
    *Note* made two

    Here is one of them:
    SCAR Code:
    Procedure MineClay;

    Var Dx,Dy,Ex,Ey:Integer;
    Begin
    If FindMSColor(x,y,Claycolor) Then
      Begin
        if(FindObjOre2(x, y, 'Mine', GetClayColor , OreTol, MinCount))then
         Begin
           MarkTime(FailSafeTime);
           Mouse(x, y, 0, 0, False);
           ChooseOption(Ex, Ey, 'ine');
           repeat
             if TimeFromMark(FailSafeTime) > 30000 then Exit
             if not LoggedIn then Exit;
             DoMiningRandoms;
             Wait(200)
           until InChat('manage')
         End;
        End;
       End else
         Begin
           Writeln('Clay not found.')
           NextPlayer(false)
         End;
      End;

    And the secound one:
    SCAR Code:
    Procedure MineClay;

    Var Dx,Dy,Ex,Ey:Integer;

    Begin
     If FindMSColor(x,y,Claycolor) Then
      Begin
        If Random (9) < 7 Then Mouse(x, y, 0, 0, True)
         Else
         Begin
           MarkTime(FailSafeTime);
           repeat
             if TimeFromMark(FailSafeTime) > 30000 then Exit
             if not LoggedIn then Exit;
             Mouse(x, y, 0, 0, False);
             ChooseOption(Ex, Ey, 'ine');
             DoMiningRandoms;
           until InChat('manage')
         End;
        End;
       End else
         Begin
           Writeln('Clay not found.')
           NextPlayer(false)
         End;
      End;

    Thanks for taking you time to read this and please help if you can befor our heads explode...

  2. #2
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you set the client? DId you declare ClayColor as a variable?

  3. #3
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes to both... and do you mean constant instead of variable?

  4. #4
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I meant like you made it cly colored.

    Well, you might need to use FIndMSColorTol, or some other colorfinding with tolerance.

  5. #5
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok so which procedue if either do you think would work the best?? And what is the best number for the tol?

  6. #6
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    10-15 if you just want to use a static number

    Many scripters will put it in a for loop and start out with 5, increasing it as time goes on and the color isn't found.
    Interested in C# and Electrical Engineering? This might interest you.

  7. #7
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    and the color isn't found.
    Do you mean if or is the procedure not finding the color??

    Thanks for the help Infintry001! and Smartzkid!

  8. #8
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    he meant if :P

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mining procedure
    By weequ in forum OSR Help
    Replies: 6
    Last Post: 04-10-2008, 01:08 PM
  2. Mining Procedure Help
    By massive630 in forum OSR Help
    Replies: 12
    Last Post: 01-13-2008, 02:54 PM
  3. help with my mining procedure
    By stuckman in forum OSR Help
    Replies: 4
    Last Post: 06-01-2007, 06:31 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
  •