Скрипты для л2пх

[smed09]

Скрипт №1(самовоскрешение)

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

end;

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

end;

begin
  if FromClient and (pck=HStr('C9 57 66 15 1C 00 00 00 00 00'))//эмоция улыбка
  then 
       begin
            buf:=HStr('6B 57 08 01');//Воскрешение
                                   
            SendToServer;
            pck:='';  
            
       end;      

     
end.

Скрипт №2(Телепорт в последнее место нахождение)

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

end;

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

end;

begin
if FromClient and (pck=HStr('C9 57 66 15 02 00 00 00 00 00'))//эмоция гнев
  then 
       begin
            buf:=HStr('67 57 04');//Призрак
                                   
            SendToServer;
            pck:='';  
            
       end;      

     
end.

Реюз крыльев

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

end;

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

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//Взлететь
  if FromClient and (pck=HStr('CA 55 69 15 23 00 00 00 00 00')) then begin
    buf:=HStr('CA 55 69 0D');
    SendToServer;
    pck:='';
  end;
  
end.

[par-vova]

Цитата: Сообщение от smed09 Скрипт №1(самовоскрешение) procedure Init; //Вызывается при включении скрипта begin end; procedure Free; //Вызывается при выключении скрипта begin end; begin if FromClient and (pck=HStr('C9 57 66 15 1C 00 00 00 00 00'))//эмоция улыбка then begin buf:=HStr('6B 57 08 01');//Воскрешение SendToServer; pck:=''; end; end. Скрипт №2(Телепорт в последнее место нахождение) procedure Init; //Вызывается при включении скрипта begin end; procedure Free; //Вызывается при выключении скрипта begin end; begin if FromClient and (pck=HStr('C9 57 66 15 02 00 00 00 00 00'))//эмоция гнев then begin buf:=HStr('67 57 04');//Призрак SendToServer; pck:=''; end; end. Реюз крыльев procedure Init; //Вызывается при включении скрипта begin end; procedure Free; //Вызывается при выключении скрипта begin end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin //Взлететь if FromClient and (pck=HStr('CA 55 69 15 23 00 00 00 00 00')) then begin buf:=HStr('CA 55 69 0D'); SendToServer; pck:=''; end; end.

Скрипт неодин неработает т.к. все скрипты надо под себя делать + я эти скрипты уже видел, ты просто обьеденил их в одну тему ?

[doom9ra]

Для какой версии игры?
а так же,там ID чара свой нада вставлять.

[maloy2406]

Для версии 2.5 эти скрипты.