Автоматизированный дюп КВ 2.7

Usilok77 · 11.03.2012, 03:34

Выкладываю новый пример скриптов для сдачи квестов!

Эта тема является дополнением к этой http://zhyk.ru/forum/showthread.php?t=375291.
В теме присутствуют 3 готовых разлчиных скрипта для асмо, в котрых не нужно нечего менять: на АП, кач, и знаки арены!

Как пользоваться:

Добавляем скрипт в пункт Автоматизация-скрипты, и ставим напротив него галочку
берем квест
берем себя в таргет (клавиша F1), затем конечного НПЦ
вводим в чат команду .ы для начала процесса дюпа квеста
вводим в чат команду .ы для завершения процесса дюпа

Также:

необходимо взять квест хотя-бы раз! (проходить необязательно)
необходимо быть рядом с конечным НПЦ во время сдачи, и держать на нем таргет
во время испольщования скрипта будут высвечиваться сообщения с подсказками
если вы используете команду отката квеста, .request quest <id> вручную, то нужно держать таргет на себе

Скрипты:
Кач с 10 лвла "Песнь благословения", Асмо

[Ссылки могут видеть только зарегистрированные пользователи. ], брать у Гримхильд, сдавать Агамо.

PHP код:


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

procedure Msg(msg:string);
begin
  buf:=HStr('16 00 54 D5 FF 07 00 01 00 00 00 1A 04 12 04 20 00 31 00 30 00 20 00 10 04 41 04 3C 04 3E 04 00 00 ');
  WriteS(msg);
   buf:=buf+HStr('00 00');
  SendToClient;
end;

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

    //тут указываем пакеты, которые будем отправлять 
        MyPck[1]:=HStr('FF 01 57 BC FE 5F 0B 00 00 ');
        MyPck[2]:=HStr('CE 00 57 6D FF 00 00 00 00 00 ');
        MyPck[3]:=HStr('B2 00 57 71 FF 00 2E 00 72 00 65 00 71 00 75 00 65 00 73 00 74 00 20 00 71 00 75 00 65 00 73 00 74 00 20 00 32 00 39 00 31 00 31 00 00 00 ');
        MyPck[4]:=HStr('9B 00 57 58 FF 00 00 00 00 ');
        MyPck[5]:=HStr('9D 00 57 5A FF 00 00 00 00 1A 00 01 00 0A 00 5F 0B 00 00 00 00 '); 
        MyPck[6]:=HStr('9D 00 57 5A FF 00 00 00 00 49 05 01 00 48 05 5F 0B 00 00 00 00 '); 
        MyPck[7]:=HStr('9D 00 57 5A FF 00 00 00 00 11 27 01 00 49 05 5F 0B 00 00 00 00 '); 
        MyPck[8]:=HStr('9D 00 57 5A FF 00 00 00 00 12 00 01 00 06 00 5F 0B 00 00 00 00 '); 
            CountPck:=8; //количество пакетов всего!
 end;

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

