как объеденить скрипты

[Deffol]

написал много скриптов, принцип замены пакетов, когда ловится один пакет, посылаются 2....
вот сам скрипт например:
begin
if FromClient and (pck=HStr(''))
then
buf:=HStr('');
SendToServer;
buf:=HStr('');
SendToServer;
pck:='';
end.

и таких идентичных много, я хотел объеденить их в один, ну чтоб места не занимвли, я просто вставил ниже 2й подобный, но работает в нем только первый, второй не работает, подскажите как их можно объеденить, если можно

[J-Fobos]

Можно объединить. Учите язык FS (ну или Object Pascal)

[SeregaZ]

немного с beginами разберись - у тебя не совсем верно. можно подглядеть на каком либо другом скрипте тут на форуме.

[Deffol]

именно тут с бегинами все верно...я уже объеденил скрипты вот таким образом:
begin
if fromclient then
case pck[1] of
#$B9:
begin
if pck=HStr('B9 57 76 00 2F 00 1C 04 32 04 42 04 00 00') then
begin
buf:=HStr('9E 57 5D 8C C8 97 43 FF DD 12 45 78 B3 07 44 55 00');
sendtoserver;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;
if pck=HStr('B9 57 76 00 2F 00 1C 04 3F 04 40 04 00 00') then
begin
buf:=HStr('9E 57 5D E3 FC 9A 43 F6 01 0E 45 D2 B4 E0 43 65 00');
sendtoserver;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;
end;
end;
end.
ну и еще можно вставлять сколько влезет мест...

Добавлено через 9 минут
SeregaZ, а хотя да, там бегина не хватает :) я просто не заметил, писал по памяти

[supernewbie]

о_о

[dyh9l]

supernewbie, а ты еще меня за х** держишь)

[Deffol]

ну ладно, я понял, вот так нормально?

begin
if FromClient then

begin
if pck=HStr('B9 57 76 00 2F 00 31 04 40 04 31 04 40 04 00 00') then
begin
buf:=HStr('C9 57 66 04 41 0A C7 43 AA CA 25 45 5F E9 54 43 64');
SendToServer;
buf:=HStr('9E 57 5D 3B BA C1 43 1D E1 24 45 AE 62 50 43 64 00');
SendToServer;
buf:=HStr('67 57 04');
pck:='';
end;
//ну и дальше продолжение...


а кто может объяснить как тут реализовать Read, вместо байтов, я сам пробовал не доходит.