Скрипт для AION 2.0.0.3 помогите немного

TEHb · 16.02.2011, 17:01

delphi Код:

var
Timer01,Timer02: TTimer;
Mission1,start:Boolean;
i,j,a,k:integer;
missionArr,ProdArr:array[0..20] of string;


procedure Init; //первый таймер активирует второй
begin
    Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
    Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
    Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
    Timer01.interval:=5000; //29000 интервал(в милисекундах) как часто таймер срабатывает 
    Timer02:=TTimer.Create(nil); //выделяем памать и т.п.
    Timer02.OnTimer:=@OnTimer01; //привязываем процедуру к событию
    Timer02.enabled:=false; //начальное положение включен(true)/выключен(false)
    Timer02.interval:=3000; //29000 интервал(в милисекундах) как часто таймер срабатывает
    Mission1:=False;
    i:=0;
    j:=1;
    a:=0;
    k:=0; 
    ProdArr[0]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 54 01 00 00 05 00 6A 86 DD 0A 2A 00 00 00 00 00 00 00 49 87 DD 0A 2A 00 00 00 00 00 00 00 D3 D6 18 0A 3F 01 00 00 00 00 00 00 DC D6 18 0A 5E 00 00 00 00 00 00 00 D9 D6 18 0A 6A 02 00 00 00 00 00 00';
    start:=false;
    Timer01.enabled:=true;
end;

procedure OnTimer01(Sender: TObject);
begin
Start:=true;
Timer01.enabled:=False;
end;

procedure OnTimer02(Sender: TObject);
begin
    buf:='C9 57 66 00 ';
    SendToServer;
    buf:='B5 57 72 52 01 00 00 00 ';
    SendToServer;
    buf:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 54 01 00 00 05 00 6A 86 DD 0A 18 00 00 00 00 00 00 00 49 87 DD 0A 18 00 00 00 00 00 00 00 D3 D6 18 0A 99 01 00 00 00 00 00 00 DC D6 18 0A 78 00 00 00 00 00 00 00 D9 D6 18 0A 18 03 00 00 00 00 00 00';
    SendToServer;
    Timer02.Enabled:=false;
end;

Procedure TakeMission;
begin
MissionArr[0]:='9C 57 5B 60 00 00 00 34 00 01 00 0A 00 00 00 00 00 00 00'; 
MissionArr[1]:='9C 57 5B 60 00 00 00 19 00 01 00 1C 00 A2 13 00 00 00 00'; 
MissionArr[2]:='9C 57 5B 60 00 00 00 EA 03 01 00 04 00 A2 13 00 00 00 00';
For i:=0 to 2 do 
   begin
        buf:=HStr(MissionArr[i]);
        SendToServer;
  end;
    Mission1:=True;
end;

Procedure BuyItems;
begin
    buf:=HStr('9C 57 5B 61 00 00 00 02 00 01 00 0A 00 00 00 00 00 00 00');
    SendToServer;
    buf:=HStr('A1 57 5E 61 00 00 00 0D 00 04 00 D9 D6 18 0A 60 00 00 00 00 00 00 00 DC D6 18 0A 10 00 00 00 00 00 00 00 D3 D6 18 0A 30 00 00 00 00 00 00 00 D6 D6 18 0A 66 00 00 00 00 00 00 00');
    SendToServer; 
End;

Procedure EndMission;
Begin
   //пока  в разработке ибо не требуется сдача
end;

procedure Free; //Вызывается при выключении скрипта
begin
  Timer01.free;
  Timer02.free;
  start:=false;
end;


