[Скрипт] СпидХак+....(обрезано)

[flash02142010]

Тема основана на теме СпидХак+Антиинвиз,
Только в ней все забили коментами про обрез антиинвиза, и вот я неполенился и обрезал(вроде протестил норм, но если вдруг будут встречаться ошибки, то пишите их ниже).
Сам же скрипт вот:

var

SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;

DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;

CharID:array[1..4] of integer;
TargetID:integer;

{
$413F851F - 12.0(9.0+3.0)
$40C00000 - 6.0
$3FC00000 - 1.5
$40EA3D71 - 7.3 (6.0+1.3) ($2A3D71)

}

procedure Init; //Вызывается при включении скрипта
begin
SpeedTable1[1]:=$413F851F;
SpeedTable1[2]:=$41C00000;
SpeedTable1[3]:=$42C00000;
SpeedTable1[4]:=$42C00000;

cSpeed:=SpeedTable1[1];


rSpeed:=11.7;
vx1:=rSpeed;
//cSpeed:=vx1;

//sendmsg(Format('%x',[WriteSi(11.7)]));

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

var
msgName:string;

procedure PHX_Message(msg1:string);

begin
         buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
         msgName:='[PHX]';
         WriteS(msgName);
         WriteS(msg1);
         SendToClient;
end;


procedure Resurect;
begin
   pck:='';
   buf:=HStr('6B 57 08 03  ');
   SendToServer;
end;


procedure SetSpeed1;
begin
   pck:='';
   PHX_Message('Use Speed 1');
   cSpeed:=SpeedTable1[1];
end;

procedure SetSpeed2;
begin
   pck:='';
   PHX_Message('Use Speed 2');
   cSpeed:=SpeedTable1[2];
end;

procedure SetSpeed3;
begin
   pck:='';
   PHX_Message('Use Speed 3');
   cSpeed:=SpeedTable1[3];
end;

procedure InitDange(d1:integer);
begin
   DangePacket[d1]:='';
   pck:='';
   PHX_Message(Format('Обнулил Данж %d',[d1]));
end;


procedure TP_To_Dange(d1:integer);
begin
   buf:=DangePacket[d1];
   pck:='';
   SendToServer;
   PHX_Message(Format('Телепорт в Данж %d',[d1]));
end;



procedure OpenAuk1;
begin
   pck:='';
   buf:=HStr('9C 57 5B 00 00 00 00 0D 00 01 00 0A 00 00 00 00 00 00 00 ');
   WriteD(TargetID,4);
   SendToServer;

end;

procedure OpenWrh1;
begin
   pck:='';
   buf:=HStr('9C 57 5B 00 00 00 00 14 00 01 00 0A 00 00 00 00 00 00 00 ');
   WriteD(TargetID,4);
   SendToServer;

end;

procedure TestTP1;
begin
   pck:='';
   buf:=HStr('9E 57 5D B3 D2 C0 44 1D 1A C2 44 06 0F 98 43 0C 00 ');
   SendToServer;
   buf:=HStr('67 57 04 ');
   SendToServer;

end;

procedure StealLoot;
var
i:integer;
begin
   pck:='';
   
    for i:=1 to 30 do
      begin
           buf:=Hstr('39 57 F6 ');
           writeD(TargetID);
           writeC(i);
           SendToServer;
      end;



end;




var
x1,y1,z1:integer;
speed_triger1:boolean;
sp1:single;



procedure TpToSave1;
begin
        pck:='';
        buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
        WriteD(X1,4);
        WriteD(Y1,8);
        WriteD(Z1,12);
        SendToServer;
        buf:=HStr('67 57 04 ');
        SendToServer;


end;



begin

//         buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 41 ');
//         buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 42 ');
//         SendToClient;

   if FromServer and (ReadC(1)=$42) and (speed_triger1) then 
   begin
         buf:=pck;
//         sp1:=(readd(11));
//         PHX_Message(FloatToStr(sp1));
         pck:='';
         WriteD(cSpeed,11);
         SendToClient;
       
   end;

   if FromClient and (ReadD(1)=$1A6657C9) then 
   begin
         speed_triger1:=not speed_triger1;
         pck:='';
         buf:=HStr('AC 57 4B 79 63 01 00 58 02 00 00 07 00 00 00 ');
         SendToServer;
         if speed_triger1 then PHX_Message('Set Fast Speed') else PHX_Message('Set Normal Speed');
         
   end;


  



if FromClient and (ReadC(1)=$66) then
    CharID[1]:=ReadD(4);


if FromClient and (ReadC(1)=$B5) then TargetID:=ReadD(4);


 if FromClient and (ReadC(1)=$B9) then  
 begin
       if (ReadS(5)='.') then Resurect;
       if (ReadS(5)='.spd1') then SetSpeed1;
       if (ReadS(5)='.spd2') then SetSpeed2; 
       if (ReadS(5)='.spd3') then SetSpeed3;

       if (ReadS(5)='.initD1') then InitDange(1);
       if (ReadS(5)='.initD2') then InitDange(2);

       if (ReadS(5)='.tptoD1') then TP_To_Dange(1);
       if (ReadS(5)='.tptoD2') then TP_To_Dange(2);
       if (ReadS(5)='.openAuk') then OpenAuk1;
       if (ReadS(5)='.openWrh') then OpenWrh1;
       if (ReadS(5)='.tpToP1') then TestTP1;
       if (ReadS(5)='.steal') then StealLoot;
       if (ReadS(5)='.tpToSave1') then TpToSave1;
              
          
 end;



   
end.

