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

МУЛЬТИХАК

-

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

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

Ответ
 
Опции темы
Старый 30.03.2012, 07:01   #1
Читер-олигарх
 Рыцарь
Аватар для c-lavr
 
c-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нации
Регистрация: 20.10.2011
Сообщений: 395
Популярность: 3913
Сказал(а) спасибо: 253
Поблагодарили 468 раз(а) в 122 сообщениях
Отправить сообщение для c-lavr с помощью Skype™
 
По умолчанию МУЛЬТИХАК

31.03.2012 15:47 Исправлены ошибки в скрипте. Просьба пересохранить скрипт

МультиХак для версии игры 2.7

Скрипт:
Код:
//защищенно авторским правом CLAVR
var
 PlayerId,baseAttackSpeed,currentAttackSpeed:integer;
 st,animation,enteranimation,speedattack,rengeattack:single; 
 controlspeed,controlanimation,controlrengeattack,controlattack,controlpinion:boolean;
 per1,per2,info:string;

Procedure Init;
begin
    st:=12;
    enteranimation:=70;    
    speedattack:=0.9;
    rengeattack:=5;
    controlspeed:=False;
    controlanimation:=False;
    controlrengeattack:=False;
    controlattack:=False;
    controlpinion:=False;
end;

 
Procedure StartSpeed;
begin
    buf:=per1;
    WriteD(PlayerId,6);                             
    WriteN(st,13);
    sendtoClient;    
end;

Procedure rengeatack;
begin
    if controlrengeattack then           
       WriteN(rengeattack,114); 
    if controlattack then              
       WriteH(Int(speedAttack*1000),118);       
end;