begin
  //IF FromServer and (pck[1]=#$1A) then  a:=1;
  //if FromServer and (pck[1]=#$16) and (a=1) or start then
  if FromServer and (pck[1]=#$17) then  //Жду личного сообщения пакет типа 17 DD PP XX ZZ и т.д...
  begin
    if mission1=true then 
    begin
        Timer02.enabled:=true;
        j:=j+1;
        if j=16 then
        begin
          mission1:=false;
          j:=1;  
        end;
    end
    a:=0;
    start:=false;
    if (mission1=false)  then
    begin
        //EndMission;
        i:=0;
        j:=1;
        a:=0;
        TakeMission;
        BuyItems;
        start:=true; 
    end;
  end
  else a:=0;  
end.

Вот собственно такой скрипт.
Цель скрипта брать ЗАКАЗ покупать необходимое для изготовления и изготавливать, а затем сдавать.

В алгоритме скрипта думаю Вам копаться не стоит у меня в следующем проблема:
1. Скрипт сейчас должен запускаться от личного сообщения
"if FromServer and (pck[1]=#$17) then ..." но не запускается не пойму почему пакет 17 приходит

2. Цель чтобы скрипт работал циклически там
"//IF FromServer and (pck[1]=#$1A) then a:=1;
//if FromServer and (pck[1]=#$16) and (a=1) or start then ..." заготовка под цикл как ни странно работает суть ее в том что надо поймать два пакет разного типа идущие друг за другом (эти пакеты означают что производство завершено)

3. Проблема заключается в том что при запуске берется задание и покупаются вещи, но когда скрипт доходит до места где должно начаться производство, то рвется соединение с сервером без всяких сообщений в лог l2ph если я отправляю пакеты самостоятельно просто через посылку то все работает не пойму в чем проблема

4. если кто-нибудь подскажет элегантный способ сделать задержку между отсылкой любых пакетов, например в одну секунду буду признателен подозреваю, что проблема в этом.

5. есть еще маленькая проблема с логами я хотел себе в дальнейшем писать сообщения в личку игрового чата (это уже для других скриптов но и тут было бы полезно), но суть в том что там кодируются буквы а ничего нормально для самостоятельной кодировки средствами скрипта я не нашел если кто в курсе как закодировать слова в сообщения буду признателен (с примером отсылки Hello с вкладки дополнительно не разобрался)

J-Fobos · 16.02.2011, 21:43

Я в аион не играю, но попробую помочь.

1. Похоже что при запуске скрипта mission1=false и поэтому не запускается таймер.

2. Зачем ловить 2 пакета, нельзя обойтись одним?

3. Не понятно где это место, в пакетах аиона не разбираюсь, а коментов в скрипте нету

Скорее всего отсылается либо пустой, либо не верный пакет.

4. Задержки рекомендуется делать только через таймер.

5. По идее вам поможет команда ReadS / WriteS

TEHb · 17.02.2011, 22:13

Цитата:

Сообщение от J-Fobos

Я в аион не играю, но попробую помочь.

1. Похоже что при запуске скрипта mission1=false и поэтому не запускается таймер.

2. Зачем ловить 2 пакета, нельзя обойтись одним?

3. Не понятно где это место, в пакетах аиона не разбираюсь, а коментов в скрипте нету

Скорее всего отсылается либо пустой, либо не верный пакет.

4. Задержки рекомендуется делать только через таймер.

5. По идее вам поможет команда ReadS / WriteS

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

1. С таймером я разобрался там неверно функция посмотри я евент случайно скопировал от первого таймера.
2. 2 пакета обязон или придется из первого пакета читать 4 байта которые при каждом подключении разные, но постоянны для текущего подключения (пакеты у меня всегда приходят одинаково друг за другом поэтому я заморочился с ловлей двух пакетов)

5. С командами прочитать строку и записать строку не разобрался ибо не могу вывести в лог собственно результат
не смог создать и подключить файл например функции АssignFile не работают и вообще не смог создать переменную типа file или TextFile видимо тут они не работают идея была писать лог на жесткий диск а потом его почитать

Добавлено через 11 минут
и Вот проблема пункта 3

delphi Код:

procedure OnTimer02(Sender: TObject);
begin
buf:='C9 57 66 00 ';
SendToServer;
buf:='B5 57 72 52 01 00 00 00 ';
SendToServer;
buf:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 54 01 00 00 05 00 6A 86 DD 0A 18 00 00 00 00 00 00 00 49 87 DD 0A 18 00 00 00 00 00 00 00 D3 D6 18 0A 99 01 00 00 00 00 00 00 DC D6 18 0A 78 00 00 00 00 00 00 00 D9 D6 18 0A 18 03 00 00 00 00 00 00';
SendToServer;
Timer02.Enabled:=false;
end;

Вот 3 пакета при которых происходит отсоединения от сервера
С9 - Выполнить действие объект
В5 - сам объект (цель)
Е3 - действие с объектом в частности пакет производства какой-то там байды содержит id всех итемов покупаемых в магазе для производства и квестовых
Если послать пакеты просто дург за другом через обычную посылку все пашет норм а в скрипте ну никак не получается сразу дисконнект

ЗЫ: Обнаружил что при разных соединениях иногда пакет Е3 меняется с течением времени а иногда нет не понятно от чего это зависит т.е. в пакете меняется только число в 4 байта остальные неизменны ну может и больше 4 байт долго не наблюдал. Предположил что это время сервера или коиента, но не смог найти статью как вычислить время в пакете а она мне точно попадалась.

J-Fobos · 17.02.2011, 22:50

Что-то очень закрученный скрипт получился. Интуитивно чувствую что можно все организовать проще, одним таймером. Может отбросим его и попробуем написать новый?

TEHb · 18.02.2011, 09:48

Цитата:

Сообщение от J-Fobos

Что-то очень закрученный скрипт получился. Интуитивно чувствую что можно все организовать проще, одним таймером. Может отбросим его и попробуем написать новый?

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

Nickers · 18.02.2011, 09:50

TEHb, В саму суть еще не вникал, но крайне не советую так делать:

Цитата:

Сообщение от TEHb

delphi Код:

procedure OnTimer02(Sender: TObject);
begin
buf:='C9 57 66 00 ';
SendToServer;
buf:='B5 57 72 52 01 00 00 00 ';
SendToServer;
buf:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 54 01 00 00 05 00 6A 86 DD 0A 18 00 00 00 00 00 00 00 49 87 DD 0A 18 00 00 00 00 00 00 00 D3 D6 18 0A 99 01 00 00 00 00 00 00 DC D6 18 0A 78 00 00 00 00 00 00 00 D9 D6 18 0A 18 03 00 00 00 00 00 00';
SendToServer;
Timer02.Enabled:=false;
end;

В плане отсылки пакетов... Т.к. там могут быть элементы (В пакетах) подвижные, которые меняются в разных ситуациях... (Нада посмотреть разборку пакетов под Айон) Если есть ОИДы их требуется выводить в Const (Чтоб менять если что) Если есть координаты цели нужны запоминалки разные))

