assist

[TAMBIK]

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;