[Скрипт] Для Сина

[Jusfrut]

Слишком палевный скрипт. Так как по логам определят,что скиллы не по цепочке будут идти.

[Darnis]

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); //Вставляем в начальный пакет ID скила
WriteC(Level, 8); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета
SendToServer;
end;
begin

StartSkill := 867; //Стремительный удар V
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then

begin
TargetID := ReadD(10);
DoTheSkill(2116, 7);
DoTheSkill(875, 4);
DoTheSkill(860, 3);
DoTheSkill(2110, 2);
DoTheSkill(2121, 4);
DoTheSkill(853, 3);
end;

end.



Вылаживаю данный скрипт просто для людей которым может понадобится.Активируется скилом Нанесение клейма.Можно пользываться синам только 55 лвл.Это скрипт серия,впринцыпе не палевный.Не сочтите меня школоло
Если помог спасибку мне,

[Canabinol]

И так к вашему внимание предоставлю скрипт на накладывания сином немки
Активирутса скиломСтремительный удар V
> после активацыи бэт скилом Стремительный разсекаючий удар V(Для понижения маг дефа)
>бафает Клятва точости l и Точный расчет l
>Используетса Нанесения клейма на растоянии V
>и наконецто Вспышка клейма молания l
Вот и сам скрипт:

PHP код:

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 := 578;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(2122, 4);
DoTheSkill(836, 1);
DoTheSkill(839, 1);
DoTheSkill(2113, 4);
DoTheSkill(1989, 1);

end;
end. 


Пользуюсь скриптом сам не палитса даж на ивентах щас топ син)))
Удачного использования

[Wizarddi]

NA всё робит спс

[stwan73]

Доброго времени суток!
Помогите настроить скрип и немного его отредактировать.
Клиент 2.7
Что нужно подредактировать:
1. Расставить паузу между пакетами (0.3 сек)
2. Подставить правильно пакет скила/атаки:

D0 00 57 6F FF 6B 03 09 00 F4 07 03 00 86 00 79 81 00 00    - Рев зверя 4
D0 00 57 6F FF 5C 03 09 00 F4 07 03 00 CF 00 79 41 00 00    - Удар зверя 3
D0 00 57 6F FF 3E 08 09 00 F4 07 03 00 43 02 79 AD 00 00    - Бросок зверя 2

Я попробовал не получилось у меня=)

begin
if(fromclient)and(pck[1]=#$D0) and (ReadH(4)= 875)then
begin
buf:=hstr('D0 00 57 6F FF 6B 03 09');
writeD(readD(8));
buf:=buf+hstr('86 00 79 81 00 00');
sendtoserver;
begin
if(fromclient)and(pck[1]=#$D0) and (ReadH(4)= 875)then
begin    
buf:=hstr('D0 00 57 6F FF 5C 03 09');
writeD(readD(8));
buf:=buf+hstr('CF 00 79 41 00 00');
sendtoserver;
begin
if(fromclient)and(pck[1]=#$D0) and (ReadH(4)= 875)then
begin
buf:=hstr('57 6F FF 3E 08 09');
writeD(readD(8));
buf:=buf+hstr('43 02 79 AD 00 00');
sendtoserver;
end;
end;
end;
end;
end;
end.

Интервал нужен между пакетами скилов для того что бы сервер клиента реагировал на них как на обычные юзы скилов.
тестил обычно отправкой интервал ставил 0.3 и вся серия проходила нормально.

[aga-aga]

const
name = 'xxxxx'; сюда пиши свой логин.
var
Timer:TTimer;
TimerStep:integer;
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 E2 01 F9 C3 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:=400; задержка между скилами
end;


procedure Free;
begin
Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(875, 9); ид скила с базы
Inc(TimerStep);
end;
2:
begin
DoTheSkill(860, 9);
Inc(TimerStep);
end;
3:
begin
DoTheSkill(2110, 9);
Inc(TimerStep);
end;
4:
begin
DoTheSkill(2121, 9);
Inc(TimerStep);
end;
5:
begin
DoTheSkill(868, 9);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;

begin

StartSkill := 875; скил который будет активировать скрипт
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end.

только перед тем как сохранить скрипт удали мои каракули:

скил который будет активировать скрипт
ид скила с базы
задержка между скилами
сюда пиши свой логин.

p.s тему на этот скрипт найти не смог.

[stwan73]

Спасибо,я порылся на форуме и нашел возможно ту тему:ТыК

Ребят можете написать скрипт,чтобы:
1. Когда используешь эмоцию он активируется/дезактивируется
2. Что бы пакет шел не на сервер а не клиет
3. Что бы пакет шел на клиент 1 раз в 2 секунды

[arti77731]

по логам если посомтреть легко заметить ...могли бы вы написать скрипт где все скилы идут по порядку только одной кнопкой...быть может тогда не так палится можно будет

[neitro]

Цитата: Сообщение от arti77731 по логам если посомтреть легко заметить ...могли бы вы написать скрипт где все скилы идут по порядку только одной кнопкой...быть может тогда не так палится можно будет

если скрипт с нормальным таймером то ничего по логам не палится при желании между скилами даже разный интервал будет ( на форуме был пример такого скрипта). По поводу одно кнопочной системы выпуска скиллов - вас одна тактика на все случаи игры ? и как бы такой вариант не катит если у вас с пингом не очень.
неплохо бы знать версию клиента . . .

[Artem24091994]

А на Aionlostworld 2.5 работает?

Добавлено через 3 минуты
а на Aionlostworld
2.5 будет работает?Не кто не тестил?

[ВОЛОДЬ]

Ребят можете на сина 40 лвл асма сделать скриптик не палевный какой нить а то фул ап не охото банан кушать

[fanFermara]

Основано на Этой теме!

Скрипт для сина 59 лвла.
После использования умения "Засада VI" вылетает еще 2 скила "Внезапная атака VI" и "Подлый удар III"

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 := 2126;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
TargetID := ReadD(10);
DoTheSkill(2492, 6);
DoTheSkill(2524, 3);
end;
end..

[fanFermara]

После использования умения "Применение смертельных ядов I" син бафается еще 10 бафами. + цепь уклонений I.
P.s - актуальней для ДД сина. т.к бафы по нижней ветке стигм.

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 := 919;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
TargetID := ReadD(10);
DoTheSkill(862, 4);
DoTheSkill(2543, 6);
DoTheSkill(949, 1);
DoTheSkill(1988, 1);
DoTheSkill(1984, 1);
DoTheSkill(1981, 1);
DoTheSkill(927, 1);
DoTheSkill(836, 1);
DoTheSkill(813, 1);
DoTheSkill(839, 1);
DoTheSkill(813, 1);
DoTheSkill(577, 1);
DoTheSkill(572, 1);
end;
end..

[lightbearer]

Цитата: После использования умения "Применение смертельных ядов I" син бафается еще 10 бафами. + цепь уклонений I. P.s - актуальней для ДД сина. т.к бафы по нижней ветке стигм.

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 := 919;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
TargetID := ReadD(10);
DoTheSkill(862, 4);
DoTheSkill(2543, 6);
DoTheSkill(949, 1);
DoTheSkill(1988, 1);
DoTheSkill(1984, 1);
DoTheSkill(1981, 1);
DoTheSkill(927, 1);
DoTheSkill(836, 1);
DoTheSkill(813, 1);
DoTheSkill(839, 1);
DoTheSkill(813, 1);
DoTheSkill(577, 1);
DoTheSkill(572, 1);
end;
end..

сделай табличку

[fanFermara]

я не умею как сделать скажи пожалуйста