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

[Amorality]

Привет. В общем мне нужно при приходе пакета с ID 6C считать из него:
6C [9A 04 00 82] 78 EC 0E 00 00 00 00 00
То, что выделено квадратными скобками и ID останутся без изменения при отправке.

а вот следущие 4 байта :
6C 9A 04 00 82 [78 EC 0E 00] 00 00 00 00
Мне надо уменьшить на единицу. и получившееся:
6C C8 04 00 82 77 EC 0E 00 00 00 00 00 отправить на сервер.

Я еще плохо понимаю работу ф-ция рид и райт. Попыталась написать скрипт

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

Но он не работает, ничего не происходит. что тут не так объясните плз

Добавлено через 10 минут
Кстати l2pbx 3.4.1 после 3ех - 5ти минут игры что бы я не делала выдает "Не отправлять отчет" уже просто достало перезаходить >_<