smed09
07.11.2011, 05:22
Скрипт №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.
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.