[Скрипты только для Асмо!]
Благодаря этим двум скриптам можно прокачать перса до 60 лвла за 15-20 мин на X5 рейтах.Тестировал на aion UA и AtreiaWorld .
Шаг 1-ый.
Кач с 3 по 25лвл.
Идем в деревню Альдер в Исхальгене.Подходим к Целителю душ Реневир.Включаем наш скрипт.Берем себя в таргет (нажав на клаве F1),затем берем в таргет НПС Реневир.Все,скрипт готов к работе.Нажимаем на эмоцию Улыбка и получаем опыт.Перед тем как нажимать эмоцию ,чтобы не палится можно уйти хоть в конец карты.Скрипт перестанет работать если начнете брать других НПС в таргет.Строку For i:=1 to 30 do можно отредактировать и тем самым увеличить число получаемого опыта.
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем ID
#$ce:
begin
if FromClient and (ReadC(1)=$CE) and (ReadC(6)=$00) then
pck:=''
else
if FromClient and (ReadC(1)=$CE) and (ReadC(8)=$00) then
NPCID:=ReadD(6)
else
PlayerID:=ReadD(6);
end;
//ловим пакет на эмоцию улыбка
#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
begin
For i:=1 to 30 do
begin
buf:=hstr('FF 01 57 BC FE 3B 08 00 00');
SendToServer;
buf:=hstr('9D 00 57 5A FF 95 DC 0C 00 EA 03 01 00 04 00 3B 08 00 00 00 00');
WriteD(PlayerID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 1A 00 01 00 0A 00 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 F1 03 01 00 47 09 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF CC 8E 00 00 12 00 01 00 05 00 3B 08 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
pck:='';
end;
end;
end;
end;
end.
Шаг 2-ой.
Кач с 25 по 60лвл.
Достигнув 25 лвла с помощью 1-го скрипта, летим из Морхейма в хижину Гондальфуна.Подходим к НПС Карирунг.Первый скрипт должен быть выключен.Включаем второй.Берем себя в таргет, затем НПС Карирунг.Скрипт готов.Можно нажимать эмоцию Улыбка и получать опыт.
begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем ID
#$ce:
begin
if FromClient and (ReadC(1)=$CE) and (ReadC(6)=$00) then
pck:=''
else
if FromClient and (ReadC(1)=$CE) and (ReadC(8)=$00) then
NPCID:=ReadD(6)
else
PlayerID:=ReadD(6);
end;
//ловим пакет на эмоцию улыбка
#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
begin
For i:=1 to 30 do
begin
buf:=hstr('FF 01 57 BC FE C2 09 00 00');
SendToServer;
buf:=hstr('9D 00 57 5A FF 95 DC 0C 00 EA 03 01 00 04 00 C2 09 00 00 00 00');
WriteD(PlayerID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 1A 00 01 00 0A 00 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 F1 03 01 00 47 09 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
buf:=hstr('9D 00 57 5A FF 14 9A 00 00 12 00 01 00 05 00 C2 09 00 00 00 00');
WriteD(NPCID,6);
SendToServer;
pck:='';
end;
end;
end;
end;
end.
зы. aion1; aion-free; aion.in.Ua фикс. newaion х2 не пашет,ибо пакеты там 2.5
Последний раз редактировалось happytorn; 28.02.2012 в 12:00.
видно сразу человек разобрался со скриптами и пытается немного автоматизировать игру.
у меня вопрос
(ReadC(1)=$CE) and (ReadC(8)=$00)
а старый способ уже не работает?
вчера пытался старую конструкцию приминить
(pck[14]=#$31) and (pck[15]=#$00)
бился часа 3 со сриптом пока понял что именно не пашет, все распотрошил в нем)
тоже пришол к варианту использовать такой вариант
(ReadC(1)=$AA) and (ReadC(2)=$BB)
видно сразу человек разобрался со скриптами и пытается немного автоматизировать игру.
у меня вопрос
(ReadC(1)=$CE) and (ReadC(8)=$00)
а старый способ уже не работает?
вчера пытался старую конструкцию приминить
(pck[14]=#$31) and (pck[15]=#$00)
бился часа 3 со сриптом пока понял что именно не пашет, все распотрошил в нем)
тоже пришол к варианту использовать такой вариант
(ReadC(1)=$AA) and (ReadC(2)=$BB)
и еще
(ReadH(1)=$AABB) тоже не работает?
Насчет старой конструкции не знаю, не пробовал. А вот (ReadH(1)=$AABB) такой вариант у меня не работал,хз почему.
Молодца постарался на славу. Спасибу тыкнул, а еще можешь 3 скрипт слепить с кв этим: [Ссылки могут видеть только зарегистрированные пользователи. ] или этим [Ссылки могут видеть только зарегистрированные пользователи. ]
Молодца постарался на славу. Спасибу тыкнул, а еще можешь 3 скрипт слепить с кв этим: [Ссылки могут видеть только зарегистрированные пользователи. ] или этим [Ссылки могут видеть только зарегистрированные пользователи. ]
В квесте присутствуют итемы ,так что не знаю будет ли работать вообще.
За нях не играю.Могу сделать если ты найдешь аналогичные квесты для нях и скинешь сюда пакеты после выполнения.
Для асмо я использовал квесты которые берутся из итема.
[Ссылки могут видеть только зарегистрированные пользователи. ] и [Ссылки могут видеть только зарегистрированные пользователи. ]
Чтобы взять квест без выбивания итема нужно отредактировать данный пакет
9D 00 57 5A FF 95 DC 0C 00 EA 03 01 00 04 00 C2 09 00 00 00 00
Белые 4 байта- Ваш ID
Оранж 4 байта- ID квеста
PS. По ходу на UA фиксанули квесты из моего скрипта,за один день Оо
Последний раз редактировалось happytorn; 30.01.2012 в 00:05.
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Быстрый кач