Что бы скрипт не называли без полезным неактуальным и т.д. выложу просьбы прямо сюда:

Цитата: Сообщение от Сашаа19 Народ кто может обрезать антиинвиз сделайте это плиз и выложите просто обрезанный спидхак плиз

Цитата: Сообщение от LyK_BeZ_LyKa А можете обьяснить какую часть скрипта удалить чтоб было толька СХ без антиинвиза было )) плз)) ато на меня уже от 3 синов жалобы идут, рефлекторно ТАБ нажимаю а они потом ноют как я на них агр взял, еле отмазался))) плз если нетрудно

Цитата: Сообщение от Сашаа19 та ты не парься у меня уже 3 перса из за него в бане...у тебя еще всё впереди-Dче не кто вырезать антиинвиз не может??(((

Цитата: Сообщение от Сашаа19 мне нужен именно этот спидхак с тем который указал на ссылке мин через 20 меня тупо кидает с серва!на других проверял норм робит,видно индивидуальность серва.а с этим спидхаком всё норм робит но с антиинвизом пальсб жесть.киньте именно этот но обрезанный))

Цитата: Сообщение от Prood1 Да очень антиинвиз мешает скрипт удобный а антиинвизы ети только портят все...

P.S. За проделанную работу неоткажусь от спасибки)

[222576]

а есть скрипт на спидхак или на антихайд для aion 2.5 ?

[flash02142010]

Цитата: Сообщение от 222576 а есть скрипт на спидхак или на антихайд для aion 2.5 ?

спидхак и антихайд :http://zhyk.ru/forum/showthread.php?t=202685
А просто спид хак подойдёт и этот, 2.1 от 2.5 несильно отличаются поэтому скрипты 2.1 пашут на 2.5

[Fuckbitch]

Цитата: Сообщение от 222576 а есть скрипт на спидхак или на антихайд для aion 2.5 ?

В 2.5 пакеты не поменялись пашут пакеты с 2.1 а анти-инвиз зря обрезали он очень от гм в инвизе помогает)

[flash02142010]

Цитата: Сообщение от Fuckbitch В 2.5 пакеты не поменялись пашут пакеты с 2.1 а анти-инвиз зря обрезали он очень от гм в инвизе помогает)

Почемц зря? Просили меня и я сделал, а тем кому надо антиинвиз пусть смотрят мою предыдущую темку(её то я неудолял).

[Сашаа19]

С антиинвизом вы ГМ не спалите,а вот он вас с ним спалит!ГМ хорошо палится с радаром проверял))

[Prood1]

Спасибо за сх обрезаный пойду тестить будет 10 постов поставлю спасибку.)

Добавлено через 13 минут
когда пишешь /где имя нпс не запоминает координаты ну и когда пишешь .tpToSave1 сразу ресаешся у кибилиска.

[flash02142010]

Цитата: Сообщение от Prood1 Спасибо за сх обрезаный пойду тестить будет 10 постов поставлю спасибку.) Добавлено через 13 минут когда пишешь /где имя нпс не запоминает координаты ну и когда пишешь .tpToSave1 сразу ресаешся у кибилиска.

Дело в том, что скрипт соеденил в себе сх откаты данжа и антиинвиз вместе и обрезать чисто антиинвиз неполучится, но могу удалить и всё про данж, если те это надо.
П.С. А где обещанная спасибка?)

[fakamakas]

Цитата: Сообщение от flash02142010 Дело в том, что скрипт соеденил в себе сх откаты данжа и антиинвиз вместе и обрезать чисто антиинвиз неполучится, но могу удалить и всё про данж, если те это надо. П.С. А где обещанная спасибка?)

А что за откаты данжа?

[Prood1]

Да я тоже не оч понял что за откаты ток что мона тпшится в данж на растоянии. Главное что антихайда нету уже) спасибку поставил)
и что делает команда .tpToP1??

[flash02142010]

Цитата: Сообщение от Prood1 Да я тоже не оч понял что за откаты ток что мона тпшится в данж на растоянии. Главное что антихайда нету уже) спасибку поставил) и что делает команда .tpToP1??

Это для скрипта с антихайдом, тока с этим недоконца пашет, но с тем объясняю:
Скрипт сохраняет две точки входа в данж при выборе в игре двери в данж или устройства телепорта в данж.
Если набрать команду .tptoD1 то должно телепортнуть согласно точке 1.
Команда .initD1 обнуляет точку 1 для того что бы в нее можно было запомнить другую точку телепорта.
Эти функции были добавлены в скрипт дабы упростить перемещение между локациями. Например можна сохранить телепорт с тунеля силентера в ингисон или келькмарос для того чтобы при смерти сразу с кибелиска попасть на вражескую територию.

Еще например перед входом на рудру стоит печатник для того чтобы его не убивать достаточно сбросить одну из точек выделить в игре телепорт на рудру и использывать сохраненную точку. Кстати команда .tpToSave1 телепортирует в зал с печатником если персонаж находится в храме пхасумандир.

[superkote]

Спасибо очень помогло)

Добавлено через 13 минут
Сорь за нубоство, но как кроме 12.0 другую скорость поставить???

[flash02142010]

Цитата: Сообщение от superkote Спасибо очень помогло) Добавлено через 13 минут Сорь за нубоство, но как кроме 12.0 другую скорость поставить???

Пишешь в чате .spd2 для 24.0 и .spd3 для 96.0

[N1kas_Kh]

Цитата: Сообщение от 222576 а есть скрипт на спидхак или на антихайд для aion 2.5 ?

на большенстве где был они оба спокойно работают

[DeathGod007]

Как вообще пользоваться?)