Кружок нубов(Вопрос-Ответ)

[semiromid]

Сообщение от NLObP

Пакеты берутся из строковой переменной 'buf'. Поэтому создав переменную например:

test: string;

можно ей присвоить пакет из переменной buf

test:=buf;

Подправте плз.





Часть скрипта

var
 PAName: String;
BafNaBibor: String;
Lider: integer;

begin
  if FromServer and (ConnectName=Name) and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
  Lider:= 2;    
   PAName:= ReadS(Lider);
    if (PAName = 'Сэд')   then   begin   
    buf:=Hstr('43 01 00 00 00');          
  end else 
     buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать от пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;        
                        
  end;




if FromServer and (pck[1] = #$4A) and (ConnectName=name) then   begin //Кто то написал 
     
    BafNaBibor:= ReadS(Lider+5);
        
    if (BafNaBibor='4')  then   begin    //Если нам в чат написали 4-ре  , то выполняем действие дельше 
          timer.enabled:=true;
          TimerStep:=606; 
 end;
 end;

Подскажите , как переменную BafNaBibor , увиличить на длину ника и плюс еще на 5-ть байт ?




вот этот пакет

4A 33 D8 20 10 03 00 00 00 21 04 4D 04 34 04 40 04 38 04 3A 04 00 00 FF FF FF FF 34 00 00 00
Часть обозначеная синем - Эта часть постоянно меняеться , так как это есть Ник игрока .
Мне нужно начать читать с 34 00 00 00