begin        
    if FromClient and (ReadC(1)=$45)  then                                    
       PlayerId:=ReadD(6);
              
    if FromServer and (ReadC(1)=$01) then 
       begin                       
           buf:=pck;
           info:=buf;
           rengeatack;          
           sendtoClient; 
           pck:='';                  
       end;                     
             
    if FromServer and (ReadC(1)=$45) and (ReadD(6)=PlayerId) then
       begin               
           buf:=pck;  
           if controlSpeed then
               WriteN(st,13);
           case Length(pck) of
                16: per1:= buf;
                20:
                   begin
                      per2:= buf;
                      baseAttackSpeed:=ReadH(17);
                      currentAttackSpeed:=ReadH(19);
                      animation:=(currentAttackSpeed-baseAttackSpeed/2);
                      if controlanimation then
                         WriteH(int(currentAttackSpeed-animation*(1-enteranimation/100)),19);                                            
                   end;
           end;
           if controlpinion then
              WriteC(35,10);                                        
           sendtoClient; 
           pck:='';  
       end; 
     if FromClient and  (pck[1]+ pck[6]=#$C2+#$1A) then  
                     if (controlSpeed=False) then                   
                         begin
                             pck:='';
                             controlSpeed:=True;                              
                             buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 21 04 3F 04 38 04 34 04 25 04 30 04 3A 04 3A 00 20 00 ');
                             WriteS('включен');
                             sendtoclient;
                             StartSpeed;                             
                         end                   
                            else 
                               begin                                         
                                  controlSpeed:=False;
                                  buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 21 04 3F 04 38 04 34 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                  WriteS('выключен');
                                  sendtoclient;                                         
                               end; 
     if FromClient and (ReadC(1)=$B2) then
       begin  
          case (pck[7]+ pck[9]) of
             #$73+#$68:
                      begin              
                          st:=StrToFloat(ReadS(11));
                          if controlSpeed then
                              begin
                                  StartSpeed;
                                  buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 21 04 3F 04 38 04 34 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                  WriteS('скорость изменена');
                                  sendtoclient;
                              end
                                 else
                                     begin 
                                         buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 21 04 3F 04 38 04 34 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                         WriteS('скорость введена');
                                         sendtoclient;
                                      end;               
                          pck:='';               
                      end; 
             #$61+#$6E:
                    if (ReadC(11)<>$6F) then 
                      begin              
                         enteranimation:=StrToFloat(ReadS(11));                
                         if controlanimation then
                             begin
                                 buf:=per2;
                                 WriteH(int(currentAttackSpeed-animation*(1-enteranimation/100)),19);
                                 sendtoclient;
                                 buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 23 04 3F 04 40 04 2D 00 30 04 3D 04 38 04 3C 04 30 04 46 04 38 04 35 04 39 04 3A 00 20 00 ');
                                 WriteS('значение изменено');
                                 sendtoclient;
                             end
                                else
                                   begin 
                                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 23 04 3F 04 40 04 2D 00 30 04 3D 04 38 04 3C 04 30 04 46 04 38 04 35 04 39 04 3A 00 20 00 ');
                                       WriteS('значение введено');
                                       sendtoclient;
                                   end; 
                         pck:='';                           
                      end
                         else
                             case ReadS(7) of
                                 'anon':
                                       begin
                                           buf:=per2;
                                           WriteH(int(currentAttackSpeed-animation*(1-enteranimation/100)),19);
                                           sendtoclient;
                                           controlanimation:=True;                              
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 3D 04 38 04 3C 04 35 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                           WriteS('включено');
                                           sendtoclient;
                                           pck:='';
                                       end;
                                 'anof':
                                       begin                                         
                                           controlanimation:=False;
                                           buf:=per2;                      
                                           sendtoclient;
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 3D 04 38 04 3C 04 35 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                           WriteS('востановлен по умолчанию');
                                           sendtoclient;
                                           pck:='';                                         
                                       end;
                             end;
             #$72+#$6E:
                    if (ReadC(11)<>$6F) then 
                      begin           
                         rengeattack:=StrToFloat(ReadS(11));
                         if controlrengeattack then
                             begin
                                 buf:=info;
                                 rengeatack;                                 
                                 sendtoClient;                                  
                                 buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 20 04 30 04 34 04 38 04 43 04 41 04 20 00 30 04 42 04 30 04 3A 04 38 04 3A 00 20 00 ');
                                 WriteS('значение изменено');
                                 sendtoclient;
                             end
                                else
                                   begin 
                                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 20 04 30 04 34 04 38 04 43 04 41 04 20 00 30 04 42 04 30 04 3A 04 38 04 3A 00 20 00 ');
                                       WriteS('значение введено');
                                       sendtoclient;
                                   end; 
                         pck:='';                           
                      end
                         else
                             case ReadS(7) of
                                 'rnon':
                                       begin
                                           controlrengeattack:=True;
                                           buf:=info;
                                           rengeatack;                                 
                                           sendtoClient;              
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 23 04 3F 04 40 04 2D 00 30 04 3D 04 38 04 3C 04 30 04 46 04 38 04 35 04 39 04 3A 00 20 00 ');
                                           WriteS('измение включено');
                                           sendtoclient;
                                           pck:='';
                                       end;
                                 'rnof':
                                       begin                                         
                                           controlrengeattack:=False;
                                           buf:=info;
                                           rengeatack;                      
                                           sendtoclient;
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 20 04 30 04 34 04 38 04 43 04 41 04 20 00 30 04 42 04 30 04 3A 04 38 04 3A 00 20 00 ');
                                           WriteS('востановлен по умолчанию');
                                           sendtoclient;
                                           pck:='';                                         
                                       end;
                             end;
             #$61+#$74:
                    if (ReadC(11)<>$6F) then 
                      begin           
                         speedAttack:=StrToFloat(ReadS(11));
                         if controlattack then
                             begin
                                 buf:=info;
                                 rengeatack;                                 
                                 sendtoClient;                                  
                                 buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 42 04 30 04 3A 04 30 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                 WriteS('значение изменено');
                                 sendtoclient;
                             end
                                else
                                   begin 
                                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 42 04 30 04 3A 04 30 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                       WriteS('значение введено');
                                       sendtoclient;
                                   end; 
                         pck:='';                           
                      end
                         else
                             case ReadS(7) of
                                 'aton':
                                       begin
                                           controlAttack:=True;
                                           buf:=info;
                                           rengeatack;                                 
                                           sendtoClient;              
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 42 04 30 04 3A 04 30 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                           WriteS('измение включено');
                                           sendtoclient;
                                           pck:='';
                                       end;
                                 'atof':
                                       begin                                         
                                           controlAttack:=False;
                                           buf:=info;
                                           rengeatack;                      
                                           sendtoclient;
                                           buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 10 04 42 04 30 04 3A 04 30 04 25 04 30 04 3A 04 3A 00 20 00 ');
                                           WriteS('востановлена по умолчанию');
                                           sendtoclient;
                                           pck:='';                                         
                                       end;
                             end;                                      
          end;
          case ReadS(7) of
            'kron':
                  begin
                      controlpinion:=True;
                      buf:=per1;
                      WriteC(35,10);                                                               
                      sendtoClient;              
                      buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 1A 04 40 04 4B 04 3B 04 4C 04 4F 04 25 04 30 04 3A 04 3A 00 20 00 ');
                      WriteS('включен');
                      sendtoclient;
                      pck:='';
                  end;
            'krof':
                  begin                                         
                      controlpinion:=False;
                      buf:=per1;
                      WriteC(14,10);                                                               
                      sendtoClient;
                      buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 1A 04 40 04 4B 04 3B 04 4C 04 4F 04 25 04 30 04 3A 04 3A 00 20 00 ');
                      WriteS('выключен');
                      sendtoclient;
                      pck:='';                                         
                  end;
          end;
     end;                
end.
Управление:

Желательно запускать перед выбором персонажа

Команды:

СпидХак:
По умолчанию выставлено 12 м/с
Код:
sh30 - установка скорости в метрах
Нажатие клавиши Ю - переключает по очереди СпидХак/бег/шах
АнимеХак:
По умолчанию выставлено 70%
Код:
an65 - установка анимации в % от исходной
anon - включение
anof - выключение
АтакХак:
По умолчанию выставлено 0,9
Код:
at0,6 - установка скорости атаки
aton - включение
atof - выключение
Радиус атаки:
По умолчанию выставлено 5 м
Измение радиуса атаки влияет только на автоатаку
Код:
rn0,6 - установка радиуса атаки в метрах
rnon - включение
rnof - выключение
КрыльяХак:
Включать только во время полета. При выключение крылья складываются
Код:
kron - включение
krof - выключение

Все значения в командах приведены для примера. Вместо них выставляем свои
________________
Затыкай меня спасибками

Последний раз редактировалось c-lavr; 31.03.2012 в 16:51. Причина: Исправлены ошибки в скрипте
  Ответить с цитированием
34 пользователя(ей) сказали cпасибо:
Abensur (01.04.2012), aion programmer (30.03.2012), aionmax (20.05.2012), Anarhiya (29.05.2012), Aoi Hana (03.04.2012), ARTi4 (23.07.2012), Bruniq (31.03.2012), celsi (30.03.2012), chepena (19.08.2012), DarkdalV (14.04.2012), dimchik1995 (06.05.2012), Djagernaut (13.05.2012), dreamzy (01.04.2012), freshinin-aion (30.03.2012), Giperion (30.03.2012), jos (31.03.2012), mars2107 (30.03.2012), Murderking (30.03.2012), Oni-San (30.03.2012), probkavglazu (07.04.2012), Puzer (30.03.2012), Reender (13.08.2012), RideWheel (30.03.2012), Senyaaaa (17.05.2012), sergey21121 (01.04.2012), shadowst (31.03.2012), spangebob951 (24.05.2012), Toshkaa (30.03.2012), tyrto (10.04.2012), valdes132011 (22.05.2012), Venzli (01.04.2012), vladmarmelad (30.03.2012), x-miskalin-x (05.04.2012), xRxIxKxO (30.03.2012)
Старый 30.03.2012, 07:22   #2
 Разведчик
Аватар для Geeps
 
Geeps никому не известный тип
Регистрация: 15.06.2011
Сообщений: 9
Популярность: 14
Сказал(а) спасибо: 0
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

Меня забанили на серевере(
Да собственно по*уй.
Автор спасибо)
  Ответить с цитированием
Старый 30.03.2012, 09:58   #3
 Разведчик
Аватар для Mark_
 
Mark_ скоро будет известенMark_ скоро будет известенMark_ скоро будет известенMark_ скоро будет известен
Регистрация: 08.03.2012
Сообщений: 18
Популярность: 345
Сказал(а) спасибо: 31
Поблагодарили 23 раз(а) в 6 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

АнимеХак:ЧТО это такое?)И крыльяХак?)