J-Fobos, Да тож хотелось бы сначала начать, а то на глаз тяжко разбираться...

Добавлено через 56 секунд
Прикрепите кто-нить PacketsAion.ini

TEHb · 18.02.2011, 10:24

Итак насчет таймера и перезапуск его 5 раз для примера
Мой вариант, если кто подскажет проще оч. буду признателен.

CONST N:=5 //Сколько раз посылать
var i:integer;
SendBufArr:Array[0..N] of string; //Массив пакетов для отсылки

Procedure init;
Begin
i:=0; //инициализация нач значения счетчика
SendBuffArr[0]:='C9...';
//не буду вдаваться в подробности заполнения массива пакетами для посылки друг за другом
SendBuffArr[N]:='1А...';
End;
//Создание самого таймера я пропустил, ибо не требуется для примера.
Procedure OnTimer;
Begin
buf:=HStr(SendBuffArr[i]);
SendToServer;
i:=i+1;
if i=5 then Timer01.enabled:=false;
end;

//Ну и тело скрипта
BEGIN
if FromServer and (pck[1]=#$17) then Timer01.enabled:=True;
END.

В общем суть в том чтобы через счетчик не обнуляя его послать пять пакетов. По задумке таймер не выключается и снова сработает через таймер-интервал пока не получиться 5 раз после чего таймер отключиться.

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

Цитата:

Сообщение от Nickers

TEHb, В саму суть еще не вникал, но крайне не советую так делать:

В плане отсылки пакетов... Т.к. там могут быть элементы (В пакетах) подвижные, которые меняются в разных ситуациях... (Нада посмотреть разборку пакетов под Айон) Если есть ОИДы их требуется выводить в Const (Чтоб менять если что) Если есть координаты цели нужны запоминалки разные))

