[Скрипт] Создайте скрипт пжл.

[MET1234]

Суть темы в том что бы кто-то из знающих людей мог создать мне два мельньких скрипта,которые привязывались к эмоциям.И что бы эмоции не отобразажась в чате(желательно).А ГЛАВНОЕ что бы пакет отправлялся на клиент ,а не на сервер.Вот собственно пакеты.
Первый скрипт;
1)63 50 00 97 48 AA 02 00 01 00-включение скрипта;
63 50 00 97 48 AA 02 00 00 00-выключение скрипта.
Второй скрипт;
2)63 50 00 97 48 AA 02 01 00 00-включение скрипта;
63 50 00 97 48 AA 02 00 00 00-выключение скрипта.
И хотелось бы что бы в чате писалось что типа-скрипт активирован\отключён.
P.S.Зарание спс)

[Drelann]

исходя из этой темы берем пример скрипт:

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

end; 

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

end; 

begin 
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех 
  then  
       begin 
            buf:=HStr('CF 57 6C 2F 02 01 00 00 00 00 00 00 00 D8 CF 00 00');//Маскировка I 
                                     
            SendToServer; 
            pck:='';   
             
       end;       

      
end.

просто заменяешь местные эмоции/пакеты на свои. надо несколько пакетов в 1 скрипте? просто дублируешь местный блок изменяя значения на свои:

if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех 
  then  
       begin 
            buf:=HStr('CF 57 6C 2F 02 01 00 00 00 00 00 00 00 D8 CF 00 00');//Маскировка I 
                                     
            SendToServer; 
            pck:='';   
             
       end;

сие:

 pck:='';

не позволяет паакету улетать в обшагу
а сие:

SendToServer;

посылает на сервер, SendToClient пошлет в клиент
по идее должно так

procedure Init;
begin 
end; 
procedure Free;
begin 
end; 
begin 
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех (поменяй на свою)
then  
begin 
buf:=HStr('63 50 00 97 48 AA 02 00 01 00');//твой пакет 2
SendToClient; 
pck:='';   
end;       
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех (поменяй на свою)
then  
begin 
buf:=HStr('63 50 00 97 48 AA 02 00 00 00');//твой пакет 2
SendToClient; 
pck:='';   
end; 
end.

при создании сего чуда использовалось только чужое

[MET1234]

СПС за написание скрипта теперь буду знать как составлять простые скрипты привязывая эмоцию.

Добавлено через 20 минут
Ответ на тему считаю получиным.Следовательно тему можно закрыть и удалить.

[talala]

Третья тема создана не в том разделе. Расслабились?