Помогите доделать скрипт)))

[=CLOSED=]

begin        
    if FromClient 
    then 
    case pck[1] of 
    #$B5:      
         begin   
            buf:=hstr('0A 66 9C 5C 32 2A 00 '); 
            buf[4]:=pck[4]; 
            buf[5]:=pck[5]; 
            buf[6]:=pck[6]; 
            buf[7]:=pck[7]; 
            sendtoserver; 
         end; 
         
    end; 
end.

Помогите привязать это действие к эмоции пожалуйста

Либо же вот к этому скрипту

begin 
    if FromClient  then 
    case pck[1] of 
    #$B5:  
         begin 
            buf:=hstr('0A 66 9C'); 
            buf:=buf+pck[4]; 
            buf:=buf+pck[5]; 
            buf:=buf+pck[6]; 
            buf:=buf+pck[7]; 
            sendtoserver; 
         end; 
         
    end; 
end.

Они вроде ничем не отличаются но вдруг я чего то не знаю

[Eclipse69]

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

end;

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

end;

begin
if FromClient and (pck=HStr('C9 57 66 15 15 00 00 00 00 00'))//Emotes Wings
  then 
       begin                         
       
            buf:=hstr('0A 66 9C 5C 32 2A 00'); 
            buf[4]:=pck[4]; 
            buf[5]:=pck[5]; 
            buf[6]:=pck[6]; 
            buf[7]:=pck[7]; 
            sendtoserver;       end;      

end.

активируется при включении эмоции "Хвастаться крыльями"

Добавлено через 3 минуты
думаю работать будет)) не откажусь от спасибки))

[Furydose]

Не будет оно работать, ему нужно взять байты из пакета B5, а у тебя он берет их из пакета эмоции.

Так надо:

begin
    if FromClient  then
    case pck[1] of
    #$B5: 
         begin
            buf:=hstr('0A 66 9C');
            buf:=buf+pck[4];
            buf:=buf+pck[5];
            buf:=buf+pck[6];
            buf:=buf+pck[7];  
         end;
    end;
    if FromClient and (pck=HStr('C9 57 66 15 06 00 00 00 00 00')) then 
         begin
         sendtoserver; 
         end;
    
end.

Эмоция согласие.

ЗЫ. Скрипты в 1 посте таки ничем не отличаются, но второй мне больше по нраву, тем более что его писал я))

[=CLOSED=]

Цитата: Сообщение от Furydose Не будет оно работать, ему нужно взять байты из пакета B5, а у тебя он берет их из пакета эмоции. Так надо: begin if FromClient then case pck[1] of #$B5: begin buf:=hstr('0A 66 9C'); buf:=buf+pck[4]; buf:=buf+pck[5]; buf:=buf+pck[6]; buf:=buf+pck[7]; end; end; if FromClient and (pck=HStr('C9 57 66 15 06 00 00 00 00 00')) then begin sendtoserver; end; end. Эмоция согласие. ЗЫ. Скрипты в 1 посте таки ничем не отличаются, но второй мне больше по нраву, тем более что его писал я))

Не получается, дисконектит

[Furydose]

Хм, а те скрипты в шапке темы у тебя нормально работают?

[=CLOSED=]

Цитата: Сообщение от Furydose Хм, а те скрипты в шапке темы у тебя нормально работают?

Да, ток пакет прежде временно отправлялся и из за этого никакого эффекта небыло