Уменьшение числа внутри пакета(с чтением).

[PanAm]

begin
  if fromclient and (pck=#$6C) then begin
    buf:=#$6C;
    WriteD(ReadD(2));
    WriteD(ReadD(6)-1);
    WriteD(0);
    pck := buf;
  end;
end.

[Amorality]

PanAm,
Мне не нужно заменять оригинал, оригинал должен быть отправлен а за ним еще и буфер.

Твой вариант идентичен моему первому варианту.. только ты оригинал меняешь. так вот это не работает почему-то

Добавлено через 2 минуты
А, ты тут с 6ого байта читаешь щас проверим

[Sieg]

Amorality, измененный пакет должен следовать именно ПОСЛЕ оригинала?