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

[Deffol]

написал много скриптов, принцип замены пакетов, когда ловится один пакет, посылаются 2....
вот сам скрипт например:

PHP код:

begin
if FromClient and (pck=HStr(''))
then 
buf:=HStr('');
SendToServer;
buf:=HStr('');
SendToServer;
pck:='';            
end. 


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

[J-Fobos]

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

[SeregaZ]

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

[Deffol]

именно тут с бегинами все верно...я уже объеденил скрипты вот таким образом:

PHP код:

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, вместо байтов, я сам пробовал не доходит.