SRL Archive - Reflection Development

Function getInventoryItemByID(Desire : integer): TInvItem;
var
  items : TInvItemArray;
  i : integer;
begin
  items := R_GetInventoryItems;
  for i := 0 to high(items) do
  begin
    if (items[i].ID = Desire) then
    begin
      result := items[i];
      exit;
    end;
  end;
end;

Function getInventoryItemByName(Desire : String): TInvItem;
var
  items : TInvItemArray;
  i : integer;
begin
  items := R_GetInventoryItems;
  for i := 0 to high(items) do
  begin
    if (Pos(Desire, items[i].Name) > 0) then
    begin
      result := items[i];
      exit;
    end;
  end;
end;  

Not sure if this is really useful but here ya go.

We already have a function that passes a Variant.

The R_ItemExists(..) function is what you're looking for.