Results 1 to 9 of 9

Thread: free scripst plaeze

  1. #1
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default free scripst plaeze

    Ok now that u think im some noob leacher and have ur attention, I've been making a powerminer.
    Problem is, when it mines, it keeps clicking on the rock like an impatient 9 year old would, as in it clicks on one rock, 5 times, then goes to the next one, mines for like one second, then when the previous ore respawns it goes back to that one, and spam clicks it.
    I'd like to know how to fix it, not just why it happens

    I also want to know how Wizzup's power mine script knows exactly when the ore has been mined.


    This is the mining part of the script:

    SCAR Code:
    Function Mine : Boolean;
    var
      timer: integer;
    Begin
      Repeat
      If (FindObj(x,y, 'Mine', EssColor, 5)) then
      Begin
        MMouse(x,y,1,1)
        If IsUpText('ine') Then
        Mouse(x,y,1, 1, true)
        if FindText(x, y, 'wing you', smallchars, 21, 390, 199, 430) then
        Begin
        marktime(Timer);
        repeat
          if not (LoggedIn) then Exit;
          wait(700 + random(900));
          FindFastRandoms;
          AntiRandoms;
          if (GasCheck(Ax, Ay)) then
          FindGasses;

        until FindText(x, y, 'anage', smallchars, 20, 401, 477, 433) or (timefrommark(Timer) > WaitTime);
        Wait(1000+random(1000));
        Mined := Mined + 1


        End;
     End;
     Until(InvFull)
    End;
    I borrowed part of a procedure from RKROXPUNK's V E M script.

    and yes i know i made a topic like this earlier, no one would tell me HOW to fix it so i deleted it TWICE.

  2. #2
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    SCAR Code:
    Function Mine : Boolean;
    var
      timer: integer;
    Begin
      Repeat
      If (FindObj(x,y, 'Mine', EssColor, 5)) then
      Begin
        Mouse(x,y, 0, 0, true);
        Flag; //Waits until you're done walking
        MarkTime(Timer);
         repeat
          Wait(50)
          if TimeFromMark(Timer) > 2000 then
          begin
            WriteLn('Clicking failed');
            Mine; //Repeats this procedure
          end;  
         until FindText(x, y, 'wing', smallchars, 21, 390, 199, 430);
        marktime(Timer);
        repeat
          if not (LoggedIn) then Exit;
          wait(700 + random(900));
          FindFastRandoms;
          AntiRandoms;
          if (GasCheck(Ax, Ay)) then FindGasses;
        until FindText(x, y, 'anage', smallchars, 20, 401, 477, 433) or (timefrommark(Timer) > WaitTime);
        Wait(1000+random(1000));
        Mined := Mined + 1
      end;
     Until(InvFull)
    End;

    I added waits between your checks for text.
    Hup Holland Hup!

  3. #3
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    As far as wizzups powerminer knowing when an ore has been mined i think it relies on a Invcount

  4. #4
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by me_ntal View Post
    As far as wizzups powerminer knowing when an ore has been mined i think it relies on a Invcount
    Maybe so, but it checks if the text in the chat box appears (youve managed to mine noob rock ) and it aint that hard to do!

  5. #5
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    I did that inSane, it detects it the first time then after that it impatiently clicks.
    And thanks nielsie95, but it mined better, but still cant stay on one rock til its mined.
    It goes for a rock, mines it, goes for another, hits it one or two times the other respawns then it re clicks without waiting for the "You have managed to get ore out of rock" thingo

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Procedure Main;
    if (findColorTolerance(x,y,color,344,632,243,133,5)th en
    Mouse(x,y,2,2,true);
    until(InChat('You have managed to mine and ore');
    Main;
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    How did you set WaitTime? (You need too set it in MilliSeconds)
    Hup Holland Hup!

  8. #8
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    I set time to 4k, or 4 seconds.

  9. #9
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Maybe try setting your waittime like 12000 and see how things go?
    Hup Holland Hup!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Free WoW = RoM?
    By BanditX in forum Gaming
    Replies: 23
    Last Post: 12-24-2011, 08:06 AM
  2. How To Get WoW for free>>
    By Smarter Child in forum Gaming
    Replies: 20
    Last Post: 04-09-2009, 04:53 AM
  3. Great Site, Earn Free cash on The internet! Get RS MEM Free!
    By sidishere in forum Misc. Links and Programs
    Replies: 4
    Last Post: 03-14-2008, 11:45 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
  •