[Информация] Скриптинг или от новичка к профи

[4omp]

расскажите пожалуйста за что отвечают последние 6 цифр?
E7 00 65 18 FF 4F 0B 03 00 0B A3 00 80 2D 02 05 75 00 00
пакет из 4.0, скилл [Ссылки могут видеть только зарегистрированные пользователи. ]

[xwarez]

помогите плиз скажите что не так написал var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('EF 00 6D 10 FF 34 02 09 00 08 A4 00 00 00 00 00 00 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(674, 1);
DoTheSkill(704, 1);
DoTheSkill(652, 1);
DoTheSkill(2273, 1);
end;

Добавлено через 20 минут
забыл сказать для 4 3 вот пакет который поймал (аркан-1) 37 00 46 C8 FF 4E CD 02 00 23 21 00 00 00 A0 40 92 07 92 07 00
прозьба сделайте шаблон для 4.0+
заранее спасибо)

[xwarez]

happytorn, уважаемый большая просьба сделайте шаблон для 4.0+ думаю не я один хотел бы) заранее спасибо

[happytorn]

Цитата: Сообщение от 4omp расскажите пожалуйста за что отвечают последние 6 цифр? E7 00 65 18 FF 4F 0B 03 00 0B A3 00 80 2D 02 05 75 00 00 пакет из 4.0, скилл [Ссылки могут видеть только зарегистрированные пользователи. ]

Счетчик ударов насколько я помню.

Цитата: Сообщение от xwarez happytorn, уважаемый большая просьба сделайте шаблон для 4.0+ думаю не я один хотел бы) заранее спасибо

Добавил в шапку темы шаблоны для 4.0 и 4.3

[pepper31]

простите если что,я нуб полный в скриптинге.
вот сделал все по инструкции для 4.0 заменил ид из базы [Ссылки могут видеть только зарегистрированные пользователи. ]
все вроде правильно я хз(
var

TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('E7 00 65 18 FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;
begin

StartSkill := 9236;
if (FromClient) and (ReadC(1) = $E7) and (ReadH(6) = StartSkill) then

begin
TargetID := ReadD(10);
DoTheSkill(9256, 6);
DoTheSkill(9214, 4);
DoTheSkill(9165, 7);
end;

end.
ничего не происходит при нажатии на скилл активатор,галочку поставил,пакеты идут.

[happytorn]

Цитата: Сообщение от pepper31 простите если что,я нуб полный в скриптинге. вот сделал все по инструкции для 4.0 заменил ид из базы [Ссылки могут видеть только зарегистрированные пользователи. ] все вроде правильно я хз( ничего не происходит при нажатии на скилл активатор,галочку поставил,пакеты идут.

Попробуйте шаблон для 4.3. Если не сработает, значит фикс на вашем сервере.

[xwarez]

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

Добавлено через 4 минуты
happytorn, можеш сделать скрипт на 4.3 чтоб анимацию убрать?

[bronel]

Подскажите пожалуйста не могу сделать серию где я ошибся. Клиент 4.3 сервер 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.

[happytorn]

Цитата: Сообщение от bronel Подскажите пожалуйста не могу сделать серию где я ошибся. Клиент 4.3 сервер 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.

Это не надо было трогать, а оставить как было

WriteH(SkillID, 6); 
WriteC(Level, 8); 
WriteD(TargetID, 10);

[bronel]

Цитата: Сообщение от happytorn Это не надо было трогать, а оставить как было WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10);

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

[happytorn]

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

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

[shimipwnz]

А как узнать начальный пакет на скилл?

И вообще как можно накатать автоатаку на версию 4.7.5?

[RemoteAccess]

Цитата: Сообщение от happytorn [SIZE="3"][FONT="Verdana"]2) Как сделать задержку между пакетами чтобы не палиться? Пример скрипта В строке Timer.interval:=900; меняем по желанию 900 на любое нужное вам время задержки. Время задержки между скилами будет одинаковое. [/MORE]

На coderx.ru был такой вариант рандомного таймера:

 Timer.interval := 900+round(random()*1000); // каждый раз у нас будет рандомный промежуток времени от одной до двух секунд.
                                                // нужно для "очеловечивания" нашего скрипта, чтобы не спалили злые админы :)
                                                // random()*1000 - случайное число от 0 до 1000
                                                // round(random()*1000) - округление того случайного числа до ближайшего целого. 
                                                // например рандом выбрал 352,2456575474 - нахрена нам эти знаки после запятой? вот и округляем.