Может так?
delphi Код:
var
tmp: integer; //временная переменная
begin
if fromclient and (pck=#$6C) then begin
buf:=pck; //копируем пакет для работы
tmp:=ReadD(6)-1; //сохраним в переменной
pck := ''; //удаляем
SendToServer; //отправляем пакет без изменения
WriteD(tmp, 6); //вставляем данные в пакет начиная с 6 байта
SendToServer; //отправляем изменённый пакет
end;
end.
Добавлено через 1 минуту
Цитата:
Сообщение от Amorality
ПС Не пашет, при ручной генерации подобного пакета кидает с серва
|
Покажи пакеты из лога, которые получаются через клиент.