Разберитесь в Паскале, с самого начало. Тут даже 1 словом не сказать в чем вы не правы.
А функция про которую вы говорите я написал вот так:
delphi Код:
function ItemCount(ID : cardinal) : int64;
var
NovObj : TL2Item;
begin
Result := 0;
if Inventory.User.ByID(ID, NovObj) then
Result := NovObj.Count
Else if Inventory.Quest.ByID(ID, NovObj) then
Result := NovObj.Count;
end;
Добавлено через 1 минуту
И использование ее под ваши задачи:
delphi Код:
begin
if (ItemCount(1464) < 3000) then // Если Ц сосок меньше 3к
begin
Engine.MoveTo(146339, 25354, -2039);
end;
end.