|
Скриптинг или от новичка к профи - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
16.02.2012, 21:30
|
#16
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Скриптинг или от новичка к профи
________________
Gods,give me strength
|
|
|
16.02.2012, 23:16
|
#17
|
|
|
|
Разведчик
|
Регистрация: 22.10.2011
Сообщений: 11
Популярность: 12
Сказал(а) спасибо: 4
Поблагодарили 2 раз(а) в 2 сообщениях
|
Re: Скриптинг или от новичка к профи
спасибо, сделал беспалевный скрипт на сина, а как сделать чтобы при тп перс появлялся в воздухе? чтобы можно было парировать куда хочешь.
|
|
|
16.02.2012, 23:51
|
#18
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Скриптинг или от новичка к профи
|
Цитата: |
|
|
|
|
|
|
|
|
|
спасибо, сделал беспалевный скрипт на сина, а как сделать чтобы при тп перс появлялся в воздухе? чтобы можно было парировать куда хочешь.
|
|
|
|
|
|
C2 00 57 61 FF 04 CC DB A7 44 A4 20 F9 44 00 80 2A 42 36
04 нужно поменять на что-то,что бы перс не садился.Хз на что менять,над тестить.
00 80 2A 42-координаты по высоте.Меняем на нужные нам.
________________
Gods,give me strength
|
|
|
Пользователь сказал cпасибо:
|
|
17.02.2012, 13:28
|
#19
|
|
|
|
Разведчик
|
Регистрация: 07.01.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C B2 00 06 00 24 AB 00 00 F4 01 F9 AB 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;
begin
StartSkill := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
DoTheSkill(515, 9);
DoTheSkill(427, 9);
DoTheSkill(177, 2);
DoTheSkill(545, 4);
DoTheSkill(412, 1);
DoTheSkill(465, 1);
DoTheSkill(505, 6);
DoTheSkill(510, 6);
DoTheSkill(2271, 1);
DoTheSkill(529, 4);
DoTheSkill(157, 5);
DoTheSkill(405, 1);
DoTheSkill(529, 4);
DoTheSkill(509, 9);
DoTheSkill(449, 3);
DoTheSkill(410, 1);
end;
end.
Здравствуйте, попробовал сам склепать скриптик на автоатаку всеми боевыми скилами Стража 45 лвл на "нюшке"
Скрипт не работает не могу найти ошибку...
Особенно непонятно где берутся следующие значения :
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
Помогите разобраться .
|
|
|
17.02.2012, 13:56
|
#20
|
|
|
|
Разведчик
|
Регистрация: 04.07.2011
Сообщений: 14
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
|
Цитата: |
|
|
|
|
|
|
|
|
|
Здравствуйте, попробовал сам склепать скриптик на автоатаку всеми боевыми скилами Стража 45 лвл на "нюшке"
Скрипт не работает не могу найти ошибку...
Особенно непонятно где берутся следующие значения :
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
Помогите разобраться .
|
|
|
|
|
|
в этом скрипте все скилы которые ты указал будут вылетать за 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 := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(515, 9);
DoTheSkill(427, 9);
DoTheSkill(177, 2);
DoTheSkill(545, 4);
DoTheSkill(412, 1);
DoTheSkill(465, 1);
DoTheSkill(505, 6);
DoTheSkill(510, 6);
DoTheSkill(2271, 1);
DoTheSkill(529, 4);
DoTheSkill(157, 5);
DoTheSkill(405, 1);
DoTheSkill(529, 4);
DoTheSkill(509, 9);
DoTheSkill(449, 3);
DoTheSkill(410, 1);
end;
end
|
|
|
17.02.2012, 14:38
|
#21
|
|
|
|
Разведчик
|
Регистрация: 07.01.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
Благодарочка все работает!
По поводу задержки скилов...мне скрипт нужен исключительно для РБ-боссов,ведь пвп я вижу Более интересным когда оно "честное".
Ещё мне непонятные пару вещей:
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);
begin
StartSkill := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
Хотелось бы не быть нубом и самому понимать что к чему)
Как наберу 10 сообщений поставлю обязательно спасибо!
|
|
|
17.02.2012, 16:03
|
#22
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Скриптинг или от новичка к профи
|
Цитата: |
|
|
|
|
|
|
|
|
|
Хотелось бы не быть нубом и самому понимать что к чему)
Как наберу 10 сообщений поставлю обязательно спасибо!
|
|
|
|
|
|
CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 это пакет из которого мы "стряпаем" (подставляем в него ID скила, ID таргета, Уровень скила)
WriteH(SkillID, 4); //пишем ID скила(заменяем 2 байта,начиная с четвертого)
WriteC(Level, 6); //пишем уровень скила(заменяем 1 байт,шестой по счету)
WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого)
________________
Gods,give me strength
Последний раз редактировалось happytorn; 17.02.2012 в 17:39.
|
|
|
17.02.2012, 17:11
|
#23
|
|
|
|
Разведчик
|
Регистрация: 09.09.2010
Сообщений: 21
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
Кстати - данная строчка WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого), как и сама переменная TargetID - вещь ненужная. в своих скриптах на скиллы я ее игнорирую - что на результате не сказывается. Ведь когда мы жмем активатор скилла - у нас уже в таргете есть "кто-то".
________________
Жми "Спасибо"
|
|
|
17.02.2012, 18:49
|
#24
|
|
|
|
Разведчик
|
Регистрация: 04.07.2011
Сообщений: 14
Популярность: 10
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
чёт всё равно скрипт не работает(( подскажите плиз где ошибка?
Код:
const
name = 'nnn'; //тут логин
var
Timer:TTimer;
TimerStep:integer;
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);
SendToServerEx(name);
end;
procedure Init;
begin
TimerStep:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=800;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(1990,1);
Inc(TimerStep);
end;
2:
begin
DoTheSkill(839,1);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;
begin
StartSkill := 1987;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
Timer.enabled:=true;
end;
end.
|
|
|
17.02.2012, 19:41
|
#25
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Скриптинг или от новичка к профи
________________
Gods,give me strength
|
|
|
20.02.2012, 12:40
|
#26
|
|
|
|
Пехотинец
|
Регистрация: 08.08.2011
Сообщений: 89
Популярность: -343
Сказал(а) спасибо: 12
Поблагодарили 55 раз(а) в 22 сообщениях
|
Re: Скриптинг или от новичка к профи
|
Цитата: |
|
|
|
|
|
|
|
|
C2 00 57 61 FF 04 CC DB A7 44 A4 20 F9 44 00 80 2A 42 36 |
|
|
|
|
|
Из чего этот пакет взял, из обычного возвращения?
________________
Everything should be made as simple as possible, but not simpler.
|
|
|
28.02.2012, 18:21
|
#28
|
|
|
|
Разведчик
|
Регистрация: 16.03.2011
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
|
|
|
28.02.2012, 18:47
|
#29
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Скриптинг или от новичка к профи
|
Цитата: |
|
|
|
|
|
|
|
|
|
Если честно , то не понял про байты
|
|
|
|
|
|
CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 это пакет из которого мы "стряпаем" (подставляем в него ID скила, ID таргета, Уровень скила)
WriteH(SkillID, 4); //пишем ID скила(заменяем 2 байта,начиная с четвертого) то есть CC CC меняем на наш ID
WriteC(Level, 6); //пишем уровень скила(заменяем 1 байт,шестой по счету) т.е. DD меняем на наш ур. скила
WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого) т.е. FF FF FF FF меняем на наш ID
Все это находится в теле процедуры и менять здесь ничего не нужно. И если вы не имеете представления о том что такое процедура и как она вызывается, то можно просто упустить эту часть.
________________
Gods,give me strength
|
|
|
28.02.2012, 19:13
|
#30
|
|
|
|
Разведчик
|
Регистрация: 16.03.2011
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Скриптинг или от новичка к профи
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 07:49.
|
|