[Antharas]

Разберитесь в Паскале, с самого начало. Тут даже 1 словом не сказать в чем вы не правы.
А функция про которую вы говорите я написал вот так:

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 минуту
И использование ее под ваши задачи:

begin
 if (ItemCount(1464) < 3000) then // Если Ц сосок меньше 3к
  begin
   Engine.MoveTo(146339, 25354, -2039);
  end;
 end.