[Обсуждение] Скриптеры (Профи уровень)

[c-lavr]

Создаю тему для обсуждению написания скриптов.
Обсуждаем свои идеи или пишем вместе скрипты.
Здесь также можете оставлять запросы на написание конкретных скриптов под существующие баги.

Отдельно создана группа в скайпе.
Умение программирования на Object Pascal (FastScript) как минимум среднего уровня, обязательное условие для вступления.
Для вступления стучимся ко мне в личку или к Usilok

Ссылки на INFO:

1. [Ссылки могут видеть только зарегистрированные пользователи. ] описание основных функций
2. [Ссылки могут видеть только зарегистрированные пользователи. ] (раздел документация)
3. [Ссылки могут видеть только зарегистрированные пользователи. ] много готовых решений, можно адаптировать под свои нужды

P.S. Набросок темы. Позже подумаю что можно еще сюда добавить

[NonSteeler]

c-lavr, Здраствуй, хотелось бы скрипт для безконечного полёта(думаю реально реализовать) хотел еще один написать но забыл))
вспомню доплню пост
еще бы хотелось скрипт с вероятностю продолжения серии 100%(при использовании скилов.син)

[c-lavr]

на бесконечный полет на 2.7 сейчас вроде везде баг. Для какой именно версии aiona ?
Если для 2.5, то мультихак с этим отлично спрвляеться

[NonSteeler]

Цитата: Сообщение от c-lavr на бесконечный полет на 2.7 сейчас вроде везде баг. Для какой именно версии aiona ? Если для 2.5, то мультихак с этим отлично спрвляеться

Версия клиент 2.7, сервер AW+RS.net
что за баг? кстати мультихак на 2.7 там не пашет(

[talala]

В этой теме про баги не спрашивать. Она не для этого создана

[c-lavr]

и не одного отзыва. Умирает раздел айон потихоньку.....

[dreamzy]

Какие пакеты отвечают за Анимацию, если скрипты делать?*

[talala]

Цитата: Сообщение от c-lavr и не одного отзыва. Умирает раздел айон потихоньку.....

С логикой все в порядке?

[c-lavr]

Цитата: Сообщение от talala С логикой все в порядке?

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

Добавлено через 2 минуты

Цитата: Сообщение от dreamzy Какие пакеты отвечают за Анимацию, если скрипты делать?*

Не пакет, а байты в пакете. От сервера 45 пакет. Какие байты смотри в серверной части пакетхака

Добавлено через 23 часа 50 минут
кто хочет написать АнимеХак?? Могу рассказать что ды как. Уже лень самому его собирать - стимула нет. над просто все инфу в скрипт залит

[manyunya]

Цитата: Сообщение от c-lavr кто хочет написать АнимеХак?? Могу рассказать что ды как. Уже лень самому его собирать - стимула нет. над просто все инфу в скрипт залит

в чем он заключается, подробнее можно?

[Demboys]

есть вопрос по скрипту!

PHP код:

 If FromClient and (pck=Hstr('B2 00 57 71 FF 00 31 04 3E 04 3B 04 3E 04 42 04 3E 04 20 00 32 04 38 04 41 04 3A 04 3E 04 3C 04 30 04 00 00')) then 


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

PHP код:

 If FromClient and (ReadC(1)=$B2) and (ReadS(7)='команда в чате') then 


[c-lavr]

Да все правильно поняли - вписали любое слово вместо слов "команда в чате" и при вводе этго в чат будет выполняться все что вы пропишите дальше

расшифрую последнюю строчку:

Если (If) пакет идет отклиента (FromClient) и (and) начинается на B2 ((ReadC(1)=$B2)) и в чате написано только "команда в чате" ((ReadS(7)='команда в чате')) тогда (then) .. и выполняет действия

Добавлено через 4 минуты

Цитата: Сообщение от manyunya в чем он заключается, подробнее можно?

от сервера идет 45 пакет длиной 20 байт. последние 4 байта - это скорость анимации+скорость атаки.

вот так последние байты пакета считывает сервер:

case START_EMOTE2:
// emote startloop
writeH(buf, state);
writeF(buf, speed);
writeH(buf, baseAttackSpeed);
writeH(buf, currentAttackSpeed);

[chilay07]

сор конечна но мож глянуть скрип ,где тут ошибка ,(для 2.7-3.0)кучу вариантов перепробовал

Цитата: //Timer by happytorn const name = 'chila'; var Timer:TTimer; TimerStep:integer; TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('D0 00 57 6F FF 30 09 01 00 00 00 00 00 00 00 39 16 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:=800; end; procedure Free; begin Timer.free; end; procedure OnTimer(Sender: TObject); begin case TimerStep of 1: begin DoTheSkill(1970, 1); Inc(TimerStep); end; 2: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 3: begin DoTheSkill(2055, 4); Inc(TimerStep); end; 4: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 5: begin Timer.interval:=10; DoTheSkill(2061, 2); Inc(TimerStep); end; 6: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 7: begin DoTheSkill(1977, 1); Inc(TimerStep); end; 8: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 9: begin Timer.interval:=10; DoTheSkill(405, 3); Inc(TimerStep); end; 10: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 11: begin DoTheSkill(535,2); Inc(TimerStep); end; 12: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 13: begin Timer.interval:=100; DoTheSkill(538, 5); Inc(TimerStep); end; 14: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 15: begin DoTheSkill(539, 3); Inc(TimerStep); end; 16: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 17: begin Timer.interval:=10; DoTheSkill(2061, 2); Inc(TimerStep); end; 18: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 19: begin DoTheSkill(2045, 4); Inc(TimerStep); end; 20: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 21: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 22: begin Timer.interval:=10; DoTheSkill(405, 3); Inc(TimerStep); end; 23: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 24: begin DoTheSkill(465, 4); Inc(TimerStep); end; 25: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 26: begin Timer.interval:=10; DoTheSkill(538, 5); Inc(TimerStep); end; 27: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 28: begin DoTheSkill(177, 5); Inc(TimerStep); end; 29: begin Timer.interval:=100; DoTheSkill(1976, 1); Inc(TimerStep); end; 30: begin Timer.interval:=10; DoTheSkill(2061, 2); Inc(TimerStep); end; 31: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 32: begin DoTheSkill(180, 5); Inc(TimerStep); end; 33: begin Timer.interval:=10; DoTheSkill(1976, 1); Inc(TimerStep); end; 34: begin Timer.interval:=100; DoTheSkill(2066, 3); Inc(TimerStep); end; 35: begin DoTheSkill(2044, 4); TimerStep:=1; end; end; end; begin StartSkill := 2065; if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); Timer.enabled:=true; end; end.

[c-lavr]

выключать кто его тебе будет?) Да и TimerStep начальное значение попробуй вынести в другое место (например в основное тело). так-что цикл case возможно не работает
В чем именно проблема-то еще

[chilay07]

спс,да а включить забыл,)лол