happytorn
29.01.2012, 05:37
[Скрипты только для Асмо!]
Благодаря этим двум скриптам можно прокачать перса до 60 лвла за 15-20 мин на X5 рейтах.Тестировал на aion UA и AtreiaWorld .
Шаг 1-ый.
Кач с 3 по 25лвл.
Идем в деревню Альдер в Исхальгене.Подходим к Целителю душ Реневир.Включаем наш скрипт.Берем себя в таргет (нажав на клаве F1),затем берем в таргет НПС Реневир.Все,скрипт готов к работе.Нажимаем на эмоцию Улыбка и получаем опыт.Перед тем как нажимать эмоцию ,чтобы не палится можно уйти хоть в конец карты.Скрипт перестанет работать если начнете брать других НПС в таргет.Строку For i:=1 to 30 do можно отредактировать и тем самым увеличить число получаемого опыта.
var
PlayerID,NPCID,i,b:integer;
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-го скрипта, летим из Морхейма в хижину Гондальфуна.Подходим к НПС Карирунг.Первый скрипт должен быть выключен.Включаем второй.Берем себя в таргет, затем НПС Карирунг.Скрипт готов.Можно нажимать эмоцию Улыбка и получать опыт.
var
PlayerID,NPCID,i,b:integer;
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
Благодаря этим двум скриптам можно прокачать перса до 60 лвла за 15-20 мин на X5 рейтах.Тестировал на aion UA и AtreiaWorld .
Шаг 1-ый.
Кач с 3 по 25лвл.
Идем в деревню Альдер в Исхальгене.Подходим к Целителю душ Реневир.Включаем наш скрипт.Берем себя в таргет (нажав на клаве F1),затем берем в таргет НПС Реневир.Все,скрипт готов к работе.Нажимаем на эмоцию Улыбка и получаем опыт.Перед тем как нажимать эмоцию ,чтобы не палится можно уйти хоть в конец карты.Скрипт перестанет работать если начнете брать других НПС в таргет.Строку For i:=1 to 30 do можно отредактировать и тем самым увеличить число получаемого опыта.
var
PlayerID,NPCID,i,b:integer;
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-го скрипта, летим из Морхейма в хижину Гондальфуна.Подходим к НПС Карирунг.Первый скрипт должен быть выключен.Включаем второй.Берем себя в таргет, затем НПС Карирунг.Скрипт готов.Можно нажимать эмоцию Улыбка и получать опыт.
var
PlayerID,NPCID,i,b:integer;
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