uses sysutils;
var
  I: Integer;
begin
  Print('Мой NPC: ' + Npcs.GetNear('').name + ' дист: ' + inttostr(Round(User.DistTo(Npcs.GetNear))));
  Auction.GetList(True); // Смотрим свои продажи
  if Auction.Count >= 9 then
  begin
    Print('Все лоты для продажи заняты..');
    Exit;
  end;
  if Auction.count > 0 then
    Print('Мои текущие лоты:');
  for I := 0 to Auction.count - 1 do
    with Auction.Items(I) do
      Print('"' + name + '", кол-во: ' + inttostr(count) +
        ', цена за шт: ' + inttostr(Price div count) +
        ', ставка за 1 шт: ' + inttostr(BidPrice div count) +
        ', покупатель: ' + Bidder);
  Print('Свободных лотов: ' + inttostr(9 - Auction.count));
  Print('------------------------------');
  for I := 0 to inv.count - 1 do
    with inv.items(i) do
    if (name = 'Лимон') and (Grade = 0) then
      begin
        Engine.Print('Ставим на продажу ' + Name + ', кол-во ' + IntToStr(Count), 6763534);
        if Engine.auctionsellitem(inv.items(i), count * 100, count * 5000, 0) then  // ставим на продажу по 5000 за штуку и по 100 для торга
          Engine.Print('Успешно..', 2345235);
      end;
end.