[Скрипт] На Хила

[par-vova]

Вкладка Автоматизация --> Скрипты (Ctrl + E) --> Новый скрипт --> Пишим название (НАпримерТанк Бафы) -->Стираем всё что есть, и добавляем скрипты --> Ставим галочку справа , возле названия скрипта.

Активация скилом [Ссылки могут видеть только зарегистрированные пользователи. ]

Цитата: 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 := 2148; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2148, 2); DoTheSkill(1115, 3); DoTheSkill(982, 4); DoTheSkill(1117, 4); DoTheSkill(1181, 2); DoTheSkill(1131, 4); DoTheSkill(2144, 2); DoTheSkill(1029, 1); end; end.

Активация скилом [Ссылки могут видеть только зарегистрированные пользователи. ]

Цитата: 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 := 2147; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2147, 2); DoTheSkill(1115, 3); DoTheSkill(982, 4); DoTheSkill(1117, 4); DoTheSkill(1181, 2); DoTheSkill(1132, 4); DoTheSkill(2145, 2); DoTheSkill(1029, 1); end; end.

Ставим спасибку за старание.

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

[genyan]

Описание скрипта , что делает и что дает

[par-vova]

Добавил скрин.

[mansyr]

нормально.Айонфрии пол сервера хилов бегает с таким,но им без палива при масс замесе юзать когда в логах каша получается

[Tomas_Wexler]

что делает этот скрипт?

[Giperion]

На планете юзает только Молнию и гром. Все...Печаль

[Indeos918]

у меня при активации данного скрипта (1) выдает сендлог.Серв фришка.

[Harp]

Уважаемый, как-бы адаптировать твой скрипт под Инф-и где скиллы имеют вид:

Возмездие земли 3
D0 2D 10 B8 1E 17 13 4C 8B 08 1F C8 0F 06 8B 15 0D

Молния 2
D0 2D 10 56 19 17 13 4C 8B 08 1F 3E 09 6A 3C 15 0D

[killer_919]

так пацаны вот первая тема моя скрипты для хила )) не палевные ссовсем

1.нажимаеш призыв святвя энергия 2 и вылетает 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 := 2145;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1132, 4);

end;
end.


2. снятие дебафов нажимаеш ясность 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 := 2145;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1132, 4);

end;
end.

3.юзаеш правосудие земли затем идет ссерия нажал молнию 4 и сразу же вылетает элекрический разряд 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 := 1117;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1070, 2);

end;
end.
Пользуйтесь на здоровье )))))))))))))))



жду спасибки )
//Темы со скриптами для одного класса объединяются. Никаких отдельных тем. talala

[kreyker]

хммм.вещь очень полезная особенно против заклов
зачёт

[killer_919]

да против заклов жестококий эфект )) снимаеш бафы хилишся и рвеш их )