Код:
const
myName = 'Lyk'; // Имя
//=====================================
procedure bRun;
begin
buf:=#$1F;
WriteD(IDPartyMember);
WriteD(CoordLykX);
WriteD(CoordLykY);
WriteD(CoordLykZ);
SendToServerEx(myName);
end;
//====================================
//если от сервака принят пакет с ИД и Координатами членов пати то
if FromServer and (ConnectName=Komandos) and (pck[1]=#$BA) then
begin
//запоминаем ИД командира
IDPartyMember:=ReadD(6);
end;
//если принят пакет от клиента с кординатами бафера то
if FromClient and (ConnectName=Lyk) and (pck[1]=#$59) then
begin
//запоминаем координаты
CoordLykX:=ReadD(2);
CoordLykY:=ReadD(6);
CoordLykZ:=ReadD(10);
end;