Скрипт СпидХак для Айон 2.7

[aion programmer]

Цитата: Сообщение от Grile newaion Х75 не работает, размерность не та Добавлено через 2 минуты Но автору все равно + за старания))

NEWAion-Не робит скрипт по причине того что там установлен 2.5. с обновлением на 2.7.версию.
Если поменять пакеты должен работать=))

[ADK452]

Цитата: Сообщение от Val111 Какой скрипт используешь? Самый первый или 2й -урезанный. С 1вым есть подобные баги. Со вторым.

Также глюки с анимацией.

[пчело]

сделай пожалуста если сможешь активацию и деактивацию на эмоцию"отжаться" !!! очень нужно или объясни как это сделать)

[llldemanlll]

Эмм а можно как не будь исправить чтобы скорость была больше 12.0

[Val111]

Цитата: Сообщение от llldemanlll Эмм а можно как не будь исправить чтобы скорость была больше 12.0

Можно. в скипре поменяй эти значения 00 00 40 41 - (это и есть 12,0). в l2hx нажымаешь преобразование/дополнительно/ в левой половине пишешь твою скорость. к примеру 24,0 точку ставишь на Single и на жымаешь стрелочку, должно получится 00 00 C0 41 меняешь в скрипте и бегаешь с 24,0.

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

Цитата: Сообщение от пчело сделай пожалуста если сможешь активацию и деактивацию на эмоцию"отжаться" !!! очень нужно или объясни как это сделать)

не вижу смысла ставить на эмоцию отжатся если при прижке скрипт сам активируется. а что бы деактивировать достаточно присесть. Но если тебе уж очень очень надо будет то переделаю.

[пчело]

сделай пожалуста...просто я хочу научиться тоже...вот и посмотрю что да как надобыло делать )))

[Val111]

Цитата: Сообщение от пчело сделай пожалуста если сможешь активацию и деактивацию на эмоцию"отжаться" !!! очень нужно или объясни как это сделать)

вот скрипт там комент на эмоцию отжатся.

var
PlayerId: string;

