FastFindLadderColor and FindLaddersIn

Printable View

Hey,

I made this for my Lumbridge script. It does practically what it says; it finds the laddercolor on the minimap (and fast :p). Works great for me and takes about 15ms.

SCAR Code:

function FastFindLadderColor: Integer;
var
  i, c, n, bmp, Handle, cts:Integer;
  p: TPointArray;
  ca: TIntegerArray;
  pa: TPointArrayArray;
  W, H, S, L: Extended;
begin
  if (not LoggedIn) then Exit;
  bmp := BitmapFromString(MMX2 - MMX1, MMY2 - MMY1, '');
  CopyClientToBitmap(bmp, MMX1, MMY1, MMX2, MMY2);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  Handle := GetClientWindowHandle;
  SetTargetBitmap(bmp);
  FindColorsSpiralTolerance(MMCX - MMX1, MMCY - MMY1, p, 79973, 0, 0, MMX2 - MMX1, MMY2 - MMY1, 55);
  pa := SplitTPAEx(p, 2, 2);
  n := Length(pa) -1;
  SortATPAFromSize(pa, 32, True);
  for i := 0 to n do
    if (Length(pa[i]) > 15) and (Length(pa[i]) < 42) then
    begin
      c := FastGetPixel(bmp, pa[i][0].x, pa[i][0].y);
      //WriteLn(IntToStr(c)+'   '+IntToStr(Length(pa[i])));
      ColorToHSL(c, H, S, L);
      if (H < 11.0) and (H > 4.5) then
        if (L < 30.0) and (L > 10.0) then
        begin
          ca := GetColors(pa[i]);
          ClearSameIntegers(ca);
          if (Length(ca) = 1) then
          begin
            p := ReArrangeTPA(pa[i], 0, Length(pa[i]), True, True);
            w := Abs(p[0].x - p[Length(p) -2].x);
            p := ReArrangeTPA(pa[i], 0, Length(pa[i]), False, True);
            h := Abs(p[0].y - p[Length(p) -2].y);
            WriteLn('Color: '+IntToStr(c)+'w: '+FloatToStr(w)+' h: '+ FloatToStr(h));
            WriteLn('ratio: '+FloatToStr(MaxE(w, h) div MinE(w, h)));
            if (MaxE(w, h) div MinE(w, h) >= 1.12) and (MaxE(w, h) div MinE(w, h) <= 1.8) then
            begin
              Result := c;
              Break;
            end;
          end;
        end;
    end;
  SetLength(p, 0);
  SetLength(pa, 0);
  SetClientWindowHandle(Handle);
  FreeBitmap(bmp);
  ColorToleranceSpeed(cts);
end;

FindLaddersIn also does what it says. It finds all the ladders in an area on the minimap :)

SCAR Code:

function FindLaddersIn(x1, y1, x2, y2: Integer): TPointArray;
var
  i, n, bmp, Handle, cts, x, y, r:Integer;
  p: TPointArray;
  pa: TPointArrayArray;
  W, H: Extended;
begin
  if (not LoggedIn) then Exit;
  if (LadderColor = 0) or (not FindColor(x, y, LadderColor, MMX1, MMY1, MMX2, MMY2)) then
    LadderColor := FastFindLadderColor;
  bmp := BitmapFromString(x2 - x1, y2 - y1, '');
  CopyClientToBitmap(bmp, x1, y1, x2, y2);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  Handle := GetClientWindowHandle;
  SetTargetBitmap(bmp);
  FindColorsSpiralTolerance(((x1 + x2) / 2) - x1, ((y1 + y2) / 2) - y1, p, LadderColor, 0, 0, x2 - x1, y2 - y1, 0);
  pa := SplitTPAEx(p, 2, 2);
  n := Length(pa) -1;
  SortATPAFromSize(pa, 32, True);
  for i := 0 to n do
    if (Length(pa[i]) > 20) and (Length(pa[i]) < 42) then
    begin
      {p := ReArrangeTPA(pa[i], 0, Length(pa[i]), True, True);
      w := Abs(p[0].x - p[Length(p) -2].x);
      p := ReArrangeTPA(pa[i], 0, Length(pa[i]), False, True);
      h := Abs(p[0].y - p[Length(p) -2].y);
      if ((MaxE(w, h) div MinE(w, h)) >= 1.12) and ((MaxE(w, h) div MinE(w, h)) <= 1.8) then
      begin}
        SetLength(Result, r +1);
        Result[r] := MiddleTPA(pa[i]);
        IncEx(Result[r].x, x1);
        IncEx(Result[r].y, y1);
        Inc(r);
      //end;
    end;
  SetLength(p, 0);
  SetLength(pa, 0);
  SetClientWindowHandle(Handle);
  FreeBitmap(bmp);
  ColorToleranceSpeed(cts);
end;

Please post bugs/improvements/suggestions :)

Nielsie95

10-02-2007, 08:09 PM
Wizzup?