J-Fobos, Да тож хотелось бы сначала начать, а то на глаз тяжко разбираться...

Добавлено через 56 секунд
Прикрепите кто-нить PacketsAion.ini

Цитата:

Сообщение от TEHb

Вот 3 пакета при которых происходит отсоединения от сервера
С9 - Выполнить действие объект
В5 - сам объект (цель)
Е3 - действие с объектом в частности пакет производства какой-то там байды содержит id всех итемов покупаемых в магазе для производства и квестовых
Если послать пакеты просто дург за другом через обычную посылку все пашет норм а в скрипте ну никак не получается сразу дисконнект

ЗЫ: Обнаружил что при разных соединениях иногда пакет Е3 меняется с течением времени а иногда нет не понятно от чего это зависит т.е. в пакете меняется только число в 4 байта остальные неизменны ну может и больше 4 байт долго не наблюдал. Предположил что это время сервера или коиента, но не смог найти статью как вычислить время в пакете а она мне точно попадалась.

Вот вся проблема пакеты E3 какие то странные но при посылке через обычную отсылку работают (мое предположение все дело в задержке
так как после производства 1 вещи чар какое-то время машет руками типа радуется но это всего лишь анимация но кнопка изготовить недоступна в это время, так что возможно меня кикает за спам пакетами или выполнение невозможного действия.

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

Nickers · 18.02.2011, 11:08

TEHb, Вот так:

delphi Код:

inc(i);
  if i=5 then 
    begin
      Timer01.enabled:=false;
      i:=0;
    end;
end;

А лучше весь IF вывести из процедуры в тело скрипта...
(Или никуя не лучше)

Цитата:

Оффтоп

Все верно, так и нада...

Дай ка расшифровку твоего пакета E3 через ПХ...
Хочу глянуть)

Цитата:

Оффтоп

Да, возможно эт такая задержка от спама... И возможно в этом проблема...

TEHb · 18.02.2011, 12:00

Цитата:

Сообщение от Nickers

TEHb

Дай ка расшифровку твоего пакета E3 через ПХ...
Хочу глянуть)

Да, возможно эт такая задержка от спама... И возможно в этом проблема...

ПХ не расшифровывает там в первом посте пакет Е3 выложен полностью
в ПХ пишется UncnownE3 собственно я в нем разобрался там большая часть пакета это itemsID для производства мне только несколько байт не понятны сейчас выкладывать некогда позже попробую расписать
хотя это уже другая тема скорее всего будет

NLObP · 18.02.2011, 12:30

Цитата:

Сообщение от Nickers

Прикрепите кто-нить PacketsAion.ini

К сожалению его надо пополнять. Вот что есть на сейчас:

Код:

//для L2PacketHack 3.4.1+
// by (c) xkor
//AION
//
[client]


[server]
43=ObjectUpdate:h(id2)d(ObjectId)h(Level)d(MaxHP)d(CurHP)
//41=KeyInit:h(id2)d(Key)
E7=Drop:h(id2)d(NpcObjectId)b(LootWnd?)
26=NPCInfo:h(id2)n(x)n(y)n(z)d(npcObjID)d(npcID)d(npcID)c(NpcType)ccc(Heading)d(NameId)d(TitleId)dddcc(HP%)dc(lvl)
18=CharInfo:h(id2)n(x)n(y)n(z)d(charObjID)d(raceSex)d(raceSex)-(14)c(Heading)s(Name)-(7)d(Clan Id)-(6)s(Clan name)c(HP%)ccc
2B=Gather:h(id2)n(x)n(y)n(z)d(ObjID)-(4)d(typeID)-(3)d(nameId)
6B=Select?:h(id2)d(ObjID)d(targObjID)
1A=Sbor?:h(id2)d(charObjID)d(gatherObjID)-(2)c(num)

Давайте дополним его.

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

Цитата:

Сообщение от TEHb

в ПХ пишется UncnownE3 собственно я в нем разобрался там большая часть пакета это itemsID для производства мне только несколько байт не понятны сейчас выкладывать некогда позже попробую расписать

Напиши расшифровку и я добавлю его в packetsAion.ini