Эта тема основана на http://zhyk.ru/forum/showthread.php?p=2534553 спасибо автру этой темы очень крутой скрипт)
Так вот я переделал его в скрипт с пакетами 2.7 и добавил дополнительно снятие фиров закла. Дебафы которые входят в этот скрипт:
Вопль духов - [Ссылки могут видеть только зарегистрированные пользователи. ]
Вопль ужаса - [Ссылки могут видеть только зарегистрированные пользователи. ]
Проклятие элементаль огня - [Ссылки могут видеть только зарегистрированные пользователи. ]
Проклятие элементаль воды - [Ссылки могут видеть только зарегистрированные пользователи. ]
И эффект который появляется после смерти.
Скрипт активируется Эмоцией "смех"
Так же, по вашим просьбам, могу добавлять в скрипт другие дебафы какие понадобятся
Кому помог - от спасибки не откужусь =)
Тестил на 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.
Активируется ,когда в общий чат пишеш пробел
Последний раз редактировалось priest.nrts; 22.02.2012 в 19:47.
Примного благодарен !
еще бы немы сина и
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
зарание спасибо
Если на вас кинут сон,дерево то вы не можите юзать эмоции или скилы и поэтому надо делать активацию на команду в чат,
а затем связать эту команду с каким-либо макросом и добавить его на панель скиллов, для удобства
________________ Ололо! Я из армии вернулсо!!!))
Последний раз редактировалось Usilok77; 18.02.2012 в 16:56.
Примного благодарен !
еще бы немы сина и
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
зарание спасибо
Замораживание души 2 и проклятие слабости 3 не работют( а остальные дебафы добавил в новый скрипт
Добавлено через 3 минуты
Цитата:
Сообщение от Usilok77
Если на вас кинут сон,дерево то вы не можите юзать эмоции или скилы и поэтому надо делать активацию на команду в чат,
а затем связать эту команду с каким-либо макросом и добавить его на панель скиллов, для удобства
хмм,да ты прав щас исправлю
Последний раз редактировалось priest.nrts; 18.02.2012 в 17:20.
Причина: Добавлено сообщение
А можешь обьяснить как поменять активирующий скил на тот который мне надо будет, а то проблема в том что у меня есть вот этот скрипт
begin
If FromClient and (pck=Hstr('C9 57 66 15 01 00 00 00 00 00')) // эмоция Смех
then
begin
buf:=HStr('D1 57 6E 64 06 01');
SendToServer;
pck:='';
buf:=HStr('D1 57 6E 95 06 01');
SendToServer;
pck:='';
end;
end.
но тут идет активация эмоцией Смеха, а нужно сделать вместо него активацию пробелом в чате, помоги плз)
я так понял у тебя 2.5 клиент по пакету на эмоцию, в 2.7 он начинается на C2 а у тебя C9...значит очисти список пакетов в проге потом напиши в чат пробел и отлови этот пакет,потом замени это C9 57 66 15 01 00 00 00 00 00 на отловленный тобой пакет.
Спасибо,работает,но из колясок вытаскивает долго,примерно уже к концу действия самой коляски
Используй 1 скрипт и норм коляски снимать будет, 2 сделан просто с дополнением для волшовских дебафов, так что на сервер идут 9 пакетов ,а в 1ом - 5 пакетов
Используй 1 скрипт и норм коляски снимать будет, 2 сделан просто с дополнением для волшовских дебафов, так что на сервер идут 9 пакетов ,а в 1ом - 5 пакетов
Как раз скрипты разделены,на дебафы сорка и коляски,т.е 2 скрипта включаю в l2ph
Регистрация: 11.12.2011
Сообщений: 27
Популярность: 40
Сказал(а) спасибо: 15
скрипт на снятие дебафов 2.7(дополнение)
Re: скрипт на снятие дебафов 2.7(дополнение)
![Аватар для [Oleg]](customavatars/avatar740551_1.gif){kind=avatar}