Very nice. :)
10-02-2007, 08:33 PM
the scar noob

Indeed Wizzup? this is nice.
Can I ask some questions?
a.)Am I right that Abs get the abstract value?
b.)Am I right that once you call SetTargetBitmap that the procedures/fucntions you do are only going to be used in that bitmap?
c.)What does ReArrangeTPA do?
d.)Xhat does SetClientWindowHandle do?

If possible can you explain me??
My questions can be very stupid, but ple so answer them, I want to learn things and I want to learn them the right way, asking people :)

Thanks in advance,

Stijn.
10-02-2007, 08:36 PM
Markus

Quote:

Originally Posted by the scar noob

Indeed Wizzup? this is nice.
a.)Am I right that Abs get the abstract value?
It just converts a negative number in a positive one.
b.)Am I right that once you call SetTargetBitmap that the procedures/fucntions you do are only going to be used in that bitmap?
Yes
d.)Xhat does SetClientWindowHandle do?
The window handle (Id of a (part) window) gets set (it'll tell scar use the window with that ID)

:f:
Lemme study this a bit first, all that TPA stuff gets confusing after a while.
edit: this gets the laddercolor by looking at the ratio of a ladder? If so wow, never saw something like that before.
10-02-2007, 08:44 PM
WT-Fakawi

Very sophisticated. I am glad to see you have outmastered me :)
10-02-2007, 09:09 PM
ShowerThoughts

i got headache i can dream about i am so good as fawk someday
10-02-2007, 09:11 PM
mastaraymond

Well done ;).
10-02-2007, 09:16 PM
Lorax

great, very usefull..
10-02-2007, 09:16 PM
ShowerThoughts

Quote:

Originally Posted by hermpie

i got headache, i can dream about i am so good as fawk someday

nielsie i wont forget you :p
10-02-2007, 09:24 PM
SKy Scripter

Quote:

Originally Posted by the scar noob

Indeed Wizzup? this is nice.
Can I ask some questions?
a.)Am I right that Abs get the abstract value?
b.)Am I right that once you call SetTargetBitmap that the procedures/fucntions you do are only going to be used in that bitmap?
c.)What does ReArrangeTPA do?
d.)Xhat does SetClientWindowHandle do?

If possible can you explain me??
My questions can be very stupid, but ple so answer them, I want to learn things and I want to learn them the right way, asking people :)

Thanks in advance,

Stijn.

1 : Absolute Value

3 : put the points in order

4 : sets your client back to rs.
10-02-2007, 09:49 PM
WT-Fakawi

Quote:

Originally Posted by WT-Fakawi

Very sophisticated. I am glad to see you have outmastered me :)

Correction: As most of you have done, btw!
10-03-2007, 05:37 AM
The Claw

wow great stuff
10-03-2007, 06:03 AM
Santa_Clause

Quote:

Originally Posted by WT-Fakawi

Correction: As most of you have done, btw!

Hah! You obviously underestimate yourself, sir.
10-03-2007, 08:18 AM
nielsie95
Thanks for the nice comments all :)

Quote:

Originally Posted by the scar noob

Indeed Wizzup? this is nice.
Can I ask some questions?
a.)Am I right that Abs get the abstract value?
b.)Am I right that once you call SetTargetBitmap that the procedures/fucntions you do are only going to be used in that bitmap?
c.)What does ReArrangeTPA do?
d.)Xhat does SetClientWindowHandle do?

If possible can you explain me??
My questions can be very stupid, but ple so answer them, I want to learn things and I want to learn them the right way, asking people :)

Thanks in advance,

Stijn.

a.) Yes
b.) The colorfinding funtions, yes.
c.) Exactly as it says; it arranges your TPA by x or y, up or down.
d.) Sets the client back to then window instead of the bitmap.

Run the script beneath to find out more.
SCAR Code:
```
program new;

var
  i: Integer;
  p, tp: TPointArray;
begin
  WriteLn('Abs -10.0 = '+FloatToStr(Abs(-10.0))+', Abs 10.0 = '+ FloatToStr(Abs(10.0)));
  //iAbs for integers..
  WriteLn(' ');
  SetLength(p, 10);
  SetLength(tp, 10);
  for i := 0 to 9 do
  begin
    p[i] := Point(Random(100), Random(100));
    tp[i] := p[i];
  end;
  WriteLn('Arranging the TPA..');
  ReArrangeTPA(tp, 0, High(tp), True, True);
  for i := 0 to 9 do
    WriteLn('before x:'+IntToStr(p[i].x)+' y: '+IntToStr(p[i].y)+'   after x: '+IntToStr(tp[i].x)+' y: '+IntToStr(tp[i].y));
end.
```
10-03-2007, 02:57 PM
pwnaz0r

very nice. thats all there is to it
10-03-2007, 03:38 PM
Rikje

looks realy nice. dont understand it atm :confused:

it resurns the color right?. meh,, tryed it in the guild. dind't work..