помогите написать простенький скрипт.

[slokky]

запустил скрипт он не посылает пакет А1 хз

[Deffol]

блин ну жди програмистов. я просто хотел помочь, я не вставлял еще рид ниразу

[slokky]

вот опишу еще подробнее.
клиент посылает пакет ----->32 57 F1 C4 A5 06 00 00 00 03 00 ----->скрипт вынимает id шмотки и вставляет ее в пакет А1----->A1 57 5E F3 00 00 00 01 00 01 00 C4 A5 06 00 01 00 00 00 00 00 00 00 ----> отсылает этот пакет на сервер.
пакет 32 постоянно меняется поэтом мне нужен скрипт который постояно будет подгонять правильный пакет А1. более понятно описать не могу.

[Deffol]

да мне это понятно...я не помню команду правильно как рид вставлять
там pck[номер байта куда вставлять]:=WriteD помоему, я не работал с таким, могу только предполагать, поищи на сайте, тут должно быть где-то

[Diverclaim]

begin
  if FromClient and (ReadC(1) = $32) then
  begin
    buf := HStr('57 5E F3 00 00 00 01 00 01 00');
    WriteD(ReadD(4));
    buf := buf + HStr('01 00 00 00 00 00 00 00');
    SendToServer;
  end;
end.

[Deffol]

о ы, я не безнадежен мыслил в правильном направлении...

[J-Fobos]

Еще вариант реализации, мне кажется более оптимальный:

begin
  if FromClient and (pck[1] = #$00) then
  begin
     buf:=#$A1#$57#$5E#$F3#$00#$00#$00#$01#$00#$01#$00#$C4#$A5#$06#$00#$01#$00#$00#$00#$00#$00#$00#$00;
    WriteD(ReadD(4),12);
    SendToServerEx(name);
  end;
end.

4 байта из пакета pck будут вставлены в пакет buf.

[Deffol]

а как это? (pck[1]=$00) - что значит это я знаю если #$ то ловит именно первый байт обозначенный, а у тебя $ и нули

//J-Fobos: опечатался, исправил, спасибо