priest.nrts
18.02.2012, 13:51
Эта тема основана на [Ссылки могут видеть только зарегистрированные и активированные пользователи] спасибо автру этой темы очень крутой скрипт)
Так вот я переделал его в скрипт с пакетами 2.7 и добавил дополнительно снятие фиров закла. Дебафы которые входят в этот скрипт:
Вопль духов - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Вопль ужаса - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие элементаль огня - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие элементаль воды - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
И эффект который появляется после смерти.
Скрипт активируется Эмоцией "смех"
begin
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 01 00 00 00 00 00 ')) // эмоция Смех
then
begin
buf:=HStr('CA 00 57 69 FF 63 20 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF 64 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF 95 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF F5 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF F6 06 00');
SendToServer;
pck:='';
end;
end.
Так же, по вашим просьбам, могу добавлять в скрипт другие дебафы какие понадобятся
Кому помог - от спасибки не откужусь =)
Тестил на Newaion x75
Так, сделал новый скрипт с таймингом т.к нельзя на серв сразу отправлять, и добавил 4 дебафа волша к уже имеющимся дебафам закла итого в нём 9 дебафов, поставил чтобы скрипт активировался - когда в чат пишешь пробел,т.к нельзя юзать эмоцию во время сна или дерева.
Добавленные дебафы:
шторм сна - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие дерево - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Облако сна - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Сон - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
var
i:integer;
name:string;
Timer: TTimer;
procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=150;
Timer.enabled:=false;
end;
procedure Free;
begin
Timer.enabled:=false;
end;
procedure TimerOn;
begin
case (i) of
9:
begin
buf:=HStr('CA 00 57 69 FF D9 05 00');
SendToServerEx(name);
inc(1);
Timer.enabled:=false;
end;
8:
begin
buf:=HStr('CA 00 57 69 FF A3 05 00');
SendToServerEx(name);
inc(i);
end;
7:
begin
buf:=HStr('CA 00 57 69 FF AE 05 00');
SendToServerEx(name);
inc(i);
end;
6:
begin
buf:=HStr('CA 00 57 69 FF D7 05 00');
SendToServerEx(name);
inc(i);
end;
5:
begin
buf:=HStr('CA 00 57 69 FF 63 20 00');
SendToServerEx(name);
inc(i);
end;
4:
begin
buf:=HStr('CA 00 57 69 FF 64 06 00');
SendToServerEx(name);
inc(i);
end;
3:
begin
buf:=HStr('CA 00 57 69 FF 95 06 00');
SendToServerEx(name);
inc(i);
end;
2:
begin
buf:=HStr('CA 00 57 69 FF F5 06 00');
SendToServerEx(name);
inc(i);
end;
1:
begin
buf:=HStr('CA 00 57 69 FF F6 06 00');
SendToServerEx(name);
inc(i);
end;
end;
end;
begin
name:=ConnectName;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ')) then // написать в чат пробел
begin
i:=1;
Timer.enabled:=true;
end;
end.
Активируется ,когда в общий чат пишеш пробел
Так вот я переделал его в скрипт с пакетами 2.7 и добавил дополнительно снятие фиров закла. Дебафы которые входят в этот скрипт:
Вопль духов - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Вопль ужаса - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие элементаль огня - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие элементаль воды - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
И эффект который появляется после смерти.
Скрипт активируется Эмоцией "смех"
begin
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 01 00 00 00 00 00 ')) // эмоция Смех
then
begin
buf:=HStr('CA 00 57 69 FF 63 20 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF 64 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF 95 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF F5 06 00');
SendToServer;
pck:='';
buf:=HStr('CA 00 57 69 FF F6 06 00');
SendToServer;
pck:='';
end;
end.
Так же, по вашим просьбам, могу добавлять в скрипт другие дебафы какие понадобятся
Кому помог - от спасибки не откужусь =)
Тестил на Newaion x75
Так, сделал новый скрипт с таймингом т.к нельзя на серв сразу отправлять, и добавил 4 дебафа волша к уже имеющимся дебафам закла итого в нём 9 дебафов, поставил чтобы скрипт активировался - когда в чат пишешь пробел,т.к нельзя юзать эмоцию во время сна или дерева.
Добавленные дебафы:
шторм сна - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Проклятие дерево - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Облако сна - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Сон - [Ссылки могут видеть только зарегистрированные и активированные пользователи]
var
i:integer;
name:string;
Timer: TTimer;
procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=150;
Timer.enabled:=false;
end;
procedure Free;
begin
Timer.enabled:=false;
end;
procedure TimerOn;
begin
case (i) of
9:
begin
buf:=HStr('CA 00 57 69 FF D9 05 00');
SendToServerEx(name);
inc(1);
Timer.enabled:=false;
end;
8:
begin
buf:=HStr('CA 00 57 69 FF A3 05 00');
SendToServerEx(name);
inc(i);
end;
7:
begin
buf:=HStr('CA 00 57 69 FF AE 05 00');
SendToServerEx(name);
inc(i);
end;
6:
begin
buf:=HStr('CA 00 57 69 FF D7 05 00');
SendToServerEx(name);
inc(i);
end;
5:
begin
buf:=HStr('CA 00 57 69 FF 63 20 00');
SendToServerEx(name);
inc(i);
end;
4:
begin
buf:=HStr('CA 00 57 69 FF 64 06 00');
SendToServerEx(name);
inc(i);
end;
3:
begin
buf:=HStr('CA 00 57 69 FF 95 06 00');
SendToServerEx(name);
inc(i);
end;
2:
begin
buf:=HStr('CA 00 57 69 FF F5 06 00');
SendToServerEx(name);
inc(i);
end;
1:
begin
buf:=HStr('CA 00 57 69 FF F6 06 00');
SendToServerEx(name);
inc(i);
end;
end;
end;
begin
name:=ConnectName;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ')) then // написать в чат пробел
begin
i:=1;
Timer.enabled:=true;
end;
end.
Активируется ,когда в общий чат пишеш пробел