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

Телепортация 3 in 1 [4.0]

-

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

- Весь софт по Aion, скрипты и боты для игры

Ответ
 
Опции темы
Старый 05.11.2013, 21:34   #1
 Сержант
Аватар для happytorn
 
happytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небе
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
Отправить сообщение для happytorn с помощью Skype™
 
По умолчанию Телепортация 3 in 1 [4.0]

Код:
var
x,y,z:single;

ps,tmp:string;

procedure GetPos;
var
i:integer;
begin
    tmp:='';
    i:=pos(' ',ps)+1;
    while (ps[i]<>' ') do
    begin
        if (ps[i]<>'.') then
            tmp:=tmp+ps[i]
        else
            tmp:=tmp+',';
        inc(i);
    end;
    x:=StrToFloat(tmp);
    tmp:='';
    i:=i+1;
    while (ps[i]<>' ') do
    begin
        if (ps[i]<>'.') then
            tmp:=tmp+ps[i]
        else
            tmp:=tmp+',';
        inc(i);
    end;
    y:=StrToFloat(tmp);
    tmp:='';
    i:=pos(']',ps)+1;
    if (i<>Length(ps)) then
        z:=z+StrToFloat(Copy(ps,i+1,Length(ps)-i));   
        z:=z+20;
end;

procedure SendTP;
begin
    
    buf:=HStr('C2 00 65 3D FF 04');
    WriteN(x);
    WriteN(y);
    WriteN(z);
    buf := buf + hstr('00');
    SendToServer;
      buf:=hstr('F7 00 65 08 FF');
    WriteN(x);
    WriteN(y);
    WriteN(z);
    buf := buf + hstr('2B C0'); 
      sendtoserver; 
      
end;

procedure FixTP;
begin
 z:=z+1;
 buf:=hstr('F7 00 65 08 FF');
    WriteN(x);
    WriteN(y);
    WriteN(z);
    buf := buf + hstr('2B C0 00 00 00 00 00 00 00 00 00 00 00 00');
      sendtoserver; 
     buf:=hstr('C2 00 65 3D FF 03');   
    sendtoserver; 
end;

begin

            
  if FromClient and (ReadC(1)=$F2) and (ReadC(7)=$5B) and (ReadC(9)=$70) and (ReadC(11)=$6F) and (ReadC(13)=$73) then
        begin
            ps:=ReadS(15);
            GetPos;
            SendTP;
            FixTP;
            
            pck:='';
 
           
        end;
     if fromserver and (ReadC(1)=$FB) then
 begin
    buf:=hstr('C2 00 65 3D FF 04');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('00');
    sendtoserver; 
    buf:=hstr('F7 00 65 08 FF');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('2B C0 00 00 00 00 00 00 00 00 00 00 00 00');   
    sendtoserver;
    buf:=hstr('C2 00 65 3D FF 03');   
    sendtoserver; 
         
 end;

if fromserver and (ReadC(1)=$45) then
  begin
    buf:=hstr('C2 00 65 3D FF 04');
    writed(readD(12));
    writed(readD(16));
    writed(readD(20));
    buf := buf + hstr('00');
    sendtoserver; 
    buf:=hstr('F7 00 65 08 FF');
    writed(readD(12));
    writed(readD(16));
    writed(readD(20));
    buf := buf + hstr('2B C0 00 00 00 00 00 00 00 00 00 00 00 00');   
    sendtoserver;
    buf:=hstr('C2 00 65 3D FF 03');   
    sendtoserver;    
  end;  
              
end.
Отдельный скрипт для Gamezaion
Код:
var
x,y,z:single;
c:integer;
ps,tmp:string;

procedure GetPos;
var
i:integer;
begin
    tmp:='';
    i:=pos(' ',ps)+1;
    while (ps[i]<>' ') do
    begin
        if (ps[i]<>'.') then
            tmp:=tmp+ps[i]
        else
            tmp:=tmp+',';
        inc(i);
    end;
    x:=StrToFloat(tmp);
    tmp:='';
    i:=i+1;
    while (ps[i]<>' ') do
    begin
        if (ps[i]<>'.') then
            tmp:=tmp+ps[i]
        else
            tmp:=tmp+',';
        inc(i);
    end;
    y:=StrToFloat(tmp);
    tmp:='';
    i:=pos(']',ps)+1;
    if (i<>Length(ps)) then
        z:=z+StrToFloat(Copy(ps,i+1,Length(ps)-i));   
        z:=z+50;
end;

