|
Автоматическое использование скиллов 4.0 EU - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
20.10.2013, 19:13
|
#1
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 16
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Автоматическое использование скиллов 4.0 EU
Решил обновить все таки скрипт на авто использование скиллов. Может кому-нибудь понадобится. За основу взял эту статью, так что если у кого то будут вопросы как и что редактировать, то сначала прочитайте ту статью, там все хорошо написано.
тык
Данный скрипт сделан на основе серии внезапки для лучника 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);
Последний раз редактировалось 4omp; 20.10.2013 в 19:20.
|
|
|
21.10.2013, 12:54
|
#2
|
|
|
|
Разведчик
|
Регистрация: 07.10.2012
Сообщений: 17
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматическое использование скиллов 4.0 EU
Можешь мне помочь?
|
|
|
22.10.2013, 14:02
|
#3
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 16
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: Автоматическое использование скиллов 4.0 EU
|
|
|
22.10.2013, 18:18
|
#4
|
|
|
|
Разведчик
|
Регистрация: 07.10.2012
Сообщений: 17
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматическое использование скиллов 4.0 EU
Не могу скрипт под себя сделать, не бьёт.
|
|
|
22.10.2013, 18:41
|
#5
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 16
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: Автоматическое использование скиллов 4.0 EU
|
|
|
27.11.2013, 23:36
|
#6
|
|
|
|
Разведчик
|
Регистрация: 24.10.2013
Сообщений: 5
Популярность: 92
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматическое использование скиллов 4.0 EU
4omp, чувак,раз освоил скриптинг 4.0 можешь попытаться написать скрип(ы) на лука,сина,глада,на все скиллы (тоесть гм пвп серв) . Помогу чем смогу,и думаю народу понравится)
|
|
|
20.12.2013, 09:34
|
#7
|
|
|
|
Разведчик
|
Регистрация: 14.09.2012
Сообщений: 5
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматическое использование скиллов 4.0 EU
Подскажи подалуйста где я ошибся. Сервер 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.
|
|
|
20.12.2013, 10:35
|
#8
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 16
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: Автоматическое использование скиллов 4.0 EU
|
Цитата: |
|
|
|
|
|
|
|
|
|
Подскажи подалуйста где я ошибся. Сервер 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'); но может у тебя и без этого заработает)))
Последний раз редактировалось 4omp; 20.12.2013 в 12:45.
|
|
|
20.12.2013, 14:59
|
#9
|
|
|
|
Разведчик
|
Регистрация: 14.09.2012
Сообщений: 5
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматическое использование скиллов 4.0 EU
|
|
|
20.12.2013, 21:07
|
#10
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 16
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 1 раз в 1 сообщении
|
Re: Автоматическое использование скиллов 4.0 EU
ох вот по этому поводу не знаю что сказать. с этим вопросов в тему про л2пх
http://zhyk.ru/forum/showthread.php?t=361135&page=5 вот старую тему еще обновили, добавили шаблоны для 4,0 и 4,3 посмотри
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 08:37.
|
|