Цитата:
|
Если трудно сделать или нереально
|
Никогда не говори никогда :)
Код:
begin // main!!!!!!!!!!!!!!!!!!!
if FromClient and (ConnectName='SokolA') and (pck[1]=#$48) then //мы сошли с места
begin
buf:=#$01;
WriteD(ReadD(2));
WriteD(ReadD(6));
WriteD(ReadD(10));
WriteD(0);
WriteD(0);
WriteD(0);
buf:=buf+#$01+#$00+#$00+#$00;
SendToServerEx('SokolB');
end;
end.
я не испытывал этот скрипт но по идее должен работать
я надеюсь его смысл понятен :)