йй ну и деревня=((
мхх чота ничего не идеет=(((((((((((((((
может я чонить пропустил =(
Добавлено через 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 количество предметов