begin

   if FromClient and (pck[1]=#$45)  then // иден на сервер такого типа 45 01 57 E2 FE XX XX XX XX 00 D0 D7 0B 4B 6E 

   begin                                    
   PlayerId:=(pck[6]+pck[7]+pck[8]+pck[9]); // где в коменте выше 6,7,8,9 ид перса, там где ид я поставил XX
   end;
  if FromClient and (pck[1]+pck[6]+pck[7]=#$C2+#$15+#$50)  then //проверяет эмоцию C2 00 57 61 FF 15 50 00 00 00 00 00 отжатся, проверка идет по 3м байтам 

  begin
         buf:=hstr('45 00 54 E2 FF')+PlayerId+hstr('23 01 00')+hstr('00 00 40 41'); //здесь идет составление пакета где 00 00 40 41 скорость 12,0
     sendtoclient;
     pck:='';
    end; 
    
      if FromClient and (pck[1]+pck[6]=#$C2+#$01)  then  // проверяте если прыгнул то тоже скорость 12,5
  begin
         buf:=hstr('45 00 54 E2 FF')+PlayerId+hstr('23 01 00')+hstr('00 00 40 41'); 
     sendtoclient;
     pck:='';
    end;
        
end.

[mihai]

автор или ктото другой пожалуйста исправьте скрипт а то когда активирую и после что то что я делаю то скорость атаки в статусе показывается зеленым и когда атакую то не показывает анимацию , и чтобы нормализовать надо выключить скрипт и сделать релог. Пожалуйста исправьте а то очень палёна и неудобно если ты в экстренной ситуации !

[Val111]

Цитата: Сообщение от mihai автор или ктото другой пожалуйста исправьте скрипт а то когда активирую и после что то что я делаю то скорость атаки в статусе показывается зеленым и когда атакую то не показывает анимацию , и чтобы нормализовать надо выключить скрипт и сделать релог. Пожалуйста исправьте а то очень палёна и неудобно если ты в экстренной ситуации !

попробуй так

 var
PlayerId: string;

begin

   if FromClient and (pck[1]+pck[2]=#$45+#$01)  then // иден на сервер такого типа 45 01 57 E2 FE XX XX XX XX 00 D0 D7 0B 4B 6E 

   begin                                    
   PlayerId:=(pck[6]+pck[7]+pck[8]+pck[9]); // где в коменте выше 6,7,8,9 ид перса, там где ид я поставил XX
   end;
  if FromClient and (pck[1]+pck[6]=#$C2+#$1A)  then //Ю на клаве .проверяет эмоцию C2 00 57 61 FF 1A от други отличается 6м байтом
  begin
         buf:=hstr('45 00 54 E2 FF')+PlayerId+hstr('23 01 00')+hstr('00 00 40 41')+hstr('98 08 98 08') ; //здесь идет составление пакета где 00 00 40 41 скорость 12,0
     sendtoclient;
     pck:='';
    end;  
    if FromClient and (pck[1]+pck[2]+pck[3]+pck[4]+pck[5]+pck[6]=#$C2+ #$00+ #$57+ #$61+ #$FF +#$01)  then //прыжок C2 00 57 61 FF 01
  begin
         buf:=hstr('45 00 54 E2 FF')+PlayerId+hstr('23 01 00')+hstr('00 00 40 41')+hstr('98 08 98 08') ; //здесь идет составление пакета где 00 00 40 41 скорость 12,0
     sendtoclient;
      pck:='';
    end; 
end.

[svjv]

Цитата: Сообщение от aion programmer NEWAion-Не робит скрипт по причине того что там установлен 2.5. с обновлением на 2.7.версию. Если поменять пакеты должен работать=))

Странно, у меня как раз этот скрипт на newaion робит, а на остольных нет(

[neon0256ap]

Айон прайм х5 пашет но через 1 мин вылет с игры

[Noobpro]

Teraion скрипт непашет

[priest.nrts]

на нью робит но ппц криво!жмешь прыг-скрипт врубается и отключаются камни печати,никак не врубить камни печати, и то отключается то врубается спидхак при юзанье каких либо скилов 0_ o.Сделай его стабильным как в 2.5

[Val111]

Вот Скрип 100 % рабочий на Aion 2.7 Скопипащен отсюда http://www.zhyk.ru/forum/showthread.php?t=364857
и немного переделан под себя. Активируется кнопкой Ю. Работает как на бег так и на полет.

var
PlayerID, SpeedID, SpeedFlyID: integer;
SX: boolean; 
msgName: string;
//------------процедура мессаги--------------------- 
procedure PHX_Message(msg1:string);
begin
         buf:=HStr('16 00 54 D5 FF 22 00 01 00 00 00 00 00 ');
         msgName:='Attack';
         WriteS(msg1);
         SendToClient;
end;
procedure Init;
  begin
    SpeedID := $41400000;      // бег скорость 12,0
    SpeedFlyID := $41900000;   // полет скорость 18,0
    SX := False; 
  end;

begin

  if FromClient then  
    case pck[1] of
    
    #$45:  // ID перса типа 45 01 57 E2 FE XX XX XX XX 00 00 00 00 00 00
      begin   
        PlayerId := readD(6);
      end;
                                                  
    #$C2:  // проверяет эмоцию ходьба/бег (вкл/выкл)
      begin   
        if pck[6]=#$1A  then
          begin
           // pck:='';
            if not SX then 
            begin
             SX := True;
           buf:=pck;
	             WriteC($1B, 6); 
	                 SendToServer;
             PHX_Message('Режим ТУРБО вкл.'); 
             pck:='';
             end
              else 
              begin
               SX := False;
                 buf:=pck;
	                 WriteC($1B, 6); 
	                     SendToServer;
               PHX_Message('Режим TУРБО откл.'); 
                pck:='';
               end
           end;
       
      end;    
    end;
    
  if SX and FromServer then  
    case pck[1] of

    #$45:
      begin
        if readD(6) = PlayerId then
        begin
          Buf := pck;
          if (readC(11) = 3) or (readC(11) = 35) then WriteD(SpeedFlyID,13) else WriteD(SpeedID,13);
          SendToClient;
          pck:='';
        end;   
      end; 
    end;
end.

[celsi]

Цитата: Сообщение от Val111 Вот Скрип 100 % рабочий на Aion 2.7 Скопипащен отсюда http://www.zhyk.ru/forum/showthread.php?t=364857 и немного переделан под себя. Активируется кнопкой Ю. Работает как на бег так и на полет. var PlayerID, SpeedID, SpeedFlyID: integer; SX: boolean; msgName: string; //------------процедура мессаги--------------------- procedure PHX_Message(msg1:string); begin buf:=HStr('16 00 54 D5 FF 22 00 01 00 00 00 00 00 '); msgName:='Attack'; WriteS(msg1); SendToClient; end; procedure Init; begin SpeedID := $41400000; // бег скорость 12,0 SpeedFlyID := $41900000; // полет скорость 18,0 SX := False; end; begin if FromClient then case pck[1] of #$45: // ID перса типа 45 01 57 E2 FE XX XX XX XX 00 00 00 00 00 00 begin PlayerId := readD(6); end; #$C2: // проверяет эмоцию ходьба/бег (вкл/выкл) begin if pck[6]=#$1A then begin // pck:=''; if not SX then begin SX := True; buf:=pck; WriteC($1B, 6); SendToServer; PHX_Message('Режим ТУРБО вкл.'); pck:=''; end else begin SX := False; buf:=pck; WriteC($1B, 6); SendToServer; PHX_Message('Режим TУРБО откл.'); pck:=''; end end; end; end; if SX and FromServer then case pck[1] of #$45: begin if readD(6) = PlayerId then begin Buf := pck; if (readC(11) = 3) or (readC(11) = 35) then WriteD(SpeedFlyID,13) else WriteD(SpeedID,13); SendToClient; pck:=''; end; end; end; end.

А как зделать скорость бег 11,0 ? 12,0 как то палева ))