Sashafaq, ты говорил, что надо 4 байта добавлять в конец, это так?
Проверь этот скрипт.
delphi Код:
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if pck='' then exit; //пропускаем пустые пакеты
if FromClient and (pck[1]=#$01) then
begin
buf:=pck; //сохранили пакет
pck:=''; //очистили пакет
buf:=buf + hstr('01 00 00 00'); //создали новый
SendToServer; //отправили на сервер
end;
end.