Последний раз редактировалось Mark_; 30.03.2012 в 10:15. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 30.03.2012, 11:36   #4
 Разведчик
Аватар для NonSteeler
 
NonSteeler никому не известный тип
Регистрация: 14.02.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для NonSteeler с помощью Skype™
 
По умолчанию Re: МУЛЬТИХАК

Цитата:
Сообщение от Mark_Посмотреть сообщение
АнимеХак:ЧТО это такое?)И крыльяХак?)

аниме хак я так понял меняет скорость анимации, а вот про крылья самому интересно
________________
Поставь спасибо, я ж старался
  Ответить с цитированием
Старый 30.03.2012, 12:50   #5
 Разведчик
Аватар для vladmarmelad
 
vladmarmelad никому не известный тип
Регистрация: 12.01.2011
Сообщений: 21
Популярность: 14
Сказал(а) спасибо: 36
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

КрыляХак - уберает откат у крыльев.
  Ответить с цитированием
Старый 30.03.2012, 13:50   #6
 Разведчик
Аватар для RideWheel
 
RideWheel никому не известный тип
Регистрация: 15.03.2010
Сообщений: 20
Популярность: 16
Сказал(а) спасибо: 44
Поблагодарили 3 раз(а) в 3 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

Спасибо, хорошая работа))
Гладиатор - полёт нормальный.
  Ответить с цитированием