procedure OnTimer(Sender: TObject);
  begin 
    buf:=MyPck[i];
    if (i=2) then            //вставляем айди персонажа во 2й пакет
        WriteD(CHARid,6);
    if (i>=4) then           //вставляем айди НПЦ во все пакеты, начиная с 4го
        WriteD(NPCid,6);
    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       
            if (CHARid=0) then
                Msg('Айди персонажа не найден, возьмите себя в таргет (клавиша F1)!')
            else if (NPCid=0) then
                Msg('Айди НПЦ не найден, возьмите в таргет НПЦ "Агамо"!')    
            else if (NPCid<>0) and (CHARid<>0) then 
            begin    
                name:=ConnectName;
                i:=1;
                if(Timer.enabled) then
                    Timer.enabled:=false
                else
                    Timer.enabled:=true;
            end;
            pck:='';
        end;
    end;
    //ловим айди из таргета
    if FromClient and (pck[1]=#$CE) then 
        begin  
            if (pck[6]<>#$00) then        
                if ((pck[8]=#$00) or (pck[8]=#$01)) and (ReadD(6)<>NPCid) then
                begin
                    NPCid:=readD(6);
                    Msg('Айди НПЦ найден!');
                end
                else if (pck[8]<>#$00) and (pck[8]<>#$01) and (ReadD(6)<>CHARid) then
                begin
                    CHARid:=readD(6);
                    Msg('Айди персонажа найден!');
                end;
                name:=ConnectNameByID(ConnectID);
        end;
    if FromClient and (pck[1]=#$45) and (ReadD(6)<>CHARid) then
        begin
            CHARid:=readD(6);
            Msg('Айди персонажа найден!');
        end;    
end.

АП "Шепчущая стигма", Асмо

[Ссылки могут видеть только зарегистрированные пользователи. ], брать из предмета "нестабильная стигма" (берется в кротане из сундука), сдавать Зигфриду.

PHP код:


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

procedure Msg(msg:string);
begin
  buf:=HStr('16 00 54 D5 FF 07 00 01 00 00 00 28 04 35 04 3F 04 47 04 43 04 49 04 30 04 4F 04 20 00 41 04 42 04 38 04 33 04 3C 04 30 04 00 00 ');
  WriteS(msg);
   buf:=buf+HStr('00 00');
  SendToClient;
end;

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

    //тут указываем пакеты, которые будем отправлять 
        MyPck[1]:=HStr('FF 01 57 BC FE 20 0B 00 00 ');
        MyPck[2]:=HStr('CE 00 57 6D FF 00 00 00 00 00 ');
        MyPck[3]:=HStr('B2 00 57 71 FF 00 2E 00 72 00 65 00 71 00 75 00 65 00 73 00 74 00 20 00 71 00 75 00 65 00 73 00 74 00 20 00 32 00 38 00 34 00 38 00 00 00'); 
        MyPck[4]:=HStr('9B 00 57 58 FF 00 00 00 00 '); 
        MyPck[5]:=HStr('9D 00 57 5A FF 00 00 00 00 1A 00 01 00 0A 00 20 0B 00 00 00 00 '); 
        MyPck[6]:=HStr('9D 00 57 5A FF 00 00 00 00 F1 03 01 00 47 09 20 0B 00 00 00 00 '); 
        MyPck[7]:=HStr('9D 00 57 5A FF 00 00 00 00 12 00 01 00 05 00 20 0B 00 00 00 00 '); 

            CountPck:=7; //количество пакетов всего!
 end;

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

procedure OnTimer(Sender: TObject);
 begin 
    buf:=MyPck[i];
    if (i=2) then            //вставляем айди персонажа во 2й пакет
        WriteD(CHARid,6);
    if (i>=4) then           //вставляем айди НПЦ во все пакеты, начиная с 4го
        WriteD(NPCid,6);
    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       
            if (CHARid=0) then
                Msg('Айди персонажа не найден, возьмите себя в таргет (клавиша F1)!')
            else if (NPCid=0) then
                Msg('Айди НПЦ не найден, возьмите в таргет НПЦ "Зигфрид"!')    
            else if (NPCid<>0) and (CHARid<>0) then 
            begin    
                name:=ConnectName;
                i:=1;
                if(Timer.enabled) then
                    Timer.enabled:=false
                else
                    Timer.enabled:=true;
            end;
            pck:='';
        end;
    end;
    //ловим айди из таргета
    if FromClient and (pck[1]=#$CE) then 
        begin  
            if (pck[6]<>#$00) then        
                if ((pck[8]=#$00) or (pck[8]=#$01)) and (ReadD(6)<>NPCid) then
                begin
                    NPCid:=readD(6);
                    Msg('Айди НПЦ найден!');
                end
                else if (pck[8]<>#$00) and (pck[8]<>#$01) and (ReadD(6)<>CHARid) then
                begin
                    CHARid:=readD(6);
                    Msg('Айди персонажа найден!');
                end;
                name:=ConnectNameByID(ConnectID);
        end;
    if FromClient and (pck[1]=#$45) and (ReadD(6)<>CHARid) then
        begin
            CHARid:=readD(6);
            Msg('Айди персонажа найден!');
        end;    
end.

Знаки арены "Открытие священной арены Маркутана", Асмо

[Ссылки могут видеть только зарегистрированные пользователи. ], брать у Кидзана (в храме Маркутана), сдавать Тиморре.

PHP код:


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

procedure Msg(msg:string);
begin
  buf:=HStr('16 00 54 D5 FF 07 00 01 00 00 00 1A 04 12 04 20 00 17 04 3D 04 30 04 3A 04 38 04 20 00 10 04 40 04 35 04 3D 04 4B 04 00 00 ');
  WriteS(msg);
   buf:=buf+HStr('00 00');
  SendToClient;
end;

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

    //тут указываем пакеты, которые будем отправлять 
        MyPck[1]:=HStr('FF 01 57 BC FE 28 6E 00 00 '); //отмена квеста (1й пакет в посылку)
        MyPck[2]:=HStr('CE 00 57 6D FF F5 24 62 00 00 ');
        MyPck[3]:=HStr('B2 00 57 71 FF 00 2E 00 72 00 65 00 71 00 75 00 65 00 73 00 74 00 20 00 71 00 75 00 65 00 73 00 74 00 20 00 32 00 38 00 32 00 30 00 30 00 00 00 '); //пакеты
        MyPck[4]:=HStr('9B 00 57 58 FF 00 00 00 00 ');
        MyPck[5]:=HStr('9D 00 57 5A FF 00 00 00 00 1A 00 01 00 0A 00 28 6E 00 00 00 00 ');
        MyPck[6]:=HStr('9D 00 57 5A FF 00 00 00 00 F3 07 01 00 47 09 28 6E 00 00 00 00 ');
        MyPck[7]:=HStr('9D 00 57 5A FF 00 00 00 00 F1 03 01 00 F3 07 28 6E 00 00 00 00 ');
        MyPck[8]:=HStr('9D 00 57 5A FF 00 00 00 00 12 00 01 00 05 00 28 6E 00 00 00 00 '); 

            CountPck:=8; //количество пакетов всего!
 end;

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

procedure OnTimer(Sender: TObject);
 begin 
    buf:=MyPck[i];
    if (i=2) then            //вставляем айди персонажа во 2й пакет
        WriteD(CHARid,6);
    if (i>=4) then           //вставляем айди НПЦ во все пакеты, начиная с 4го
        WriteD(NPCid,6);
    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       
            if (CHARid=0) then
                Msg('Айди персонажа не найден, возьмите себя в таргет (клавиша F1)!')
            else if (NPCid=0) then
                Msg('Айди НПЦ не найден, возьмите в таргет НПЦ "Тиморра"!')    
            else if (NPCid<>0) and (CHARid<>0) then 
            begin    
                name:=ConnectName;
                i:=1;
                if(Timer.enabled) then
                    Timer.enabled:=false
                else
                    Timer.enabled:=true;
            end;
            pck:='';
        end;
    end;
    //ловим айди из таргета
    if FromClient and (pck[1]=#$CE) then 
        begin  
            if (pck[6]<>#$00) then        
                if ((pck[8]=#$00) or (pck[8]=#$01)) and (ReadD(6)<>NPCid) then
                begin
                    NPCid:=readD(6);
                    Msg('Айди НПЦ найден!');
                end
                else if (pck[8]<>#$00) and (pck[8]<>#$01) and (ReadD(6)<>CHARid) then
                begin
                    CHARid:=readD(6);
                    Msg('Айди персонажа найден!');
                end;
                name:=ConnectNameByID(ConnectID);
        end;
    if FromClient and (pck[1]=#$45) and (ReadD(6)<>CHARid) then
        begin
            CHARid:=readD(6);
            Msg('Айди персонажа найден!');
        end;    
end.

P.S. Пусть они служат вам примером для своих модификаций, но авторское право закрепляю за собой, поэтому не трогайте 1ю строчку в скрипте

Для Talala

Для Маси

АлекКокс · 11.03.2012, 05:24

а для няшки есть?

~~Giperion~~ · 11.03.2012, 06:23

На сколько я понял, чтобы делать квест на АП, нужно хотя бы раз взять этот квест? Или на каждый раз нужна стигма?

З.Ы. В первом скрипте с НПЦ косяк, там не Зигфрид

Daren1 · 11.03.2012, 08:49

У меня почему-то сдается через раз((( кач 10 лвл((" пишет информация обновлена"
Спасибо поставил, автор молодец!!!

khrkov.s · 11.03.2012, 09:26

Все гуд работает +в репу поставил
А можно сделать чтоб не было мульта в дюпе на знаки арены?)

Usilok77 · 11.03.2012, 13:42

Цитата:

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


	У меня почему-то сдается через раз((( кач 10 лвл((" пишет информация обновлена"

У меня такое вначале было...потом разгонялся)
но если у тебя всегда через раз - сделай интервал больше, например Timer.interval:=150

Цитата:

Сообщение от khrkov.s


	А можно сделать чтоб не было мульта в дюпе на знаки арены?)

Пробовал...но для нормальной сдачи нужна вся последовательность диалога...

Dacktilium · 11.03.2012, 16:53

В скрипте ничего менять не надо? Прост делаю всё как написано не пашет дюп арены, тестил на спб

sanya56 · 11.03.2012, 17:57

Меня забанили почему ведь я даже на 1 ур не успел повысится(

Usilok77 · 11.03.2012, 18:32

Цитата:

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


	В скрипте ничего менять не надо? Прост делаю всё как написано не пашет дюп арены, тестил на спб

а пишет что?

happytorn · 11.03.2012, 18:48

Цитата:

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


	Меня забанили почему ведь я даже на 1 ур не успел повысится(

Вот что видят ГМы на некоторых сервах при откате квестов.
[Ссылки могут видеть только зарегистрированные пользователи. ]

OBLAVA · 11.03.2012, 19:52

Цитата:

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


	Вот что видят ГМы на некоторых сервах при откате квестов. [Ссылки могут видеть только зарегистрированные пользователи. ]

Пока я знаю только один такой сервер - Aion-Free.

iulian · 13.03.2012, 13:17

А вот ЕЩЕ СКриптик Загадочная РУДА))) Асмо его все знают

PHP код:


			
//Script by Usilok

var

MyPck:array[1..10] of string; //выделяем память под пакеты квеста (опционально 10 строк)

name:string;                  //имя соединения (аккаунта)

NPCid,CHARid:integer;

Timer:TTimer;

i,CountPck:integer;           //счетчик пакетов и их количество



procedure Msg(msg:string);

begin

  buf:=HStr('16 00 54 D5 FF 07 00 01 00 00 00 1A 04 12 04 20 00 31 00 30 00 20 00 10 04 41 04 3C 04 3E 04 00 00 ');

  WriteS(msg);

   buf:=buf+HStr('00 00');

  SendToClient;

end;



procedure Init;

 begin

    NPCid:=0; 

    CHARid:=0;   

    Timer:=TTimer.Create(nil); 

    Timer.OnTimer:=@OnTimer;  

    Timer.interval:=120;      //интервал отправки пакетов

    Timer.enabled:=false;



    //тут указываем пакеты, которые будем отправлять 

        MyPck[1]:=HStr('FF 01 57 BC FE A7 0A 00 00 ');

        MyPck[2]:=HStr('CE 00 57 6D FF E7 44 01 00 00 '); 

        MyPck[3]:=HStr('B2 00 57 71 FF 00 2E 00 72 00 65 00 71 00 75 00 65 00 73 00 74 00 20 00 71 00 75 00 65 00 73 00 74 00 20 00 32 00 37 00 32 00 37 00 00 00 ');

        MyPck[4]:=HStr('9B 00 57 58 FF 8B 44 01 00 ');

        MyPck[5]:=HStr('9D 00 57 5A FF 8B 44 01 00 1A 00 01 00 0A 00 A7 0A 00 00 00 00 ');

        MyPck[6]:=HStr('9D 00 57 5A FF 8B 44 01 00 F1 03 01 00 47 09 A7 0A 00 00 00 00 ');

        MyPck[7]:=HStr('9D 00 57 5A FF 8B 44 01 00 12 00 01 00 05 00 A7 0A 00 00 00 00 '); 

            CountPck:=7; //количество пакетов всего!

 end;



procedure Free;

begin

    Timer.enabled:=false;

end;



procedure OnTimer(Sender: TObject);

  begin 

    buf:=MyPck[i];

    if (i=2) then            //вставляем айди персонажа во 2й пакет

        WriteD(CHARid,6);

    if (i>=4) then           //вставляем айди НПЦ во все пакеты, начиная с 4го

        WriteD(NPCid,6);

    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       

            if (CHARid=0) then

                Msg('Айди персонажа не найден, возьмите себя в таргет (клавиша F1)!')

            else if (NPCid=0) then

                Msg('Айди НПЦ не найден, возьмите в таргет НПЦ "Зигфрид"!')    

            else if (NPCid<>0) and (CHARid<>0) then 

            begin    

                name:=ConnectName;

                i:=1;

                if(Timer.enabled) then

                    Timer.enabled:=false

                else

                    Timer.enabled:=true;

            end;

            pck:='';

        end;

    end;

    //ловим айди из таргета

    if FromClient and (pck[1]=#$CE) then 

        begin  

            if (pck[6]<>#$00) then        

                if ((pck[8]=#$00) or (pck[8]=#$01)) and (ReadD(6)<>NPCid) then

                begin

                    NPCid:=readD(6);

                    Msg('Айди НПЦ найден!');

                end

                else if (pck[8]<>#$00) and (pck[8]<>#$01) and (ReadD(6)<>CHARid) then

                begin

                    CHARid:=readD(6);

                    Msg('Айди персонажа найден!');

                end;

                name:=ConnectNameByID(ConnectID);

        end;

    if FromClient and (pck[1]=#$45) and (ReadD(6)<>CHARid) then

        begin

            CHARid:=readD(6);

            Msg('Айди персонажа найден!');

        end;    

end.

khrkov.s · 13.03.2012, 14:10

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

Usilok77 · 13.03.2012, 14:30

Цитата:

Сообщение от khrkov.s


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

Потомучто я так прописал!)))
чтоб работала команда отката квеста - нужно держать таргет на себе, вот и вписал эту функцию в скрипты (пакет СЕ)...

AnataK · 13.03.2012, 16:44

Цитата:

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


	работает! с чего ты взял, что она не работает?

Пишет чет на английском! Пробывал себя в таргет брать при отмене и все тож самое((( команда .qres и ид кв)

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

Цитата:

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


	А вот ЕЩЕ СКриптик Загадочная РУДА))) Асмо его все знают PHP код: //Script by Usilok var MyPck:array[1..10] of string; //выделяем память под пакеты квеста (опционально 10 строк) name:string; //имя соединения (аккаунта) NPCid,CHARid:integer; Timer:TTimer; i,CountPck:integer; //счетчик пакетов и их количество procedure Msg(msg:string); begin buf:=HStr('16 00 54 D5 FF 07 00 01 00 00 00 1A 04 12 04 20 00 31 00 30 00 20 00 10 04 41 04 3C 04 3E 04 00 00 '); WriteS(msg); buf:=buf+HStr('00 00'); SendToClient; end; procedure Init; begin NPCid:=0; CHARid:=0; Timer:=TTimer.Create(nil); Timer.OnTimer:=@OnTimer; Timer.interval:=120; //интервал отправки пакетов Timer.enabled:=false; //тут указываем пакеты, которые будем отправлять MyPck[1]:=HStr('FF 01 57 BC FE A7 0A 00 00 '); MyPck[2]:=HStr('CE 00 57 6D FF E7 44 01 00 00 '); MyPck[3]:=HStr('B2 00 57 71 FF 00 2E 00 72 00 65 00 71 00 75 00 65 00 73 00 74 00 20 00 71 00 75 00 65 00 73 00 74 00 20 00 32 00 37 00 32 00 37 00 00 00 '); MyPck[4]:=HStr('9B 00 57 58 FF 8B 44 01 00 '); MyPck[5]:=HStr('9D 00 57 5A FF 8B 44 01 00 1A 00 01 00 0A 00 A7 0A 00 00 00 00 '); MyPck[6]:=HStr('9D 00 57 5A FF 8B 44 01 00 F1 03 01 00 47 09 A7 0A 00 00 00 00 '); MyPck[7]:=HStr('9D 00 57 5A FF 8B 44 01 00 12 00 01 00 05 00 A7 0A 00 00 00 00 '); CountPck:=7; //количество пакетов всего! end; procedure Free; begin Timer.enabled:=false; end; procedure OnTimer(Sender: TObject); begin buf:=MyPck[i]; if (i=2) then //вставляем айди персонажа во 2й пакет WriteD(CHARid,6); if (i>=4) then //вставляем айди НПЦ во все пакеты, начиная с 4го WriteD(NPCid,6); 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 if (CHARid=0) then Msg('Айди персонажа не найден, возьмите себя в таргет (клавиша F1)!') else if (NPCid=0) then Msg('Айди НПЦ не найден, возьмите в таргет НПЦ "Зигфрид"!') else if (NPCid<>0) and (CHARid<>0) then begin name:=ConnectName; i:=1; if(Timer.enabled) then Timer.enabled:=false else Timer.enabled:=true; end; pck:=''; end; end; //ловим айди из таргета if FromClient and (pck[1]=#$CE) then begin if (pck[6]<>#$00) then if ((pck[8]=#$00) or (pck[8]=#$01)) and (ReadD(6)<>NPCid) then begin NPCid:=readD(6); Msg('Айди НПЦ найден!'); end else if (pck[8]<>#$00) and (pck[8]<>#$01) and (ReadD(6)<>CHARid) then begin CHARid:=readD(6); Msg('Айди персонажа найден!'); end; name:=ConnectNameByID(ConnectID); end; if FromClient and (pck[1]=#$45) and (ReadD(6)<>CHARid) then begin CHARid:=readD(6); Msg('Айди персонажа найден!'); end; end.

Пакеты меняются?

Автоматизированный дюп КВ 2.7

Боты, скрипты и прочий софт для Aion