Results 1 to 2 of 2

Thread: Help With Clay Softener

  1. #1
    Join Date
    Jul 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help With Clay Softener

    Alright im making a clay softener tha has a few problems and i think i am going about it wrong so if you can help with this please do.

    This is what i have that finds the well and uses the bucket with the well.

    SCAR Code:
    procedure FindColors; //Dont Touch this.
    begin
      MyColor := 13811373;
      FindColorsSpiralTolerance(MSCX, MSCY, ColorsTPA, MyColor, MMX1, MMY1, MMX2, MMY2, 60);
      C1 := GetColors(ColorsTPA);
      C2 := High(C1);
      for i := 0 to C2 do
        begin
          if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then
           begin
            TestColor := GetColor(ColorsTPA[i].X, ColorsTPA[i].Y);
            if SimilarColors(TestColor, 13811373, 50) then
             begin
               ColorToRGB(TestColor, R, G, B);
               ColorToHSL(TestColor, H, S, L);
               ColorToXYZ(TestColor, X, Y, Z);
               if InRange(R - G, 17, 30) then
                 if InRange(R - B, 37, 50) then
                   if InRange(G - B, 30, 50) then
                     if InRange(Round(S) - Round(H), 28, 48) then
                       if InRange(Round(L) - Round(H), -4, 14) then
                         if InRange(Round(S) - Round(L), 23, 47) then
                           if InRange(Round(X) - Round(Y), -8, 9) then
                             if InRange(Round(Y) - Round(Z), -7, 9) then
                               if GetColor(ColorsTPA[i].X + 2, ColorsTPA[i].Y + 2) = TestColor then
                                 if GetColor(ColorsTPA[i].X + 1, ColorsTPA[i].Y + 1) = TestColor then
                                 begin
                                   Writeln('MyColor = '+Inttostr(TestColor));
                                   Flag;
                                   Exit;
                                 end;
          end;
        end;
      end;
      Writeln('Couldnt find My Color!');
    end;

    SCAR Code:
    procedure usebucket;
    begin
        if FindColorSpiralTolerance(var x, y:Integer; 138113735, xs, ys, xe, ye, 50) then
        1: Mouse(x, y, 4, 4,false);
             ChooseOption('se_bucket');
        if 2: Mouse(x, y, 4, 4, True); then
        usebucket=true
      end;

    procedure BucketToWell;
    begin
        if usebucket=true then
        FindColorSpiralTolerance(var x, y:Integer; 2703438, xs, ys, xe, ye, 50)
        1: Mouse(x, y, 4, 4, True)
       end;

  2. #2
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    and?

    here this is how i did it

    SCAR Code:
    Function FindWell(var WellX, WellY : Integer; Base : Boolean) : Boolean;
    Var
      WellTPA : array of TpointArray;
      Color : array of integer;
      Well: T2DPointArray;
      I, J :Integer;
    Begin
      SetLength(WellTPA, 6);
      SetLength(Color, 6);
      //Define Colors
      ColorToleranceSpeed(2);
      WellColors(Color, Base);
      if not LoggedIn Then Exit;
      SetAngle(True);
        FindColorsSpiralTolerance(WellX, WellY, WellTPA[0], Color[0], MSX1+50, MSY1 + 50, MSX2 - 50, MSY2 - 50, 1);
      for j := 1 to High(WellTPA) do
      begin
        FindColorsSpiralTolerance(WellX, WellY, WellTPA[j], Color[j], MSX1+50, MSY1 + 50, MSX2 - 50, MSY2 - 50, 1);
        CombineTPA(WellTPA[0], WellTPA[j]);
      end;
      Well:= TPAtoATPAEx(WellTPA[0], 50, 50);
      SortATPASize(Well, True);
      For I := 0 To High(Well) Do
      Begin
        MiddleTPAEx(Well[i], WellX, WellY);
        MMouse(WellX, WellY, 0, 0);
        wait(50+random(10));
        if isuptext('ell') then
          Mouse(WellX, WellY, 0, 0, false);
          Result := ChooseOption('ell');
        If Result Then Exit;
        If Not Result Then Wait(200 + Random(500));
      End;
    End;
    ~ Metagen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Clay Softener
    By Heysus in forum First Scripts
    Replies: 61
    Last Post: 03-12-2009, 02:43 PM
  2. Clay Softener
    By gl3nni in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 10-11-2008, 10:22 PM
  3. Clay Softener
    By Killerdou in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 02-20-2007, 12:18 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
  •