Старый 30.03.2012, 15:59   #7
 Разведчик
Аватар для overlord1997
 
overlord1997 никому не известный тип
Регистрация: 17.12.2010
Сообщений: 26
Популярность: 12
Сказал(а) спасибо: 11
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: МУЛЬТИХАК

Я не понял в чат команды писать что ли ??
  Ответить с цитированием
Старый 30.03.2012, 16:43   #8
Читер-олигарх
 Рыцарь
Аватар для c-lavr
 
c-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нации
Регистрация: 20.10.2011
Сообщений: 395
Популярность: 3913
Сказал(а) спасибо: 253
Поблагодарили 468 раз(а) в 122 сообщениях
Отправить сообщение для c-lavr с помощью Skype™
 
По умолчанию Re: МУЛЬТИХАК

Цитата:
Сообщение от overlord1997Посмотреть сообщение
Я не понял в чат команды писать что ли ??

Да. Команды все пишем в чат. Кроме перключения СаидХака
________________
Затыкай меня спасибками
  Ответить с цитированием
Старый 30.03.2012, 16:47   #9
 Пехотинец
Аватар для celsi
 
celsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краях
Регистрация: 15.03.2011
Сообщений: 97
Популярность: -626
Сказал(а) спасибо: 66
Поблагодарили 9 раз(а) в 7 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

спасибо гений ) Тебя +5 )
________________
ЧитеР но Не злоЙ
  Ответить с цитированием
Старый 30.03.2012, 17:36   #10
 Разведчик
Аватар для Oni-San
 
Oni-San скоро будет известенOni-San скоро будет известенOni-San скоро будет известен
Регистрация: 12.10.2011
Сообщений: 43
Популярность: 205
Сказал(а) спасибо: 50
Поблагодарили 3 раз(а) в 2 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

все круто только вот ставлю скорость атаки отображается все гуд а вот сама скорость остается тойже =_= точнее бьет с тойже со стандартной

Последний раз редактировалось Oni-San; 30.03.2012 в 17:40.
  Ответить с цитированием
Старый 30.03.2012, 17:48   #11
 Разведчик
Аватар для d-volt
 
d-volt никому не известный тип
Регистрация: 03.03.2011
Сообщений: 14
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

на aion-fr** когда пишу в чат anon (анимация остается прежней)

Последний раз редактировалось d-volt; 30.03.2012 в 17:56.
  Ответить с цитированием
Старый 30.03.2012, 18:41   #12
 Разведчик
Аватар для tilp
 
tilp никому не известный тип
Регистрация: 30.03.2012
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

У меня тоже N**Aion пишу anon в чат пишется, причем все могут прочесть это, но анимация такая же.
И ещё скорость атаки меняется только визуально
  Ответить с цитированием
Старый 30.03.2012, 19:11   #13
 Пехотинец
Аватар для celsi
 
celsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краяхcelsi неизвестен в этих краях
Регистрация: 15.03.2011
Сообщений: 97
Популярность: -626
Сказал(а) спасибо: 66
Поблагодарили 9 раз(а) в 7 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

Цитата:
Сообщение от d-voltПосмотреть сообщение
на aion-fr** когда пишу в чат anon (анимация остается прежней)

у меня все работает на ура ! МБ не то делаешь
________________
ЧитеР но Не злоЙ
  Ответить с цитированием
Старый 30.03.2012, 20:41   #14
Читер-олигарх
 Рыцарь
Аватар для c-lavr
 
c-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нацииc-lavr гордость нации
Регистрация: 20.10.2011
Сообщений: 395
Популярность: 3913
Сказал(а) спасибо: 253
Поблагодарили 468 раз(а) в 122 сообщениях
Отправить сообщение для c-lavr с помощью Skype™
 
По умолчанию Re: МУЛЬТИХАК

Цитата:
Сообщение от d-voltПосмотреть сообщение
на aion-fr** когда пишу в чат anon (анимация остается прежней)

Это значит не было пакета, который меняется в скрипте. Если ты скрипт запустил не до выбора перса, то смени оружие или сними/одень оружие. После этого АнимаХак заработает
________________
Затыкай меня спасибками
  Ответить с цитированием
Пользователь сказал cпасибо:
shadowst (31.03.2012)
Старый 30.03.2012, 21:15   #15
 Разведчик
Аватар для tilp
 
tilp никому не известный тип
Регистрация: 30.03.2012
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: МУЛЬТИХАК

C-lavr сейчас попробую как ты сказал

Добавлено через 5 минут
Спасибо все работает

Последний раз редактировалось tilp; 30.03.2012 в 21:21. Причина: Добавлено сообщение
  Ответить с цитированием
Ответ

Опции темы

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

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

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

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

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

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