procedure SendTP;
begin
    Z:=Z+20;
    buf:=HStr('C2 00 65 3D FF 04');
    WriteN(x);
    WriteN(y);
    WriteN(z);
    buf := buf + hstr('00');
    SendToServer;
      buf:=hstr('F7 00 65 08 FF');
    WriteN(x);
    WriteN(y);
    WriteN(z);
    buf := buf + hstr('5E 84 00'); 
      sendtoserver;
      buf := hstr('C2 00 65 3D FF 02');
      sendtoserver; 
      buf := hstr('C2 00 65 3D FF 03');
      sendtoserver;
      
end;


begin

            
  if FromClient and (ReadC(1)=$F2) and (ReadC(7)=$5B) and (ReadC(9)=$70) and (ReadC(11)=$6F) and (ReadC(13)=$73) then
        begin
            ps:=ReadS(15);
            GetPos;
            SendTP;                        
            pck:='';           
        end;
        
     if fromserver and (ReadC(1)=$FB) then
 begin
    buf:=hstr('C2 00 65 3D FF 04');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('00');
    sendtoserver; 
    buf:=hstr('F7 00 65 08 FF');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('5E 84 00');   
    sendtoserver;
    buf := hstr('C2 00 65 3D FF 02');
      sendtoserver; 
      buf := hstr('C2 00 65 3D FF 03');
      sendtoserver; 
         
 end;

if fromserver and (ReadC(1)=$45) then
  begin
   c:=ReadD(20);
   c:=c+1;
    buf:=hstr('C2 00 65 3D FF 04');
    writed(readD(12));
    writed(readD(16));
    writed(readD(20));
    buf := buf + hstr('00');
    sendtoserver; 
    buf:=hstr('F7 00 65 08 FF');
    writed(readD(12));
    writed(readD(16));
    writed(readD(20));
    buf := buf + hstr('5E 84 00');   
    sendtoserver;
    buf := hstr('C2 00 65 3D FF 02');
      sendtoserver;
    buf:=hstr('C2 00 65 3D FF 03');   
    sendtoserver;
         
  end;  
              
end.
Что может скрипт:
  • Тп по клику на карте.
  • Тп к любому НПС,мобу,заданию.
  • Тп к любому игроку вашей расы.

Скрипт только для 4.0 серверов.
Все Тп работают в пределах локации.
Добавлен фикс откидывания назад (Бывает срабатывает не с первого раза, просто повторяем действие)
Если вас кидает ниже нужного места (в текстуры), повторяем отправление в чат места на карте(ентер-->кнопка вверх-->ентер) до тех пор пока не вылезем из текстур.
Проверялось на atr*iaworld, notai*n, aion.s*

Как работает скрипт смотрим на видео:
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
Gods,give me strength

Последний раз редактировалось happytorn; 09.11.2013 в 00:28.
  Ответить с цитированием
5 пользователя(ей) сказали cпасибо:
Grizzly60 (07.11.2013), hardy11 (26.11.2013), Laserdance?! (08.11.2013), leoseven (06.11.2013), w00t (10.02.2014)
Старый 05.11.2013, 21:52   #2
 Сержант
Аватар для aion programmer
 
aion programmer неизвестен в этих краяхaion programmer неизвестен в этих краях
Регистрация: 26.10.2011
Сообщений: 132
Популярность: -163
Сказал(а) спасибо: 12
Поблагодарили 102 раз(а) в 37 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

на евроофе не пашет кажись,ноль эмоций...
________________
Помог жми спасибо!

Последний раз редактировалось aion programmer; 05.11.2013 в 22:31.
  Ответить с цитированием
Старый 05.11.2013, 22:03   #3
 Разведчик
Аватар для suhodolov98
 
suhodolov98 никому не известный тип
Регистрация: 28.11.2010
Сообщений: 9
Популярность: 10
Сказал(а) спасибо: 22
Поблагодарили 2 раз(а) в 2 сообщениях
Отправить сообщение для suhodolov98 с помощью Skype™
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

На атрее отлично работает!
  Ответить с цитированием
Старый 06.11.2013, 01:27   #4
 Разведчик
Аватар для Angelaki
 
Angelaki никому не известный тип
Регистрация: 29.10.2013
Сообщений: 7
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

how can use it?
  Ответить с цитированием
Старый 06.11.2013, 01:50   #5
 Разведчик
Аватар для Rifmas
 
Rifmas на правильном пути
Регистрация: 24.01.2012
Сообщений: 16
Популярность: 79
Сказал(а) спасибо: 14
Поблагодарили 7 раз(а) в 6 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

на Америке частично пытается работать по клику на карте-тпшит в пределах 5-7 метров
  Ответить с цитированием
Старый 06.11.2013, 02:43   #6
 Разведчик
Аватар для ltytr1
 
ltytr1 никому не известный тип
Регистрация: 29.10.2010
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

А если при тп в указанную точку тпешит под текстуры всегда,можно это как то исправить?
  Ответить с цитированием
Старый 06.11.2013, 03:09   #7
 Сержант
