Objects.scar - FindObjectThroughMM

**Naike** · 07-05-2009, 08:39 PM

Thanks to Rasta magican and Nava2 for pushing this forward...

This works great for object finding, if theres a dot.
Otherwise it acts like normal FindObj...

Note: It needs MMToMS, which I've posted before.

Example of usage:

SCAR Code:

FindObjectThroughMM('item', [1478833], [5], ['oin'], 5, 5);

Function discription:

SCAR Code:

{*******************************************************************************
Function MMToMS(MM: TPoint): TPoint;
By: N1ke!
Description: Turns a Minimap point into a close MS point.
*******************************************************************************}
Function MMToMS(MM: TPoint): TPoint;
var
  X, Y: Integer;
  Dis: TPoint;
begin
  X := ((MM.X - 647));
  Y := ((MM.Y - 84));

  Dis := Point( (MMCX - MM.X)*-1, (MMCY - MM.Y)*-1);
  Result := Point(Round((259.5 + X)+ Dis.X*10), Round((170.0 + Y)+ Dis.Y*6.5));

  If Not IntInBox(Result.X, Result.Y, IntToBox(MSX1, MSY1, MSX2, MSY2))then
    Result := Point(-1, -1);
end;

{*******************************************************************************
Function FindObjectThroughMM(Kind: String; Colors, Tol: TIntegerArray; UpText: TStringArray; Width, Height: Integer): boolean;
By: N1ke!
Description: Finds a object with the given parameters.
Uses minimap dots to get locations of objects.
Will put the matching areas first in the TPA array,so it hovers those
first.

Note: It still searches the whole screen, but it puts items first in
      the array.

Valid kinds are
- npc/yellow
- item/red
- player/white
*******************************************************************************}
Function FindObjectThroughMM(Kind: String; Colors, Tol: TIntegerArray; UpText: TStringArray; Width, Height: Integer): boolean;
var
  ATPA: T2DPointArray;
  TPA, TPA2, TPA3: TPointArray;
  I, II, H, HH, ArrC, X, Y: Integer;
begin
  SetLength(ATPA, Length(Colors));

  H := High(Colors);
  For I:= 0 to H do
    FindColorsTolerance(ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, Tol[i]);

  TPA := MergeATPA(ATPA);
  ATPA := TPAToATPAEx(TPA, Width, Height);

  SetLength(TPA, GetArrayLength(ATPA));
  H := High(TPA)
  for i:= 0 to H do
    TPA[i] := MiddleTPA(ATPA[i]);

  TPA2 := GetMiniMapDots(Kind);
  H := High(TPA2);
  For I:=0 to H do
    TPA2[i] := MMToMS(TPA2[i]);

  H := High(TPA);
  HH := High(TPA2);
  SetArrayLength(TPA3, GetArrayLength(TPA));
  For I:=0 to H do
    For II:=0 to HH do
     If IntInBox(TPA[i].X, TPA[i].Y, IntToBox(TPA2[II].X-55, TPA2[II].Y-55, TPA2[II].X+55, TPA2[II].Y+55))then
     begin
       TPA3[ArrC] := TPA[i];
       Inc(ArrC);
       Break;
     end;
  SetArrayLength(TPA3, ArrC);
  ClearTPAFromTPA(TPA, TPA3);
  TPA := CombineTPA(TPA3, TPA);

  H := High(TPA);
  For I:=0 to H do
  begin
    MMouse(TPA[i].X, TPA[i].Y, 4, 4);
    If WaitUptextMulti(UpText, 250+Random(100))then
    begin
      GetMousePos(X, Y);
      Result := True;
      Exit;
    end;
  end;
end;