Results 1 to 3 of 3

Thread: Making my simple rune miner

  1. #1
    Join Date
    Jun 2007
    Posts
    235
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Making my simple rune miner

    Alright this is all i got so far for my script, and its all from Sumillion's auto color aid lol.

    Code:
    program FindObject;
    {.include SRL\SRL.scar}
    
    var
      x, y: Integer;
    
    function FindObject(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      H, S, L: Extended;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);
    
      if not(FindColorsTolerance(arP, 9206074, MSX1, MSY1, MSX2, MSY2, 39)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        Exit;
      end;
    
      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);
    
      for i := 0 to arL do
      begin
        ColorToHSL(arC[i], H, S, L);
    
        if (H >= 51.98) and (H <= 56.46) and (S >= 22.30) and (S <= 69.49) and (L >= 37.23) and (L <= 43.94) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);
    
          if (X >= 11.87) and (X <= 16.58) and (Y >= 13.96) and (Y <= 20.08) and (Z >= 19.26) and (Z <= 35.77) then
          begin
            for j := 0 to arL2 do
            begin
              if (arUC[i] = arC[j]) then
              begin
                SetLength(arAP, Length(arAP) + 1);
                arAP[High(arAP)] := arP[j];
              end;
            end;
          end;
        end;
      end;
    
      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);
    
      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (IsUpText('Take')) then
        begin;
          Result := True;
          Break;
        end;
      end;
    
      ColorToleranceSpeed(tmpCTS);
    
      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;
    
      GetMousePos(fx, fy);
    end;
    
    begin
      SetupSRL;
      FindObject(x, y);
    end.
    What i need from here is it to click when it finds the object. I need login. I need it to log out if it doesnt find the color and then some antirandoms and antiban.

  2. #2
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You got some kind of conv program? Msn?
    I help you out

  3. #3
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    in the main loop add

    SCAR Code:
    begin
      SetupSRL;
      ActivateClient;
      Declareplayers;//Multiplayer
      wait(1250 +random (750));
       Loginplayer;
    {rest of
    the script}

    blah;
    blah
    blah;
    until(loads);

    get me drift?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Very SIMPLE Rune Miner
    By nobody u kno in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 07-13-2008, 05:09 AM
  2. Simple rune buyer?
    By ammo2006 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 05-01-2008, 06:32 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
  •