[Скрипт] Для Сина

[Getar]

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2117;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(826, 7);
DoTheSkill(862, 5);
DoTheSkill(919, 1);
DoTheSkill(2123, 1);
DoTheSkill(813, 1);
DoTheSkill(913, 1);
DoTheSkill(836, 1);
DoTheSkill(1984, 1);
DoTheSkill(1988, 1);
DoTheSkill(927, 1);
DoTheSkill(850, 1);
DoTheSkill(839, 1);
DoTheSkill(577, 1);
DoTheSkill(572, 1);
DoTheSkill(920, 1);
DoTheSkill(2113, 1);
DoTheSkill(2126, 1);
DoTheSkill(1987, 1);
DoTheSkill(1990, 1);
DoTheSkill(2125, 1);
DoTheSkill(579, 9);
DoTheSkill(875, 5);
DoTheSkill(860, 5);
DoTheSkill(2110, 4);
DoTheSkill(2121, 1);
DoTheSkill(1989, 1);
DoTheSkill(2114, 1);
DoTheSkill(2115, 1);
DoTheSkill(853, 8);
DoTheSkill(939, 1);
DoTheSkill(578, 9);
DoTheSkill(580, 6);
DoTheSkill(932, 9);
DoTheSkill(868, 9);
DoTheSkill(1983, 1);
DoTheSkill(915, 1);
DoTheSkill(804, 1);
DoTheSkill(815, 4);
DoTheSkill(801, 1);
DoTheSkill(553, 9);
DoTheSkill(820, 9);
DoTheSkill(557, 7);
DoTheSkill(567, 1);
DoTheSkill(570, 7);
DoTheSkill(865, 1);
DoTheSkill(808, 9);
DoTheSkill(812, 1);
DoTheSkill(844, 7);
DoTheSkill(847, 7);
DoTheSkill(911, 1);
DoTheSkill(834, 9);
DoTheSkill(822, 1);
end;
end.

Данный скрипт активируется скилом Усмирение IV

После активизации син бафается всеми бафами и бьёт цель всеми скиллами что у вас есть.

Скрипт работает на 2.5 и 2.1
2.5- тестил на фрихе
2.1 - на рулезе

Сделал дополнение по прозьбе пользователя:

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(813, 7);
DoTheSkill(1988, 5);
DoTheSkill(913, 1);
DoTheSkill(949, 1);
DoTheSkill(927, 1);
DoTheSkill(920, 1);
DoTheSkill(1984, 1);
DoTheSkill(836, 1);
DoTheSkill(850, 1);
DoTheSkill(919, 1);
DoTheSkill(862, 1);
DoTheSkill(2123, 1);
end;
end.

Активируется с помощью Концентрация на уклонение l
После активизации син только бафается ( не атакует ).

[Getar]

Цитата: Сообщение от rovelll пле....чет на aion-free не пашет((

На фри пашит 100% сам проверял.

Добавлено через 6 минут

Цитата: Сообщение от k2_target Поддерживаю, только тогда автор удалил свою тему.

Ну наверное теперь я как бэ автор этой темы. Его никто не заставлял её удалять

//мде

[R@$HER]

звял этот скрипт ещё со старой темы,за что уже давно забанен на своей серве,хотя всего лиш за 2 сек пробафался и слил 55 волша с барьером и 9.5к хп,обидно но было весело )

[Getar]

Цитата: Сообщение от R@$HER звял этот скрипт ещё со старой темы,за что уже давно забанен на своей серве,хотя всего лиш за 2 сек пробафался и слил 55 волша с барьером и 9.5к хп,обидно но было весело )

Да скрипт очень палевный,но на рулезе данным скриптом 5 человек убил. Они даже не пискнули насчёт "П--- тебе в бан" ну и тд.

[Pacan101010]

Цитата: Сообщение от RaDivil Как узнать ID скилла?

В любой базе, вот например [Ссылки могут видеть только зарегистрированные пользователи. ]

2126 - id скила
VI - уровень скила

[Stane]

Цитата: Сообщение от TaylasWift Может кто объяснить , как вообще пользоваться подобными скриптами ? Как и через что открывать?

Юзай поиск. Через phx всё делается.

[fanFermara]

Просьба к автору: не могли бы вы сделать скрипт такой же только чтобы син бафался всеми бафами но не атакавал? и не на усмирение а например на какую нить эмоцию или скил с меньшим откатом! (и для лука бы не плохо что нить в этом роде) а скрипт пашет только шуба веет! спасибку поставил!

[Getar]

Цитата: Сообщение от TaylasWift Может кто объяснить , как вообще пользоваться подобными скриптами ? Как и через что открывать?

Открываеш l2phx ->заходиш на сервер->идёш в l2phx->Автоматизация->Скрипты ( создаёш новый скрипт суёш туда свой скрипт активируеш и радуешся )

Добавлено через 1 час 9 минут

Цитата: Сообщение от fanFermara Просьба к автору: не могли бы вы сделать скрипт такой же только чтобы син бафался всеми бафами но не атакавал? и не на усмирение а например на какую нить эмоцию или скил с меньшим откатом! (и для лука бы не плохо что нить в этом роде) а скрипт пашет только шуба веет! спасибку поставил!

Сделал. Только юз скрипта "Концентрация на уклонение" по моему так удобнее.

[mars2107]

напишите для закла плиз

[RaDivil]

А для глада или танка может кто забахать?

[Getar]

Цитата: Сообщение от RaDivil А для глада или танка может кто забахать?

Там в принцапе самому не сложно,но если что я напишу мне не трудно.

[YKROP26]

а для сорка можно )???а то я не шарю в этих скриптах,сам на врядли напишу)

[braxmaputra]

Планета не пашет

[wzombiee]

Цитата: Сообщение от YKROP26 а для сорка можно )???а то я не шарю в этих скриптах,сам на врядли напишу)

Читай внимательно название темы!

[rolioo]

даров народ,моя первая,так что не критекуйте за оформление и т.д.)
Итак,на тех сервах сервах которых робит скилпак,может и пригодятся мои скрипты.Все скрипты на сина,владею и на другие классы,но в этой теме ток по сину.
1
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 1987;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2113, 4);
DoTheSkill(1989, 1);


end;
end.

Вот этот скрипт активируется скилом "атака ядом" и одновременно с ним нанносится "нанесение клейма" и "вспышка клейма молчания"



2
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 579;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1986, 1);

end;
end.
Этот скрипт активируется "внезапная атака" одновременно вылетает "штормовая мощь"


3

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 875;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(860, 3);
DoTheSkill(581, 5);
DoTheSkill(2110, 2);
end;
end.

Этот скрипт активируется "рёв зверя" затем 2 скил из этой серии(забыл как называется), и одновременно вылетает "контратака"
//объединил. talala