тык begin
if FromClient and (pck[1]=#$CF) and (pck[4]=#$41) and (pck[5]=#$08) and (pck[14]=#$F9) then
begin
buf :=HStr('23 57 C0');
SendToServer;
end;
end.
строка "if FromClient..." отвечает за условие при выполнении которого выполняются действия описанные далее, если условий несколько, перед каждым условием (кроме первого) должен стоять "and", после того как перечислены все условия должен стоять "then".
разберем обозначения использованные тут: "pck" - текущий пакет, "[1]" - цифра в скобках означает номер байта (пары) пакета, "CF" - переменная пакета, "buf" - создает буфер, который впоследствии может быть использован в пререлах данного блока скрипта (блок скрипта - то что находится в промежутке от begin до end), "SendToServer" - отправляет содержимое буфера на сервер.
теперь переведу на человеческий язык этот скрипт: если пакет идет от клиента и первый байт пакета - CF и 4 байт пакета - 41 и 5 байт пакета - 08 и 14 байт пакета - F9 тогда: записать 23 57 C0 в буфер, отправить содержимое буфера на сервер.
если вы нифига не поняли... в строке "if FromClient..." пишете пакет , при отправке которого включается скрипт, а точнее не весь пакет, а несколько его байтов, не ленитесь вставлять несколько байтов, иначе может проскочить похожий пакет и скрипт среагирует на него. в данном случае каждый байт пакета надо записывать в таком виде "(pck[1]=#$CF)".
в строке "buf..." в скобках и ковычках ('23 57 C0') записываете целиком пакет, который будет отправляться скриптом.
постарался все, что нужно обьяснить, если что забыл спрашивайте.