[Скрипт] Написание АВТО скриптов под ваш класс.

[fenix17]

можно узнать, что это за пакет: CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 ?
и если не трудно какой для него аналог в версии 2.7?

[Denis86russ@]

Цитата: Сообщение от fenix17 можно узнать, что это за пакет: CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 ? и если не трудно какой для него аналог в версии 2.7?

аналагом евляется пакет начинающийся на D0

[x-miskalin-x]

Кто-то может немного объяснить по процедуре?

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;

[zlodey772]

Цитата: Сообщение от k2_target И так дорогие читера. Расскажу вам как написать простенький скрипт. (Идея форумчанина "Огненный" который удалил свой скрипт так как передумал пускать его в мир) А я не жлобяра, ещё + расскажу как подогнать скрипт под ваш класс. Пример скрипта: 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 := 2238; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2238, 4); DoTheSkill(2233, 5); end; end. И так: begin StartSkill := 2238; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then Cкил Активатор. Тоесть юзаете этот скил и происходит следущее... DoTheSkill(2238, 4); DoTheSkill(2233, 5); ... Скилы которые будут вылетать после скила активатора (скилов может быть полный ваш список. DoTheSkill(2238, 4); 2238 - ID скила 4 - Уровень. Вот и всё, кому не понятно спрашуйте. Активно принимаю пасибки.

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C AD 00 01 00 00 00 00 00 00 00 18 D7 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 173;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(151, 2);
DoTheSkill(165, 4);
DoTheSkill(169, 6);
end;
end.



Здарова ! вот тупо жмеш на щит , по 1 ток стреляет если нажать 3 раза на щит то вилетят 3 удара =) а так ток по 1 почемуто ?

[lerjik]

Цитата: Сообщение от Denis86russ@ аналагом евляется пакет начинающийся на D0

Так я тоже не понял что это за пакет вообще CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 И как узнать версию пакета под 2.7 клиент

Добавлено через 45 минут
скилы включаются одновременно, но урона не наносят

[lexppv]

для лука пожалуйста. на легенде играю

[ВОЛОДЬ]

Ребят срочно нужна помощь!
Проделал с заклом перед кастом стоит на месте тормозит около 3 секунд.На гладе вообще не вышло пишет мол удары только в серии можно использовать!(
Кто может написать нормальный скрипт образец где только останется вставить номера скилов.

И какая команда чтобы между скилами он сделал некоторую паузу.Видел некоторые скрипты так и не вышло.Если не трудно просто киньте скрипт образец.

[ZlukaZorg]

Доброго времени суток Нужен скрипт под волша(3,0)Помогите если не трудно.Зарание благодарен.....

[RoyZ]

Все работает

[Epsil0n]

Aion F2P 3.1 - неработает, скрипт редактировал под новые значения, в отправленных пакетах видно что скилы "какбэ" юзаются, но по факту нет, и если добавить много скилов или повторить его пару-тройку раз ловим дисконект.

Пример моего скрипта на лучника:

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('EF 00 6D 10 FF 3C 02 01 00 00 00 00 00 00 00 F9 7C 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

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

DoTheSkill(731, 1);
DoTheSkill(630, 1);
DoTheSkill(736, 4);
end;
end.

В этом деле я, конечно, новичок, иможет просто гдето допустил ошибку, если так то поправьте

[fenix17]

Цитата: Сообщение от Epsil0n buf := HStr('EF 00 6D 10 FF 3C 02 01 00 00 00 00 00 00 00 F9 7C 00 00');

есть уверенность в этой строчке?

EF 00 6D 10 FF 3C 02 01 00 00 00 00 00 00 00 F9 7C 00 00

где ID скилла, его уровень, ID таргета.


не могу понять, что значат F9 7C эти 2 байта (16, 17 позиция).

если брать исходный пакет по аналогии с 2.7 образцом, то получим: EF 00 6D 10 FF СС СС DD 00 00 00 00 00 00 00 ?? ?? 00 00.

Но это лишь мои домыслы. Люди, кто в этом профессионально разбирается, прошу разъяснить что же это за байты на 16, 17 позиции (они меняются при некоторых баффах на себя, например, клятва ветра у хила) или хотя бы дать подсказку в том ли направлении я мыслю и верны ли мои домыслы.

А в идеале, скинуть рабочий образец исходного пакета =)

[c-lavr]

Последние 4 байта это счет - количество и какой по счету идет твой скилл.
От куда именно счет идет не знаю. но когда ты бьешь одним и тем же скиллом, то разница между двумя зелеными байтами (в соседних скиллах) равна единице

[fenix17]

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

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

DoTheSkill(955, 1);
end;
end.


вот простейший скрипт. при его использовании хил должен бафать на цель Благославение жизни (951) и Благославение защиты (955). НО! бафается почемуто лишь скилл 955, хотя пакеты посылаются от обоих баффов...

[fanFermara]

дайте пример скрипта на 3.0 плиз очень нада. на сина...

[-Emp-]

Цитата: Сообщение от fenix17 var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00'); WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(955, 1); end; end. вот простейший скрипт. при его использовании хил должен бафать на цель Благославение жизни (951) и Благославение защиты (955). НО! бафается почемуто лишь скилл 955, хотя пакеты посылаются от обоих баффов...

Я никогда не писал скрипты, но я вижу что код делает немного другое. Пакеты не посылаются от обоих бафов.

Если я не ошибаюсь, то он сначала делает проверку на каст 951:

StartSkill := 951;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill)

и если он был использован, то тут же использует каст 955:

DoTheSkill(955, 1);

На цель, на которую был использован каст 951.