SRL Archive - Reflection Development

function GetNPCsByName(S: TStringArray): TNPCArray;
var
  NPCs: TNPCArray;
  I, II, arrC: Integer;
begin
  If Not LoggedIn then
    Exit;

  SetArrayLength(Result, 1000);
  NPCs := GetNPCs;
  If (GetArrayLength(NPCs) = 0) then
    Exit;

  for i:=0 to High(S)do
   for ii:=0 to High(NPCs) do
     If (Pos(Lowercase(S[I]), Lowercase(NPCs[II].Name)) > 0) then
     begin
       Inc(arrC);
       Result[arrC-1] := NPCs[I];
     end;

  SetArrayLength(Result, arrC);
end;  

Might want that since ID's aren't added?
Don't see why this isn't added yet though..

I liked the system using variants..

ID's aren't added to the TNPC type for some reason..?
What do you want to use variants for, the changing indexes :p ?

Nah, this:

FindNPC(identifier: variant): TNPC;

Just noticed that someone added st00f (;

From: Naike
Just noticed that someone added st00f (;

I added them this morning….