[Скрипт] Шаблон скрипта на множественную сдачу кв 2.7/3.0

[Daren1]

var
MyPck:array[1..10] of string;
name:string;
Timer:TTimer;
i,CountPck:integer;


procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.interval:=100;
Timer.enabled:=false;


MyPck[1]:=HStr('FF 01 57 BC FE 3B 08 00 00 ');
MyPck[2]:=HStr('9D 00 57 5A FF F6 8F 00 00 1A 00 01 00 0A 00 3B 08 00 00 00 00 ');
MyPck[3]:=HStr('9D 00 57 5A FF F6 8F 00 00 49 05 01 00 48 05 3B 08 00 00 00 00 ');
MyPck[4]:=HStr('9D 00 57 5A FF F6 8F 00 00 10 27 01 00 49 05 3B 08 00 00 00 00 ');
MyPck[5]:=HStr('9D 00 57 5A FF F2 8F 00 00 1A 00 01 00 0A 00 3B 08 00 00 00 00 ');
MyPck[6]:=HStr('9D 00 57 5A FF F2 8F 00 00 F1 03 01 00 47 09 3B 08 00 00 00 00 ');
MyPck[7]:=HStr('9D 00 57 5A FF F2 8F 00 00 12 00 01 00 05 00 3B 08 00 00 00 00 ');

CountPck:=7;
end;

procedure Free;
begin
Timer.enabled:=false;
end;

procedure OnTimer(Sender: TObject);
begin
buf:=MyPck[i];
SendToServerEx(name);
inc(i);
if (i>CountPck) then
i:=1;
end;

begin
//включение/выключение скрипта (команда в чат .ы)
if FromClient and (pck[1]=#$B2) then
begin
if (ReadS(7)='.ы') then
begin
name:=ConnectName;
pck:='';
i:=1;
if(Timer.enabled) then
Timer.enabled:=false
else
Timer.enabled:=true;
end;
end;
end.
ВОт мой скрипт посмотри,что не так?

[igorbest88]

Подскажите скрипт на newaion X2 на Элийцев плизз

[Vetalik1987]

Да пожалуйста Элийцам на х2 подскажите)

[Usilok77]

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

[Mystmuse]

Цитата: Сообщение от Usilok77 т.е. нужно пройти всю цепочку квеста? тогда, если все НПС находятся в одной локации - могу предложить дописать пакеты ТП к ним, и тогда, думаю пакеты на диалог будут работать, при последовательной их отправке...

Даже если я нахожусь рядом с нпц, посылаю пакет на диалог, ничего не происходит. Даже если держать нпц в таргете, но на х75 все работает.

[Tgi_v]

На Aion Final 2.7 скрипт кто нить гонял???

[maxtopchiev]

Есть предложение, а точнее вопрос) Можно ли сделать скрипт на квест который можно вполне легально делать ну скажем 10 раз, как то упразнить этот процесс) или это возможно лишь отменяя квест?

[ceed19]

Напишите прохождение квеста "Стать даэвом" у асм..
т.е именно пакетами, не скриптами.. Очень прошу плисс)

[DarkdalV]

Вот моя часть скрипта для Newaion x2 для элов/нях на 17ур [Ссылки могут видеть только зарегистрированные пользователи. ]

PHP код:

MyPck[1]:=HStr('FF 01 57 BC FE 9E 04 00 00 '); //отмена квеста (1й пакет в посылку)
MyPck[2]:=HStr('9D 00 57 5A FF 00 00 00 00 EA 03 01 00 04 00 9E 04 00 00 00 00 '); //получение квеста 
MyPck[3]:=HStr('9D 00 57 5A FF C6 29 00 00 1A 00 01 00 0A 00 9E 04 00 00 00 00 '); //пакеты
MyPck[4]:=HStr('9D 00 57 5A FF C6 29 00 00 F1 03 01 00 47 09 9E 04 00 00 00 00 '); //сдачи
MyPck[5]:=HStr('9D 00 57 5A FF C6 29 00 00 12 00 01 00 05 00 9E 04 00 00 00 00 '); //квеста Осколок древнего камня, сдавать нпс Селена
            CountPck:=5; //количество пакетов всего! 


