[Скрипт] Антиинвиз 2.7 (сины, луки, вся администрация!)

[Usilok77]

Цитата: Сообщение от Serek1 А на легенде робить будет??? и еще вопрос админ сможет это по логам проверить что я этот скрипт применяю?

робит везде, где 2.7 версия!

[Mr.Phoenix]

Usilok77, спасибо большое за данный скрипт!

Тестил на версии 3.0 AionUltimate.ru

Работает на Ура.

Автор, добавь в шапку, что работает и на 3.0.

[c-lavr]

это для пакетов, 2.7 (для ядра игры). На 3.0 пакеты те же еще - поэтому и работает

[lightbearer]

за што отвечает этот CE 00 57 6D FF 00 00 00 00 00 пакет

[c-lavr]

Цитата: Сообщение от 666Смерть666 за што отвечает этот CE 00 57 6D FF 00 00 00 00 00 пакет

Пакет CE - Это пакет таргет.
В данном скрипте при входе/выходе из инвиза перса идет проверка таргет, и если ты ивизера держал в таргете, то таргет снимается - отправляем этот пакет (где ноликами прописано ID персонажа - то есть таргет не на ком)

[probkavglazu]

у меня почему-то перестало сообщение выскавивать, что рядом админы(

[c-lavr]

Цитата: Сообщение от probkavglazu у меня почему-то перестало сообщение выскавивать, что рядом админы(

как у вас пишется ник администрации? в каких скобках

[khrkov.s]

У меня вообще не робит скрипт на ньюшке почему хотя пишет что Включился?

[c-lavr]

Только-что проверил, все работает на нью. Гм рядом не было так-что с оповещением незнаю, а инвиз снимает отлично

[altairalentus]

Добрый день. У меня на сервее не работает снятие таргета при входе цели в инвиз
Сделал по другому

//Script by Usilok and AltairAlentus
var 
b,i,c:byte;
idt:integer;
skill: array[0..3] of integer;
procedure init;
begin
skill[0]:=582;
skill[1]:=948;
skill[2]:=851;
skill[3]:=559;
end;

procedure Msg(msg1:string);
begin
         buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 55 00 73 00 69 00 6C 00 6F 00 6B 00 37 00 37 00 3A 00 20 00 ');
         WriteS(msg1);
         SendToClient;
end;

begin

 if FromServer and (ReadC(1)=$62) then 
    case pck[1] of 
    #$62:
        begin
            buf:=pck;
            if(pck[10]=HStr('14')) or (pck[10]=HStr('54')) then
                WriteC(2,10);   
            WriteC(2,11);
            SendToClient;
            pck:=''; 
        end;
        
     #$1e:   
        if (ReadC(50)=$3C) and (ReadC(51)=$00) then 
            begin
                Msg('Внимание, рядом член Одминистрации!!!');
                buf:=pck;
                sendtoclient;
                buf:=HStr('62 01 54 01 FE ');
                WriteD(ReadD(18));
                buf:=buf+HStr('02 02 00'); 
                sendtoclient;
                pck:=''; 
             end;    
             
     #$50:   
        if readd(6)=idt then   
            begin
                b:=0; 
                for i:= 1 to readc(23) do
                    begin 
                        for c:=0 to 3 do if readh(25+b)=skill[c] then 
                            begin
                                buf:=#$CE#$00#$57#$6D#$FF#$B1#$6E#$00#$00#$00;
                                SendToServer;
                            end;  
                
                        b:=b+8;
                    end;
        end;  
      end;  
    if FromClient and (pck[1]=#$ce) then idt:=readd(6);       
end.

Переделал была проблема в том что в 50 пакете шли не только эффекты цели а всех окружающих добавил проверку по ид перса

Также у меня не получилось снять таргет пакетом:

CE 00 57 6D FF 00 00 00 00 00

Пришлось просто брать нпс в таргет

CE 00 57 6D FF B1 6E 00 00 00

Сервер:ирф4омм

[c-lavr]

брать НПС в таргет не удобно - бери лучше себя) Попробуй вместо ноликов приписать FF FF FF FF или вообще сократи пакет, и отсылай такой CE 00 57 6D FF

[altairalentus]

Цитата: Сообщение от c-lavr брать НПС в таргет не удобно - бери лучше себя) Попробуй вместо ноликов приписать FF FF FF FF или вообще сократи пакет, и отсылай такой CE 00 57 6D FF

Когда посылаешь таргет на нпс и он далеко таргет сбрасывает, а брать себя тоже не удобно бо я играю за несколько персов и каждый раз при старте определить ид не охота а так у меня просто таргет на нпс в инге.
Насчет FF FF FF FF спс попробую.

[celsi]

Цитата: Сообщение от c-lavr как у вас пишется ник администрации? в каких скобках

Нету ни каких скобка только перед ником смайли есть ! когда рядом гм или админ не палит что *Внимание, рядом член Одминистрации!!!* сервер [Ссылки могут видеть только зарегистрированные пользователи. ]

[Robontosto]

+ Админов на фри видит))))

[khrkov.s]

Цитата: Сообщение от c-lavr Только-что проверил, все работает на нью. Гм рядом не было так-что с оповещением незнаю, а инвиз снимает отлично

подскажи какая версия l2phx у тебя?