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.
________________
Жми "Спасибо" если помог.
Поддержите меня на пост Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
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.
Скрипт неодин неработает т.к. все скрипты надо под себя делать + я эти скрипты уже видел, ты просто обьеденил их в одну тему ?
Регистрация: 27.07.2011
Сообщений: 94
Популярность: 317
Сказал(а) спасибо: 58
Скрипты для л2пх
