[M6vsKGB]

йй ну и деревня=((


мхх чота ничего не идеет=(((((((((((((((
может я чонить пропустил =(

Добавлено через 22 минуты
почему то когда я выделяю торговца ПХ начинает бурно работать, но когда я жму действие он ничег оне делает=(

точнее не хочет он продавать а еще точнее не хочет делать базу предметов=((

Добавлено через 1 час 27 минут

procedure SellItem;
var i: integer;
ll: string;
begin
   buf:=HStr('1E 00 00 00 00');
   WriteD(KolvoI);
   for i:=1 to max do begin
     WriteD(ItemBase[1,i]);
     ll:=HStr('9E 00 00 00 01 00 00 00');
     WriteS(ll);
   end;
   SendToServerEx(Name);
end;

прально написано?
где ItemBase[1,i] ObjID предмета
KolvoI количество предметов