[Sashafaq]

begin
     if pck='' then exit;

     //если от сервака принят пакет с ИД и Координатами членов пати то
     if FromServer and (ConnectName=Komandos) and (pck[1]=#$BA) then
     begin
          //запоминаем ИД командира
          IDPartyMember:=pck[6] + pck[7] + pck[8] + pck[9];
     end;
      //если принят пакет от сервера со сменой таргета командиром                                                    
     if FromServer and (ConnectName=Lyk) and (pck[1]=#$23) and (pck[2] + pck[3] + pck[4] + pck[5] = IDPartyMember) then
     begin 
        Mob:= pck[6] + pck[7] + pck[8] + pck[9];
        MobX:= pck[10] + pck[11] + pck[12] + pck[13];
        MobY:= pck[14] + pck[15] + pck[16] + pck[17];
        MobZ:= pck[18] + pck[19] + pck[20] + pck[21];
     end;
   //если принят пакет от клиента с кординатами бафера то

    if FromClient and (ConnectName=Lyk) and (pck[1]=#$59) then
   begin
        //запоминаем координаты
        CoordLykX:= pck[2] + pck[3] + pck[4] + pck[5];
        CoordLykY:= pck[6] + pck[7] + pck[8] + pck[9];
        CoordLykZ:= pck[10] + pck[11] + pck[12] + pck[13];
   end;
       if FromClient and (ConnectName=Lyt) and (pck[1]=#$59) then
   begin
        //запоминаем координаты
        CoordLytX:= pck[2] + pck[3] + pck[4] + pck[5];
        CoordLytY:= pck[6] + pck[7] + pck[8] + pck[9];
        CoordLytZ:= pck[10] + pck[11] + pck[12] + pck[13];
   end;
   //далее идут управляющие команды

   //если КОМАНДИР пишет в любой чат цифру "1" бежим за ним
   if FromClient and (ConnectName=Komandos)and (pck[1]=#$49) then
      if (pck[2]=#$31) and (pck[3]=#$00) then
      begin
           //убиваем этот пакет, чтоб сервер его не получил
           pck:='';
           bRun;
           bRun1;
           exit;
      end;
      //если цифру 2 то берем асист по нему
   if FromClient and (ConnectName=Komandos)and (pck[1]=#$49) then
      if (pck[2]=#$32) and (pck[3]=#$00) then
      begin
           //убиваем этот пакет, чтоб сервер его не получил
           pck:='';
           Assist;
           Assist1;
           exit;
      end;

//          if FromClient and (ConnectName=Komandos)and (pck[1]=#$1f) and (pck[2] + pck[3] + pck[4] + pck[5] = Mob) then
//      begin
//           //убиваем этот пакет, чтоб сервер его не получил
//           Assist;
//           Assist1;
//          exit;
//      end;
// эта часть для авто асиста при отправке пакета атаки от командира 
end.

2 часть скрипта