именно тут с бегинами все верно...я уже объеденил скрипты вот таким образом:
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, а хотя да, там бегина не хватает
я просто не заметил, писал по памяти