SRL Archive - SRL Archives

I made this function to find all NPCs in MM.
It is very accurate, but if the NPCs are right next to each other it sometimes only notices the other. That shouldn't be a big deal anyway…


edit: removed autocolor, because it was proved useless :( b-b-but i did my best!
edit2: now its even shorter

// GetNPCsIn by marpis
function GetNPCsIn(x1, y1, x2, y2: integer): TPointArray;
begin
  FindColorsSpiralTolerance(MMCX, MMCY, result, 1179390, x1, y1, x2, y2, 18);
  RAaSTPA(result, 4);
  SortTPAFrom(result, Point(MMCX, MMCY));
end;

Ain't MM NPC/Drop dots static?

Nice anyways..

Nope. They aren't static ;(

Are we talking about those yellow dots? Because I'm pretty sure they all have 195836 (static) in them.

Won't be added, I did something like this before:

{*******************************************************************************
function DotsOnMap(WhatDot : String) : integer;
By: Idea By footballjds Extended by NaumanAkhlaQ
Description: Counts the specified dot on the minimap,
             not including your own player.
Usage : 'npc', 'yellow' : Yellow Dot;
        'cape', 'blue' : Blue Dot;
        'item', 'red' : Red Dot;
        'player', 'white' : White Dot;
        'friend', 'green' : Green Dot;
*******************************************************************************}
function DotsOnMap(WhatDot : String) : integer;
var
  Dotz : TPointArray;
  Col0r : Integer;
begin
  Case LowerCase(WhatDot) Of
    'npc', 'yellow' : Col0r := 60909;
    'cape', 'blue' : Col0r := 12742980;
    'item', 'red' : Col0r := 789758;
    'player', 'white' : Col0r := 16711422;
    'friend', 'green' : Col0r := 61440;
  end;
  FindColorsTolerance(Dotz, Col0r, MMx1, MMy1, MMx2, MMy2, 19);
  RAaSTPA(Dotz, 4);
  Result := GetArrayLength(Dotz);
  if (LowerCase(WhatDot) = 'player' or 'white') then Dec(Result);
  If Result = 0 Then
    WriteLn('No '+IntToStr(WhatDot)+' Dots FOUND On Map');
end;

From: Floor66
Nope. They aren't static ;(

Every color in every mm dot is static.

From: NaumanAkhlaQ
Won't be added, I did something like this before:

I think your function would be better if it returned TPA

function DotsOnMap(WhatDot : String) : TPointArray;
var
  Dotz : TPointArray;
  Col0r : Integer;
begin
  Case LowerCase(WhatDot) Of
    'npc', 'yellow' : Col0r := 60909;
    'cape', 'blue' : Col0r := 12742980;
    'item', 'red' : Col0r := 789758;
    'player', 'white' : Col0r := 16711422;
    'friend', 'green' : Col0r := 61440;
  end;
  FindColorsTolerance(Dotz, Col0r, MMx1, MMy1, MMx2, MMy2, 19);
  RAaSTPA(Dotz, 4);
  Result := Dotz;
  SortTPAFrom(result, Point(MMCX, MMCY)); 
  If Length(Result) = 0 Then
    WriteLn('No '+WhatDot+' Dots FOUND On Map');
end;

didnt test this one tho'

Autocoloring MM dots is fail…

From: lordsaturn
Every color in every mm dot is static.

;O really.

yellow dots are static (take a look at UCB) it uses the banker dots to walk up to the bank booth

~shut

Ah. My chopper uses a DTM of the bankers (works too :p)

{*******************************************************************************
function GetMiniMapDotsIn(WhatDot: String; x1, y1, x2, y2: Integer): TPointArray;
By: footballjds, NaumanAkhlaQ and Nava2
Description: Results the dots specified by WhatDot in x1, y1, x2, y2.
Usage : 'npc', 'yellow' : Yellow Dot;
        'cape', 'blue' : Blue Dot;
        'item', 'red' : Red Dot;
        'player', 'white' : White Dot;
        'friend', 'green' : Green Dot;
*******************************************************************************}
function GetMiniMapDotsIn(WhatDot: String; x1, y1, x2, y2: Integer): TPointArray;
var
  Color: Integer;
begin
  Case LowerCase(WhatDot) Of
    'npc', 'yellow' : Color := 60909;
    'cape', 'blue' : Color := 12742980;
    'item', 'red' : Color := 789758;
    'player', 'white' : Color := 16711422;
    'friend', 'green' : Color := 61440;
  end;
  FindColors(Result, Color, x1, y1, x2, y2);
  RAaSTPA(Result, 4);
  if (LowerCase(WhatDot) = 'player' or 'white') then Dec(Result);
end;

{*******************************************************************************
function GetMiniMapDotsIn(WhatDot: String): TPointArray;
By: Nava2
Description: Results the dots specified by WhatDot on the Minimap. See GetMiniMapDots
             in for more information.
*******************************************************************************}
function GetMiniMapDots(WhatDot: String): TPointArray;
begin
  Result := GetMinimapDotsIn(WhatDot, MMX1, MMY1, MMX2, MMY2);
end;

{*******************************************************************************
function CountDots(WhatDot: String): integer;
By: Nava2
Description: Counts the occurance of WhatDot on the MiniMap. See GetMiniMapDots
             in for more information.
*******************************************************************************}
function CountDots(WhatDot: String): integer;
begin
  Result := Length(GetMinimapDots(WhatDot));
end;

Committed.