[Скрипт] Автоматическое использование скиллов 4.0 EU

[4omp]

Решил обновить все таки скрипт на авто использование скиллов. Может кому-нибудь понадобится. За основу взял эту статью, так что если у кого то будут вопросы как и что редактировать, то сначала прочитайте ту статью, там все хорошо написано.
тык

Данный скрипт сделан на основе серии внезапки для лучника 65 лвла.
Это с таймером.

Цитата: var name:string; Timer:TTimer; TimerStep:integer; TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('E7 00 65 18 FF CC CC DD 00 FF FF FF FF 35 02 05 75 00 00 '); WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServerEx(name); end; procedure Init; begin TimerStep:=1; Timer:=TTimer.Create(nil); Timer.OnTimer:=@OnTimer; Timer.enabled:=false; Timer.interval:=460; end; procedure Free; begin Timer.free; end; procedure OnTimer(Sender: TObject); begin case TimerStep of 1: begin DoTheSkill(2497, 6); Timer.enabled:=false; Inc(TimerStep); TimerStep:=1; end; end; end; begin StartSkill := 2911; if (FromClient) and (ReadC(1) = $E7) and (ReadH(6) = StartSkill) then begin name:=ConnectName; TargetID := ReadD(10); Timer.enabled:=true; end; end.

Это без таймера, по идее должен работать, но я не проверял.

Цитата: var name:string; Timer:TTimer; TimerStep:integer; TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('E7 00 65 18 FF CC CC DD 00 FF FF FF FF 35 02 05 75 00 00 '); WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServerEx(name); end; begin StartSkill := 2911; if (FromClient) and (ReadC(1) = $E7) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(2497, 6); end; end.

Уровень скилла я брал из отловленного пакета при его использовании.
Например, E7 00 65 18 FF C1 09 06 00 3A 7D 01 80 21 02 05 75 00 00 - это пакет 2 скилла в серии внезапки Ruprure Arrow IV. 06 и является у нас уровнем скилла. DoTheSkill(2497, 6);

[anton1233]

Можешь мне помочь?

[4omp]

Цитата: Сообщение от anton1233 Можешь мне помочь?

с чем?

[anton1233]

Не могу скрипт под себя сделать, не бьёт.

[4omp]

Цитата: Сообщение от anton1233 Не могу скрипт под себя сделать, не бьёт.

попробуй сменить вот это значение Timer.interval:=460; на более высокое, это первое, что я проверяю если не работает этот скрипт.

[pepper31]

4omp, чувак,раз освоил скриптинг 4.0 можешь попытаться написать скрип(ы) на лука,сина,глада,на все скиллы (тоесть гм пвп серв) . Помогу чем смогу,и думаю народу понравится)

[bronel]

Подскажи подалуйста где я ошибся. Сервер EU ( Вот пакет на первый скил E4 00 65 1B FF E3 04 09 00 34 97 00 80 23 02 F9 AB 00 00 но я прочитал в посте в начале сказали не трогать эту строку.Поставил этот пакет теперь вообще не даёт скилл )
var

TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила
begin
buf := HStr('E4 00 65 1B FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00'); //Начальный пакет на скил
WriteH(SkillID, 1251); //Вставляем в начальный пакет ID скила
WriteC(Level, 9); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета
SendToServer;
end;
begin

StartSkill := 1251; //Удар метеора III
if (FromClient) and (ReadC(1) = $E4) and (ReadH(6) = StartSkill) then

begin
TargetID := ReadD(10);
DoTheSkill(1251, 9); //Удар метеора III
DoTheSkill(1248, 9); //Раскаленный удар III
DoTheSkill(1257, 9); //Взрывной удар II
end;

end.

[4omp]

Цитата: Сообщение от bronel Подскажи подалуйста где я ошибся. Сервер EU ( Вот пакет на первый скил E4 00 65 1B FF E3 04 09 00 34 97 00 80 23 02 F9 AB 00 00 но я прочитал в посте в начале сказали не трогать эту строку.Поставил этот пакет теперь вообще не даёт скилл ) var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила begin buf := HStr('E4 00 65 1B FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00'); //Начальный пакет на скил WriteH(SkillID, 6); //Вставляем в начальный пакет ID скила WriteC(Level, 9); //Всталяем в начальный пакет уровень скила WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета SendToServer; end; begin StartSkill := 1251; //Удар метеора III if (FromClient) and (ReadC(1) = $E4) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(1251, 9); //Удар метеора III DoTheSkill(1248, 9); //Раскаленный удар III DoTheSkill(1257, 9); //Взрывной удар II end; end.

С первого взгляда это бросилось в глаза
И еще бы я поменял вот эту строчку buf := HStr('E4 00 65 1B FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00'); на
buf := HStr('E4 00 65 1B FF CC CC DD 00 FF FF FF FF 23 02 F9 AB 00 00'); но может у тебя и без этого заработает)))

[bronel]

Цитата: Сообщение от 4omp С первого взгляда это бросилось в глаза И еще бы я поменял вот эту строчку buf := HStr('E4 00 65 1B FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00'); на buf := HStr('E4 00 65 1B FF CC CC DD 00 FF FF FF FF 23 02 F9 AB 00 00'); но может у тебя и без этого заработает)))

Не получилось сделал всё как вы написали .
И ещё один вопрос у меня лп2пак не работает с reducethelag программой которая понижает пинг , когда её вырубаю пакетник работает , а без этой проги у меня пинг очень больше , а вписал туда как бот прогу не помогло ( что делать ?

[4omp]

ох вот по этому поводу не знаю что сказать. с этим вопросов в тему про л2пх

http://zhyk.ru/forum/showthread.php?t=361135&page=5 вот старую тему еще обновили, добавили шаблоны для 4,0 и 4,3 посмотри