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

[semiromid]

подскажите ,как можно в переменную вставить пакет?

[NLObP]

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

подскажите ,как можно в переменную вставить пакет?

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

test: string;

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

test:=buf;

[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

[NLObP]

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

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

Вот так примерно.

var
    PAName, Name: String;
    BafNaBibor: String;
    Lider, Index: integer;

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromServer and (ConnectName=Name) and (pck[1]=#$39) then 
    begin   //от сервера получен пакет s39=AskJoinParty:s(requestorName)d(itemDistribution)
        Lider:= 2;    
        PAName:= ReadS(Lider);
        if (PAName = 'Сэдрик')   then   
            buf:=Hstr('43 01 00 00 00')  //Создаем пакет "Принять пати"  c43=RequestAnswerJoinParty:d(Response)          
        else 
            buf:=hstr('43 00 00 00 00');  //Создаем пакет "Отказать от пати"  c43=RequestAnswerJoinParty:d(Response)
        pck :='';                         //убиваем пакет s39
        SendToServer;        
    end;
    if FromServer and (pck[1] = #$4A) and (ConnectName=name) then     //s4A=CreatureSay:d(ObjectID)d(textType:Get.FSay2)s(charName)d(npcString)s(Message)
    begin //Кто-то написал в чат
        Index:=10;    //смещение для charName
        ReadS(Index); //Index - начальная позиция чтения, которая модифицируется функцией (сдвигается на число считанных байт)
        ReadD(Index); //читаем в никуда, чтобы пропустить ещё 4 байта
        BafNaBibor:=ReadS(Index); //считываем Message
        if (BafNaBibor='4')  then   
        begin    //Если нам в чат написали 4-ре, то выполняем действие дельше 
            timer.enabled:=true;
            TimerStep:=606; 
        end;
    end;
end.

Tèï: 0x4A (CreatureSay)
Размер: 31+2
Время прихода: 14:32:27:024
0002 d  ObjectID: 270587955 (0x1020D833)
0006 d  textType: # PARTY ID:3 (0x0003)
0010 s  charName: Сэдрик
0024 d  npcString: -1 (0xFFFFFFFF)
0028 s  Message: 4

PS: здесь полезная информация