[Скрипт] "Закл" Снятие бафов моментально 3.0!

[MrakChiter]

Сделал скрипт для заклинателей на снятие 7 бафов моментально, версия скилов 3.0.
Активация скрипта " Сжечь чары VI "

//Script by Mrak
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 2660;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(2660, 1);
DoTheSkill(2404, 1);
DoTheSkill(2655, 1);
end;
end.

Скоро выложу со скилами 2.7 версии.

[olegatok]

Мне понравился скрипт! так что плюсик

[altairalentus]

Скрипт хорош но как на меня лучше просто макрос на эти скилы медленней но с каждым новым включенным скриптом мы жертвуем пингом.

[sguaj]

скиньте плиз настройки пакетника на 3.0

[c-lavr]

вы когда копируйте, разбирайтесь чтоли, с тем, что копирнули)
вот что за байты которые я выделил?

Цитата: Сообщение от MrakChiter buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00');

Это просто счет скилов. Эти байты можно просто удалить, или прописать нолики.

И выглядело бы уже как твое личное творение:

procedure DoTheSkill(SkillID:word; Level:byte);
begin
    buf := HStr('D0 00 57 6F FF');
    WriteH(SkillID);
    WriteC(Level);
    WriteC(0);
    WriteD(TargetID);
    SendToServer;
end;

[atomik666]

Скажи пажалуйсто откуда ты брал id новых скилов в базе нету ещё из 3.0
Скинь ссылку плиз)

[V0pr0S]

а где обещанное для 2,7 ?

[ragnaros]

спасибо

[hackdragon]

Кастует Сжечь Чары и пишет умение не готово , типа другие умение и не кастует других скиллов. Только сжечь чары и сё.. Может заддержки поставиш между скиллами?

[Oni-San]

Вот скрип для более новых 3.0 -3.5 может кому будит интересно .

Цитата: var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 2660; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin buf:=pck; TargetID := ReadD(10); DoTheSkill(2660, 1); DoTheSkill(2404, 1); DoTheSkill(2655, 1); end; end.