Code: Select all
Const
123Type = $2222;
var
i: integer;
123Array: array of Cardinal;
begin
if FindType(123Type,BackPack) <> 0 then
begin
AddToSystemJournal('Всего найдено '+IntToStr(FindCount)+' 123');
for i:=0 to (FindCount-1) do
begin
123Array[i]:=FindType(123Type,BackPack);
Ignore(FindItem);
end;
IgnoreReset;
end.