[Скрипт] Телепорт и небольшой баг

[CyberCrime'r]

Приветствую форумчане: читеры, администраторы серверов, просто нубы и talala, ведь если бы не talala темы никогда бы и не было, все спасибки исключительно ему вот в этот пост из этой темы

Немного прилюдии ( флуда (с)talala), решил выложить скрипт на форум и объяснить как его составлять, служит скрипт для телепортов по локации, в нем есть плюсы, и, наверно все таки минусов в нем нет, хотя кому как, он активирует один баг, который опишу позже. Содзан скрипт от лени бегать туда сюда по игре, ведь мир большой, а даже бежать к тому же телепорту не охото.

Теперь к делу, скрипт выглядит таким образом:

begin
if FromClient then
    
    begin                       
        if (pck=HStr('(*пакет на активацию*)')) then
        begin 
            buf:=HStr('C9 57 66 04 (*пакет перемещения типа 9E без первых 3х байт*));
            SendToServer;
            buf:=HStr('(*пакет перемещения полный, но без дополнительной информации*');
            SendToServer;
            buf:=HStr('67 57 04');
            SendToServer;
            pck:='';
        end;
end;
end.

Объясню попунктно что он выполняет:
1. в 3й строке срипта где вместо слов (*пакет на активацию*) ставим удобный вам для активации пакет, лично я предпочитаю пакеты ввода слов в чат типа B9. То есть пишем слово в чат, ловим пакет и добавляем в скрипт.

2. в 5й строке у нас будет модифицированный пакет, взял из какой-то темы на форуме, надо добавить туда пакет на перемещение около места где хотите установить точку телепорта, пакет типа 9E, удалить в нем 3 первых байта ( байт - 2 символа в 16-тиричной системе исчесления в программе l2ph )

3. в 7й строке нужно добавить полный пакет о перемещении, желательно тот же, который вы модифицировали в предыдущем пункте, желательно чтоб он был без дополнительной информации, она начинается с байта CE от этого пакет значительно длинней.

4. в 9й строке скрипта у нас обычный пакет на обновление информации в мире, я его так называю, думаю с ним многие имели дело.

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

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

Добавлено через 6 минут
ах да, чуть не забыл, что бы добавить в скрипт еще точек для телепорта напишите перед последним end'ом

if pck=HStr('(*пакет на активацию*)') then
        begin 
            buf:=HStr('C9 57 66 04 (*пакет перемещения типа 9E без первых 3х байт*));
            SendToServer;
            buf:=HStr('(*пакет перемещения полный, но без дополнительной информации*');
            SendToServer;
            buf:=HStr('67 57 04');
            SendToServer;
            pck:='';
        end;

и сохраняйте

Добавлено через 18 минут
ах, простите еще чуть не забыл, если мы сохраним точку на одной локе активировав ее в другой, то мы переместимся в эти координаты, для чего я это написал? например если вы сохраните точку где нибудь в оке ( бездна ), то активировав телепорт, вы в локации например келькмаросс, переместитесь в небо, от куда можете парить куда вам захочеться и опять же там сохранить точку телепорта - это специально для чайников

Добавлено через 32 минуты
ну и на последок внесу лепту опять же для чайников, если сохранить точку телепорта в пвп локе где нибудь в безлюдном месте, то находясь в пвп бою понимая, что вы проигрываете можно нажать на созданный вами макрос сообщения в чат, который будет активировать скрипт и безболезненно и моментально вы исчезнете от противника, отмазавшись: о_О яхз, у меня был сенд-лог

[Tr0y]

Цитата: Сообщение от CyberCrime'r Приветствую ...

Я немного по другому сделал, но в принципе тоже самое, создал 2 макроса с сообщениями в чат, перехватил эти сообщения и обрабатываю скриптом

Когда приходит 1 сообщение, у меня только в чате и в середине экрана пишется "Точка сохранена", ну и 2 макрос при нажатии сразу тпшит нас в эту точку "сохранения". Принцип перемещения через "приседание"

В пвп очень помогает, но если часто юзать, то палевно наверно будет

Впадлу его составлять, серавно спс не ставят, скопипастю ток отрывки, сами напишите если надо )

На 2.1:

var
    My_x,My_y,My_z,ID_loc: integer;
    My_xyz: string;                     // пакет целиком текущие координаты
   flag_savePoint: boolean;            // true - ищем пакет на координату для запоминания точки сохранения, false - игнорим пакет на изхменение точки сохрания
   values : array [0..100] of variant;

procedure Init; //Вызывается при включении скрипта
begin
 My_xyz:='';
 flag_savePoint:=false;My_x:=0;My_y:=0;My_z:=0;ID_loc:=0;
end;

procedure SendMSGChat(text: string); // Пишем в чат
begin
  buf:=HStr('17 54 D4 22 00 01 00 00 00 00 00');
  WriteS(text);
  SendToClient; 
end;

...

#$9E:  // Move Player
   if (flag_savePoint=true) then                                       // нужно создать новую точку сохранения?
   begin  // 9E 57 5D x x x x y y y y z z z z id ...
   ReadMask('hnnnc',2,values); 
   if ((values[1]>0)and(values[2]>0)and(values[3]>0))then              // x>0 y>0 z>0
    begin                                                     
    My_xyz:= StrToHex(pck);                                            // запоминает первый найденный пакет на передвидение
    flag_savePoint:= false;                                            // точку запомнили, выключаем флаг запоминания координаты
    My_x:=values[1];My_y:=values[2];My_z:=values[3];ID_loc:=values[4];
    SendMSGChat('Точка перемещения добавлена в X='+inttostr(My_x)+'  Y='+inttostr(My_y)+'  Z='+inttostr(My_z));
    end;                                                                                                                        
   end;
...
    // Запоминаем текущую координату в переменную
    // B9 57 76 00 2F 00 40 04 35 04 41 04 00 00                       // В чат: рес 
    if ((pck[5]= #$40) AND (pck[7]= #$35) AND (pck[9]= #$41))then 
        begin
        SendMSGChat('*** Добавление точки АКТИВНО! ***');     
        flag_savePoint:=true;                                         // начинаем ждать пакет на перемещение
        pck := ''; 
        end; 
...    
    // Телепорт к ранее сохраненной точке
    if ((pck[5]= #$2F)AND(pck[7]= #$39)AND
        (pck[9]= #$35)AND(pck[11]= #$36)) then                        // /956 
        begin                                                          
        buf:=HStr('C9 57 66 04');                                                          
        WriteN(My_x);
        WriteN(My_y);
        WriteN(My_Z+1);
        WriteC(ID_loc);                                                          
        SendToServerCheck;
        flag_savePoint:=false;                                        // выключаем флаг запоминания координаты
        pck := ''; 
        end;
...

А вот частями выложу, пользуйтесь )

[CyberCrime'r]

не плохо, у меня вроде такого есть, только сообщение как от админа расписано Write'ми

procedure SendMSGChat(s:string);
begin
     WriteC($17);
     WriteH(54356);
     WriteC(35);  
     WriteC(0);
     WriteD(0); 
     WriteH(0);
     WriteS(s);
     SendToClient;
end;

[talala]

Ведь можете же

[Apchhuy]

Что это вообще такое и с чем это есть??

[NEcot]

Скрипт тп'шит только по локе или я что-то нетак делаю?

[Furydose]

Цитата: Сообщение от NEcot Скрипт тп'шит только по локе или я что-то нетак делаю?

Все правильно, только по локе он и тп'шит.

[Dicpano15]

Скажите а можно как-то к входу в рб сразу телепорт зделать а то няхи иногда достают ппц как

[CyberCrime'r]

Цитата: Сообщение от Dicpano15 Скажите а можно как-то к входу в рб сразу телепорт зделать а то няхи иногда достают ппц как

представь общение 2х людей, один говорит другому:
- Я себе сегодня такую машину купил, закачаешься.
А второй ему отвечает:
- Слушай, ну ты когда уже машину купишь?

Суть понял?

[Dicpano15]

Цитата: Сообщение от CyberCrime'r представь общение 2х людей, один говорит другому: - Я себе сегодня такую машину купил, закачаешься. А второй ему отвечает: - Слушай, ну ты когда уже машину купишь? Суть понял?

Понять то я понял но вопрос я все таки хотел задать так как интересно возможно ли ето

[CyberCrime'r]

а почему это может быть не возможным, я не могу понять?

Добавлено через 6 минут
если вы можете стоять у входа и поймать пакеты, то в чем проблема? если вы конечно читали первый пост

[Dicpano15]

Цитата: Сообщение от CyberCrime'r а почему это может быть не возможным, я не могу понять? Добавлено через 6 минут если вы можете стоять у входа и поймать пакеты, то в чем проблема? если вы конечно читали первый пост

Всю тему читал поэтому и стало интересно спасибо что сказал буду что-то пробивать делать

[CyberCrime'r]

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

[Fantme]

Цитата: Сообщение от CyberCrime'r объясню еще раз для тех, кто не понял! можно сделать телепорт куда угодно. лишь бы вы там сами стояли, лично я могу делать телепорт куда захочу и без отловки пакетов, просто составить координаты, но это описывать сложно, я не учитель. А по этой теме, надо поймать пакеты вашего места нахождения и можете туда когда угодно возвращаться без ущерба для себя

кроме данжей

[CyberCrime'r]

данж - отдельная локация, речь идет именно о данной локации, можно делать телепорт ко входу в данж, а если ты там часто бегаешь, что мешает и по данжу расставить точки? координаты не меняются