Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

"Антимираж"

-

Подполье Lineage 2 (0 уровень)

- Темы, перенесенные из Подполья 1 уровня (архивные за 2008-2015). Отличная основа для поиска новых уязвимостей.

Ответ
 
Опции темы
Старый 25.03.2011, 17:58   #1
 Сержант
Аватар для vlaha
 
vlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личностьvlaha определенно авторитетная личность
Регистрация: 15.11.2009
Сообщений: 141
Популярность: 1112
Сказал(а) спасибо: 212
Поблагодарили 421 раз(а) в 137 сообщениях
Отправить сообщение для vlaha с помощью ICQ
 
По умолчанию "Антимираж"

Собственно,название говорит само за себя: скрипт возвращает таргет на игрока,если он сбился.
Используется против ТХ\Неких магов (аура флеш) и\или на серверах по типу мультипрофы,где каждый бегает с миражом.Делал под IT.

Код:
//Скрипт "Антимираж" 
Var
  actionPck: string;
  myObjID: integer;
  myName: string;
  i: integer;
  oid: integer;
  id: integer;
  procedure TextToChat(text: string);
begin
    //4A=Say2:d(ObjectID)d(textType:Get.Func02)s(charName)s(Message)
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(text);
    SendToClient;
end; 
procedure Init; //Вызывается при включении скрипта
begin   
    actionPck:= '';
    myObjID:= 0;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
   if FromClient and (pck[1] = #$04) then//Action 
    begin
        actionPck:= pck;
        
    end;
    if FromServer and (pck[1] = #$04) then//UserInfo 
    begin
        //04=UserInfo:d(X)d(Y)d(Z)d(Heading)d(ObjectID)s(Name) ....
        i:= 18;
        myObjID:= ReadD(i);
        myName:= ReadS(i);
    end;   
    if FromServer and (pck[1] = #$2A) and (actionPck <> '') and (myObjID > 0) then 
    begin
        //2A=TargetUnselected:d(TargetID)d(X)d(Y)d(Z)d(d)
        i:= 2;
        oid:= ReadD(i);
        if oid = myObjID then 
        begin    
            pck:= '';//обнуляем пакет чтобы он не дошел клиенту
            buf:= actionPck;
            SendToServer;
        end;
    end;    
    if FromServer and (pck[1] = #$64) and (actionPck <> '') and (myObjID > 0) then 
    begin
        //64=SystemMessage:d(MsgID:Get.MsgID)d(typesCount)
        i:= 2;
        id:= ReadD(i);
        if id = $32 then 
        begin    
            buf:= actionPck;
            SendToServer;
            end;
    end;
  end.
end.
После запуска скрипта нужно релогнуться.
Был написан под заказ каким-то профи с coderx.ru
________________
==============>[[Ссылки могут видеть только зарегистрированные пользователи. ]]<==============
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Руководство] "Эмулятор нажатий клавиш" или "Один поток и пара Процедур" zaparca Pascal/Delphi 3 11.03.2011 00:28
[Предложение] Выставить "По умолчанию" галочку "Без перенаправления" при переносе тем Jumper Team of development 4 25.02.2011 16:08
[Руководство] "Воизбежание"-"Логин в прцессе подключения"+"Дисконект при выборе сервера" K.Rezonans Баги, читы и статьи по Point Blank 19 27.06.2010 03:24

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 16:08.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net