Results 1 to 5 of 5

Thread: Is It Still There

  1. #1
    Join Date
    Aug 2009
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Is It Still There

    edit: Right now would this work

    SCAR Code:
    Procedure AreWeStillMinning;
    Var Col, Fail: Integer;
    begin
      if(findcolorspiraltolerance(x,y,Rock,msx1,msy1,msx2,msy2,25))then
        Col := GetColor(x,y);
          repeat
            begin
              wait(600+random(300));
              inc(failed);
            end;
          until(not(GetColor(x,y) = Col)) or Fail => 9
            if Failed = 9 then
              inc(CantFind);
    end;
         

    Procedure Mine;
    Begin
      If (not LoggedIn) then
       Exit;
       MouseSpeed := RandomRange(14, 19);
        begin
          repeat
             SetRock;
             FindObjTPA(x, y, Rock, 7, 2, 20, 20, 12, Text);
             GetMousePos(x,y);
             Wait(50 + random(150));
              if(random(8) = 1)then
               begin
                 Mouse(x, y, 3, 3, False);
                 ChooseOption('ine');
                 AreWeStillMinning;
               end else
                 begin
                  Mouse(x, y, 3, 3, True);
                  AreWeStillMinning;
                 end;
          until (Invfull)
        end;
    end;
    Last edited by rya; 10-14-2009 at 06:52 PM.
    I see Now, says the blind man

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    GetMousePos or FindColor/Tolerance/Spiral/SpiralTolerance??

    Try searching for them

  3. #3
    Join Date
    Aug 2009
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    GetMousePos or FindColor/Tolerance/Spiral/SpiralTolerance??

    Try searching for them
    How would i use them?
    I see Now, says the blind man

  4. #4
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So:

    SCAR Code:
    var x,y, Col: Integer;
    begin
      if(FindColorTolerance(x,y,222222,MSX1,MSY1,MSX2,MSY2,6))then
      begin
        Col := GetColor(x,y);
        Mouse(x,y,5,5,true);
        repeat
          wait(600+random(300));
        until(not(GetColor(x,y) = Col));
      end;
    end;

    Something like that? 222222 is the color, the MS's are the coordinate box.

  5. #5
    Join Date
    Aug 2009
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by JAD View Post
    So:

    SCAR Code:
    var x,y, Col: Integer;
    begin
      if(FindColorTolerance(x,y,222222,MSX1,MSY1,MSX2,MSY2,6))then
      begin
        Col := GetColor(x,y);
        Mouse(x,y,5,5,true);
        repeat
          wait(600+random(300));
        until(not(GetColor(x,y) = Col));
      end;
    end;

    Something like that? 222222 is the color, the MS's are the coordinate box.
    Thanks thats just what i needed and i think i know the parameters ive tryed and failed before
    I see Now, says the blind man

Thread Information

Users Browsing this Thread

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

Posting Permissions

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