Аватар для happytorn
 
happytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небе
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
Отправить сообщение для happytorn с помощью Skype™
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

Цитата:
Сообщение от ltytr1Посмотреть сообщение
А если при тп в указанную точку тпешит под текстуры всегда,можно это как то исправить?

Пропиши в строке z:=z+20;
вместо двадцати сотню например и попробуй
________________
Gods,give me strength
  Ответить с цитированием
Пользователь сказал cпасибо:
Grizzly60 (07.11.2013)
Старый 06.11.2013, 08:32   #8
 Разведчик
Аватар для ltytr1
 
ltytr1 никому не известный тип
Регистрация: 29.10.2010
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

Цитата:
Сообщение от happytornПосмотреть сообщение
Пропиши в строке z:=z+20;
вместо двадцати сотню например и попробуй

Спасибо, пока вроде все нормально)

Последний раз редактировалось ltytr1; 06.11.2013 в 08:37.
  Ответить с цитированием
Старый 06.11.2013, 09:53   #9
 Разведчик
Аватар для leoseven
 
leoseven на правильном пути
Регистрация: 04.01.2010
Сообщений: 15
Популярность: 20
Сказал(а) спасибо: 20
Поблагодарили 5 раз(а) в 3 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

ТПшит обратно сервер геймзайон, как при вводе поиска, так и кликом по карте, одно и то же
  Ответить с цитированием
Старый 06.11.2013, 12:32   #10
 Сержант
Аватар для aion programmer
 
aion programmer неизвестен в этих краяхaion programmer неизвестен в этих краях
Регистрация: 26.10.2011
Сообщений: 132
Популярность: -163
Сказал(а) спасибо: 12
Поблагодарили 102 раз(а) в 37 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

я так понял там где стоит геодата нормальная работать априори не может,ну а гавнафришки они и есть гавнафришки.
________________
Помог жми спасибо!
  Ответить с цитированием
Старый 06.11.2013, 23:43   #11
 Разведчик
Аватар для Skier_07
 
Skier_07 никому не известный тип
Регистрация: 28.10.2010
Сообщений: 31
Популярность: 14
Сказал(а) спасибо: 21
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

на NA не работает
  Ответить с цитированием
Старый 08.11.2013, 16:55   #12
 Сержант
Аватар для happytorn
 
happytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небе
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
Отправить сообщение для happytorn с помощью Skype™
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

Цитата:
Сообщение от leosevenПосмотреть сообщение
ТПшит обратно сервер геймзайон, как при вводе поиска, так и кликом по карте, одно и то же

Добавил в шапку отдельный скрипт для сервера Gamezaion с фиксом откидывания назад.
________________
Gods,give me strength
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
leoseven (14.11.2013), talala (08.11.2013)
Старый 13.11.2013, 22:11   #13
 Разведчик
Аватар для Elizis
 
Elizis никому не известный тип
Регистрация: 24.05.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 2 раз(а) в 1 сообщении
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

Прошу прощения за глупый вопрос!
Как начать пользоваться данным скриптом. т.е. через какой софт. Если не сложно буду благодарен за линк.
  Ответить с цитированием
Старый 13.11.2013, 22:20   #14
 Сержант
Аватар для happytorn
 
happytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небе
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
Отправить сообщение для happytorn с помощью Skype™
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

Цитата:
Сообщение от ElizisПосмотреть сообщение
Прошу прощения за глупый вопрос!
Как начать пользоваться данным скриптом. т.е. через какой софт. Если не сложно буду благодарен за линк.

http://zhyk.ru/forum/showthread.php?t=802417
________________
Gods,give me strength
  Ответить с цитированием
Старый 15.11.2013, 21:21   #15
 Разведчик
Аватар для hardy11
 
hardy11 никому не известный тип
Регистрация: 03.01.2013
Сообщений: 18
Популярность: 10
Сказал(а) спасибо: 7
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Телепортация 3 in 1 [4.0]

happytorn, другие скрипты там еще рабочие есть? сегодня хочу потестить су.
какие дюпы есть на этих сервах, хакон работает?

Добавлено через 3 часа 37 минут
на су работает хакон.при использовании спидхака выкидыват из игры

Последний раз редактировалось hardy11; 16.11.2013 в 15:16. Причина: Добавлено сообщение
  Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Пакеты] Телепортация по локации [NewAion] Phantоm Баги и читы для Aion 16 04.12.2012 15:25
[Баг] Телепортация по локам qazwww Баги и читы для Aion 36 28.10.2011 15:33
телепортация l_F Общение и обсуждение Perfect World 9 16.11.2010 00:53
[Подсказка] Телепортация с режима боя Hummel Rising Force Online 0 14.03.2009 13:22

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

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

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