Page 1 of 2 12 LastLast
Results 1 to 25 of 35

Thread: Request (A) Function(s) / Procedure(s) Here!

  1. #1
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Request (A) Function(s) / Procedure(s) Here!

    Request Away!

    I Do It All!
    - Auto Color (My FAVORITE)
    - Anti - Ban
    - Object Finding
    - Any Thing!

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function Function TFindMMBank_FloorColor: Integer;
    By: Timer
    Description: Finds Bank Floor Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMBank_FloorColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 6250600, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 6250600, 50) Then
          Begin
            ColortoHSL(TestColor, H, S, L);
            ColortoRGB(TestColor, R, G, B);
            ColortoXYZ(TestColor, X, Y, Z);
            If InRange(R - G, -12, 28) Then
              If InRange(R - B, -11, 29) Then
                If InRange(Round(X) - Round(Y), -15, 15) Then
                  If InRange(Round(X) - Round(Z), -16, 14) Then
                    If InRange(Round(H) - Round(S), -10, 4) Then
                      If InRange(Round(H) - Round(L), -44, -30) Then
                      Begin
                        WriteLn('MM Bank_Floor Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Bank_Floor Color!');
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function FindFurnace(Var X, Y: Integer): Boolean;
    By: Timer
    Description: Finds The Furnace!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

     
    Function FindFurnace(Var X, Y: Integer): Boolean;
     
    Var
      I, O, P{, Mark}: Integer;
      TPA, Fur: TPointArray;
      ATPA: T2DPointArray;
     
    Begin
      //MarkTime(Mark);
      If LoggedIn Then
      Begin
        FindColorsSpiralTolerance(521, 318, TPA, 1583510, MSX1, MSY1, MSX2, MSY2, 50);
        ATPA := TPAToATPA(TPA, 5);
        O := High(ATPA);
        For I := 0 To O Do
        Begin
          SetArrayLength(Fur, O + 1);
          Fur[i] := MiddleTPA(ATPA[i]);
        End;
        O := High(Fur);
        For I := 0 To O Do
        Begin
          MMouse(Fur[i].X, Fur[i].Y, 5, 5);
          Wait(50 + Random(20));
          If IsUpText('urna') Then
          Begin
            //WriteLn('Took ' + IntToStr(TimeFromMark(Mark)) + 'ms! (This Includes The Search! As In The Mouse Moving!)');
            Result := True;
            X := Fur[i].X;
            Y := Fur[i].Y;
            Break;
          End;
        End;
        If (Not Result) Then
          Result := FindObjTPA(X, Y, 1583510, 11, 3, 5, 5, 1, ['melt', 'nace']);
      End Else
        Result := False;
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMTreeColor: Integer;
    By: Timer
    Description: Finds The Brightest Color Green On Triangle Trees Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMTreeColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 284699, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 284699, 50) Then
          Begin
            ColortoHSL(TestColor, H, S, L);
            ColortoRGB(TestColor, R, G, B);
            ColortoXYZ(TestColor, X, Y, Z);
            If InRange(R - G, -81, -41) Then
              If InRange(R - B, 3, 43) Then
                If InRange(Round(X) - Round(Y), -18, 12) Then
                  If InRange(Round(X) - Round(Z), -12, 18) Then
                    If InRange(Round(H) - Round(S), -69, -55) Then
                      If InRange(Round(H) - Round(L), 4, 18) Then
                      Begin
                        WriteLn('MM Tree Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Tree Color!');
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMGreen_GrassColor: Integer;
    By: Timer
    Description: Finds Green Grass Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMGreen_GrassColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 1930332, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 1930332, 50) Then
          Begin
            ColortoHSL(TestColor, H, S, L);
            ColortoRGB(TestColor, R, G, B);
            ColortoXYZ(TestColor, X, Y, Z);
            If InRange(R - G, -44, -4) Then
              If InRange(R - B, 43, 83) Then
                If InRange(Round(X) - Round(Y), -19, 11) Then
                  If InRange(Round(X) - Round(Z), -7, 23) Then
                    If InRange(Round(H) - Round(S), -46, -32) Then
                      If InRange(Round(H) - Round(L), -14, 0) Then
                      Begin
                        WriteLn('MM Green_Grass Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Green_Grass Color!');
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMLumby_RoadColor: Integer;
    By: Timer
    Description: Finds Lumby Road Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMLumby_RoadColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 6579564, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 6579564, 50) Then
          Begin
            ColortoHSL(TestColor, H, S, L);
            ColortoRGB(TestColor, R, G, B);
            ColortoXYZ(TestColor, X, Y, Z);
            If InRange(R - G, -13, 27) Then
              If InRange(R - B, -12, 28) Then
                If InRange(Round(X) - Round(Y), -15, 15) Then
                  If InRange(Round(X) - Round(Z), -16, 14) Then
                    If InRange(Round(H) - Round(S), -9, 5) Then
                      If InRange(Round(H) - Round(L), -46, -32) Then
                      Begin
                        WriteLn('MM Lumby_Road Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Lumby_Road Color!');
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMWaterColor: Integer;
    By: Timer
    Description: Finds Water Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMWaterColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 12031355, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 12031355, 50) Then
          Begin
            ColortoHSL(TestColor, H, S, L);
            ColortoRGB(TestColor, R, G, B);
            ColortoXYZ(TestColor, X, Y, Z);
            If InRange(R - G, -46, -6) Then
              If InRange(R - B, -80, -40) Then
                If InRange(Round(X) - Round(Y), -17, 13) Then
                  If InRange(Round(X) - Round(Z), -37, -7) Then
                    If InRange(Round(H) - Round(S), 23, 37) Then
                      If InRange(Round(H) - Round(L), -8, 6) Then
                      Begin
                        WriteLn('MM Water Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Water Color!');
    End;

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Reserved For More Made Function(s) Procedure(s).

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

    Default

    Umm make a tree autocolorer please.
    Like for normal Round and triangular trees please

  4. #4
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just general grass? so we can walk lots of places ect...

  5. #5
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMTreeColor: Integer;
    By: Timer
    Description: Finds The Brightest Color Green On Triangle Trees Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMTreeColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 284699, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 284699, 50) Then
          Begin
            ColortoHSL(284699, H, S, L);
            ColortoRGB(284699, R, G, B);
            ColortoXYZ(284699, X, Y, Z);
            If InRange(R - G, -81, -41) Then
              If InRange(R - B, 3, 43) Then
                If InRange(Round(X) - Round(Y), -18, 12) Then
                  If InRange(Round(X) - Round(Z), -12, 18) Then
                    If InRange(Round(H) - Round(S), -69, -55) Then
                      If InRange(Round(H) - Round(L), 4, 18) Then
                      Begin
                        WriteLn('MM Tree Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Tree Color!');
    End;

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function TFindMMGreen_GrassColor: Integer;
    By: Timer
    Description: Finds Green Grass Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMGreen_GrassColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 1930332, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 1930332, 50) Then
          Begin
            ColortoHSL(1930332, H, S, L);
            ColortoRGB(1930332, R, G, B);
            ColortoXYZ(1930332, X, Y, Z);
            If InRange(R - G, -44, -4) Then
              If InRange(R - B, 43, 83) Then
                If InRange(Round(X) - Round(Y), -19, 11) Then
                  If InRange(Round(X) - Round(Z), -7, 23) Then
                    If InRange(Round(H) - Round(S), -46, -32) Then
                      If InRange(Round(H) - Round(L), -14, 0) Then
                      Begin
                        WriteLn('MM Green_Grass Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Green_Grass Color!');
    End;

  6. #6
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh thanks timer that was fast il test it soon

  7. #7
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Furnace finder if its not too much trouble. Just using FindObjTPA isn't perfectly reliable and with exams coming up I don't have that much time to make stuff, just to post asking for the stuff

    Thanks

    Dude Richard

  8. #8
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dude Richard View Post
    Furnace finder if its not too much trouble. Just using FindObjTPA isn't perfectly reliable and with exams coming up I don't have that much time to make stuff, just to post asking for the stuff

    Thanks

    Dude Richard
    SCAR Code:
    function findfurnace(var x,y : integer): boolean;
    begin
      result := findobjtpa(x, y, 2503304, 11, 3, 5, 5, 1, ['Smelt', 'Furnace']);
    end;


  9. #9
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol!!!

    He Said Its Not That Reliable...

  10. #10
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    SCAR Code:
    function findfurnace(var x,y : integer): boolean;
    begin
      result := findobjtpa(x, y, 2503304, 11, 3, 5, 5, 1, ['Smelt', 'Furnace']);
    end;
    Umm, fast, very fast. But I really need something like Hys Handle, so if it finds it will know its in the right place, otherwise it has to get to the right place. And something bigger that is like, super-reliable.

  11. #11
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dude Richard View Post
    Umm, fast, very fast. But I really need something like Hys Handle, so if it finds it will know its in the right place, otherwise it has to get to the right place. And something bigger that is like, super-reliable.
    This?

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function FindFurnace(Var X, Y: Integer): Boolean;
    By: Timer
    Description: Finds The Furnace!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function FindFurnace(Var X, Y: Integer): Boolean;

    Var
      I, O, P{, Mark}: Integer;
      TPA, Fur: TPointArray;
      ATPA: T2DPointArray;

    Begin
      //MarkTime(Mark);
      If LoggedIn Then
      Begin
        FindColorsSpiralTolerance(521, 318, TPA, 1583510, MSX1, MSY1, MSX2, MSY2, 50);
        ATPA := TPAToATPA(TPA, 5);
        O := High(ATPA);
        For I := 0 To O Do
        Begin
          SetArrayLength(Fur, O + 1);
          Fur[I] := MiddleTPA(ATPA[I]);
        End;
        O := High(Fur);
        For I := 0 To O Do
        Begin
          MMouse(Fur[I].X, Fur[I].Y, 5, 5);
          Wait(50 + Random(20));
          If IsUpText('urna') Then
          Begin
            //WriteLn('Took ' + IntToStr(TimeFromMark(Mark)) + 'ms! (This Includes The Search! As In The Mouse Moving!)');
            Result := True;
            X := Fur[I].X;
            Y := Fur[I].Y;
            Break;
          End;
        End;
        If (Not Result) Then
          Result := FindObjTPA(X, Y, 1583510, 11, 3, 5, 5, 1, ['melt', 'nace']);
      End Else
        Result := False;
    End;

  12. #12
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Timer, really nice functions, rep+ for you.
    But, using that much tolerance isn't needed. Especially in your MM functions. Henestly, 80 tolerance is way too much.

  13. #13
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe... But... Colors Vary A Lot...
    Plus You Wanna Test E V E R Y Color Like Yours.

    I Think Its Fine.. I Find Water Color In 3 ms

  14. #14
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    He needed to get this out of his system... I guess I'll give you another one to use. Can i still just give you a color like i did on AIM a couple days ago? If so, here is the color 2782792. It's the minimap green tint of the tree. Also, get on AIM when you get on.
    <3 Wuv is in the air!<3

  15. #15
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Dude Richard View Post
    Furnace finder if its not too much trouble. Just using FindObjTPA isn't perfectly reliable and with exams coming up I don't have that much time to make stuff, just to post asking for the stuff

    Thanks

    Dude Richard
    I've noticed

  16. #16
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dude Richard, Have You Noticed The Function Yet?

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

    Default

    Yes @EC you actually need alot of tolerance for MM.

    Thx Timer for the function rep++ to you!

  18. #18
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Quote Originally Posted by Timer View Post
    Dude Richard, Have You Noticed The Function Yet?
    Yes! Rep++ for you and I'll credit you on the release of the script. Don't know how long it will be though.

    Thanks loads for this, I'll get testing on it now and say how well it works.

  19. #19
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Work Well?

  20. #20
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alrite i got an autocolor one for you. Here is the color 6250600

  21. #21
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here!

    SCAR Code:
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Function Function TFindMMBank_FloorColor: Integer;
    By: Timer
    Description: Finds Bank Floor Color!
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    Function TFindMMBank_FloorColor: Integer;

    Var
      R, G, B, I,
      TestColor: Integer;
      H, S, L, X,
      Y, Z: Extended;
      TPA: TPointArray;

    Begin
      FindColorsTolerance(TPA, 6250600, MMX1, MMY1, MMX2, MMY2, 80);
      For I := 0 To High(TPA) Do
        If rs_OnMiniMap(TPA[I].X, TPA[I].Y) Then
        Begin
          TestColor := GetColor(TPA[I].X, TPA[I].Y);
          If SimilarColors(TestColor, 6250600, 50) Then
          Begin
            ColortoHSL(6250600, H, S, L);
            ColortoRGB(6250600, R, G, B);
            ColortoXYZ(6250600, X, Y, Z);
            If InRange(R - G, -12, 28) Then
              If InRange(R - B, -11, 29) Then
                If InRange(Round(X) - Round(Y), -15, 15) Then
                  If InRange(Round(X) - Round(Z), -16, 14) Then
                    If InRange(Round(H) - Round(S), -10, 4) Then
                      If InRange(Round(H) - Round(L), -44, -30) Then
                      Begin
                        WriteLn('MM Bank_Floor Color = ' + IntToStr(TestColor));
                        Result := TestColor;
                        Exit;
                      End;
          End;
        End;
      WriteLn('Couldn''t Find MM Bank_Floor Color!');
    End;

  22. #22
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you Timer! Rep++ for you! You are like the coolest person on these forums and also the nicest!

  23. #23
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Timer, Have you ever read my tut on autocoloring ? I can see you are using my autocoloring style


  24. #24
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I Just Used The Amounts To Put It At, I Vary For Different Colors...

    I Never Really Read It.. Just Went To The Good Amounts... Like I Said, I Vary It...

    I've Known Auto Coloring Since Like 1 Year Before You Posted Your Tut...
    I Used The Same Amounts You Posted... Weird!

  25. #25
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    This would be kind of a really hard request, Timerrr.

    You know SmartColors by Tara?
    Imrove it.

    Improve it so I can use it in my script easilly.
    I don't know how you could improve it. But, I'm sure you would know how.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. A Function/Procedure
    By Abbott in forum OSR Help
    Replies: 7
    Last Post: 09-09-2008, 08:48 PM
  2. 1 procedure or function
    By Kasi in forum OSR Help
    Replies: 1
    Last Post: 03-03-2008, 10:12 PM
  3. Taking function request
    By Negaal in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 02-13-2008, 10:09 PM
  4. Well this is a function request.
    By n3ss3s in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-24-2007, 06:29 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
  •