Но скрипт нефурычит: в л2пх видно как пакеты от клиенты тоннами летят , но в игре ничего не происходит.
Я выбил [Ссылки могут видеть только зарегистрированные пользователи. ] взял квест, поймал пакет, сдал его, опять отловил пакет. Снова выбил осколок и принял квест, сдал его у нпс, поймал пакеты , затем всё записал в скрипт, сохранил, активировал, подошёл к неписю, взял в таргет, написал в чат .ы И... ничего не произошло! Чтото не так делаю, или фикс?! Помогите

[Skipi1234]

Можно спросить насчет того что в невайон х75 не потверждается взятие квеста если отправлять через пакетник ето фикс всех кв или что?

[c-lavr]

Цитата: Сообщение от Skipi1234 Можно спросить насчет того что в невайон х75 не потверждается взятие квеста если отправлять через пакетник ето фикс всех кв или что?

На нью фикс стоит на все КВ и очень давно(((

[Fastfist]

Цитата: Сообщение от Tgi_v На Aion Final 2.7 скрипт кто нить гонял???

На финале не отменяеться кв после здачи

[cobrakid3]

Вопрос,а в скрипте надо писать свое (//имя соединени(аккаунта))
и //счетчик пакетов и их количество ?

[Robontosto]

Aion free x6 кач с 10 лвла [Ссылки могут видеть только зарегистрированные пользователи. ]
При использовании скрипта дает опьіт за ка 1 раз далее ничего не происходит(
Вот скритп посмотрите:




//Script by Usilok
var
MyPck:array[1..11] of string; //выделяем память под пакеты квеста (опционально 10 строк)
name:string; //имя соединения (аккаунта)
Timer:TTimer;
i,CountPck:integer; //счетчик пакетов и их количество

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.interval:=10; //интервал отправки пакетов
Timer.enabled:=false;

//тут указываем пакеты, которые будем отправлять
//(поочередно - сначала взятие квеста, потом сдача
//(если необходимо добавить пак на отмену - добавляем в самое начало))
//для примера взял квест "загадочая руда" для Асмо
MyPck[1]:=HStr('FF 01 57 BC FE 75 07 00 00 '); //отмена квеста (1й пакет в посылку)
MyPck[2]:=HStr('9D 00 57 5A FF 2E 01 00 00 1A 00 01 00 0A 00 75 07 00 00 00 00 '); //пакеты
MyPck[3]:=HStr('9D 00 57 5A FF 2E 01 00 00 F4 03 01 00 F3 03 75 07 00 00 00 00 '); //сдачи
MyPck[4]:=HStr('9D 00 57 5A FF 2E 01 00 00 EF 03 01 00 F4 03 75 07 00 00 00 00 '); //квеста Дулахе
MyPck[5]:=HStr('9D 00 57 5A FF 2E 01 00 00 EA 03 01 00 04 00 75 07 00 00 00 00 ');
MyPck[6]:=HStr('9D 00 57 5A FF F2 00 00 00 1A 00 01 00 0A 00 75 07 00 00 00 00 ');
MyPck[7]:=HStr('9D 00 57 5A FF F2 00 00 00 49 05 01 00 48 05 75 07 00 00 00 00 ');
MyPck[8]:=HStr('9D 00 57 5A FF F2 00 00 00 10 27 01 00 49 05 75 07 00 00 00 00 ');
MyPck[9]:=HStr('9D 00 57 5A FF 1D 30 00 00 1A 00 01 00 0A 00 75 07 00 00 00 00 ');
MyPck[10]:=HStr('9D 00 57 5A FF 1D 30 00 00 F1 03 01 00 47 09 75 07 00 00 00 00 ');
MyPck[11]:=HStr('9D 00 57 5A FF 1D 30 00 00 12 00 01 00 05 00 75 07 00 00 00 00 ');
//CountPck:=7;
CountPck:=11; //количество пакетов всего!
end;

procedure Free;
begin
Timer.enabled:=false;
end;

procedure OnTimer(Sender: TObject);
begin
buf:=MyPck[i];
SendToServerEx(name);
inc(i);
if (i>CountPck) then
i:=1;
end;

begin
//включение/выключение скрипта (команда в чат .ы)
if FromClient and (pck[1]=#$B2) then
begin
if (ReadS(7)='.ы') then //тут можете поменять привязанную к скрипту команду ".ы" на любую другую...
begin
name:=ConnectName;
pck:='';
i:=1;
if(Timer.enabled) then
Timer.enabled:=false
else
Timer.enabled:=true;
end;
end;
end.

[TPOJLFEYS]

Автору спасиб ,тестил на aio ultimatum,все отлично робит.