поиск конечно извращен, но пали че делаешь
var
v:variant;
i:integer;
begin
v:=[0,1,2];
v[1]:=7134;
i:=FindItemByParams(v,1);
Inventory[i] <--- это и будет вещь ИтемИДом 7134, если она существует.
end;
или просто добавль эту функцию
delphi Код:
function FindItemByItemID(ItemId:integer) : integer;
var
i:integer;
tempv:variant;
begin
result:=-1;
for i:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[i];
if tempv[1]=ItemId then
begin
result:=i;
exit;
end;
end;
end;