 |
Переделка скрипта СпидХаК для 2.5 в 2.7. - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
01.02.2012, 08:35
|
#1
|
|
|
|
|
|
 Разведчик |
 Регистрация: 28.05.2009
 Сообщений: 4
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Переделка скрипта СпидХаК для 2.5 в 2.7.
Очень удобный скрипт спидхака но проблема что он для серверов 2.1-2.5. Может кто переделать для 2.7 версиии
PHP код:
var
SpeedhackTimer:TTimer;
Speed:string;
StartSpeed:string;
PlayerID:integer;
procedure Init;
begin
SpeedhackTimer := TTimer.Create(nil);
SpeedhackTimer.OnTimer := @SpeedHackEvent;
SpeedhackTimer.Enabled := false;
SpeedhackTimer.Interval := 50;
Speed := '00 00 00 42';
StartSpeed := '00 00 C0 40';
PlayerID := $00022792; //id персонажа
end;
procedure Free;
begin
SpeedhackTimer.Free;
end;
procedure SpeedHackEvent(Sender: TObject);
begin
buf := HStr('42 65 D4');
WriteD(PlayerID);
buf := buf + HStr('23 01 00');
buf := buf + HStr(Speed);
WriteD(PlayerID);
SendToClientEx(ConnectName);
end;
begin
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$0C15) then // эмоция включ.
begin
if SpeedhackTimer.Enabled = true then
begin
SpeedhackTimer.Enabled := false;
buf := HStr('17 54 D4 19 00 00 00 00 00 00 00');
WriteS('SpeedHack ВЫКЛЮЧЕН!');
buf := buf + HStr('00 00');
SendToClient;
buf := HStr('42 65 D4');
WriteD(PlayerID);
buf := buf + HStr('23 01 00');
buf := buf + HStr(StartSpeed);
WriteD(PlayerID);
SendToClientEx(ConnectName);
end
else
begin
SpeedhackTimer.Enabled := true;
buf := HStr('17 54 D4 19 00 00 00 00 00 00 00');
WriteS('SpeedHack ВКЛЮЧЕН!');
buf := buf + HStr('00 00');
SendToClient;
end;
pck := '';
end;
if FromServer and (ReadC(1)=$42) and (ReadC(8)=$23) and (ReadD(4)=PlayerID) then
begin
pck := '';
end;
end
|
|
|
|
|
01.02.2012, 11:29
|
#2
|
|
|
|
|
|
 Сержант |
Регистрация: 23.02.2011
Сообщений: 133
Популярность: 140
Сказал(а) спасибо: 12
Поблагодарили 66 раз(а) в 32 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
________________
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
|
|
|
|
|
01.02.2012, 12:22
|
#3
|
|
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
 |
Цитата: |
 |
|
|
|
|
|
Это два разных скрипта.
Насколько я помню скрипт из первого поста имел весомое преимущество.Скорость не сбрасывалась при прыжке.
|
|
|
|
|
01.02.2012, 15:29
|
#4
|
|
|
|
|
|
 Пехотинец |
Регистрация: 08.08.2011
Сообщений: 89
Популярность: -343
Сказал(а) спасибо: 12
Поблагодарили 55 раз(а) в 22 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
Это два разных скрипта.
Насколько я помню скрипт из первого поста имел весомое преимущество.Скорость не сбрасывалась при прыжке.
|
|
 |
|
 |
|
Совершенно точно, и там, по моему, куча ненужной чепухи добавлена
________________
Everything should be made as simple as possible, but not simpler.
|
|
|
|
|
01.02.2012, 16:31
|
#5
|
|
|
|
|
|
Сержант
|
Регистрация: 11.11.2010
Сообщений: 129
Популярность: 731
Сказал(а) спасибо: 20
Поблагодарили 78 раз(а) в 40 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
эх если бы кто нибудь запилил под2,7 эти скрипты я его закакал
бы спасибками
это первый
http://zhyk.ru/forum/showthread.php?t=321528
Код:
begin
If FromClient and (pck=Hstr('C9 57 66 15 01 00 00 00 00 00')) // эмоция Смех
then
begin
buf:=HStr('D1 57 6E 64 06 01');
SendToServer;
pck:='';
buf:=HStr('D1 57 6E 95 06 01');
SendToServer;
pck:='';
end;
end.
и второй=)
http://zhyk.ru/forum/showthread.php?t=202685
Код:
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 FromServer and (ReadC(1)=$56) then
begin
x1:=ReadD(16);
y1:=ReadD(20);
z1:=ReadD(24);
//sendMSG(Format('sdfsdfsd %d',[x1]));
buf:=HStr('17 54 D4 08 00 00 00 00 00 5B 00 50 00 48 00 58 00 5D 00 00 00 ');
WriteS(Format('Save Coordinates [%d, %d, %d]',[x1,y1,z1]));
SendToClient;
end;
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=533) then
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;
//Видеть инвиз 2
if FromServer and (ReadC(1)=$63) then
begin
buf:=pck;
pck:='';
WriteC(2,9);
SendToClient;
end;
if FromClient and (ReadC(1)=$9A{Use Target}) then
begin
if DangePacket[1]='' then
begin
DangePacket[1]:=pck;
PHX_Message(Format('Set Dange 1 %x',[ReadD(4)]));
end;
if DangePacket[2]='' then
begin
DangePacket[2]:=pck;
PHX_Message(Format('Set Dange 2 %x',[ReadD(4)]));
end;
end;
if FromClient and (ReadC(1)=$B5{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('Set Dange 1 %x',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('Set Dange 2 %x',[TargetID]));
end;
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.
|
|
|
|
|
01.02.2012, 17:09
|
#6
|
|
|
|
|
|
Разведчик
|
Регистрация: 28.12.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
пилить указанное ... хм, нет времени
Предложу свой вариант скрипта для v2.7, без излишеств. Не копипаст.
Вкл/выкл "скоростного режима" бега и полета через "." + прыжок
т.е. "." активация/деактивация. Прыжок чтоб режим включился на клиенте.
Если "скоростной режим" сбросился при ТП или входе в данж или еще как - сделайте прыжок, например.
Замечу, что всякие скилы противника на замедление перса тоже не действуют. Так что будьте внимательны, не палитесь.
Вопросы по скрипту прошу не задавать, т.к. редко на форуме появляюсь.
Пояснения по значению скорости в коментах скрипта.
Скрипт 100% рабочий на версии 2.7
Код:
var
PlayerID, SpeedID, SpeedFlyID: integer;
SX: boolean;
procedure Init;
begin
SpeedID := 1093140480; // бег скорость 10.5
SpeedFlyID := 1098907648; // полет скорость 16
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 SX := True else SX := False;
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.
Последний раз редактировалось vlad_as; 01.02.2012 в 17:13.
|
|
|
|
|
01.02.2012, 18:57
|
#7
|
|
|
|
|
|
Разведчик
|
Регистрация: 28.05.2009
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
пилить указанное ... хм, нет времени
Предложу свой вариант скрипта для v2.7, без излишеств. Не копипаст.
Вкл/выкл "скоростного режима" бега и полета через "." + прыжок
т.е. "." активация/деактивация. Прыжок чтоб режим включился на клиенте.
Если "скоростной режим" сбросился при ТП или входе в данж или еще как - сделайте прыжок, например.
Замечу, что всякие скилы противника на замедление перса тоже не действуют. Так что будьте внимательны, не палитесь.
Вопросы по скрипту прошу не задавать, т.к. редко на форуме появляюсь.
Пояснения по значению скорости в коментах скрипта.
Скрипт 100% рабочий на версии 2.7
Код:
var
PlayerID, SpeedID, SpeedFlyID: integer;
SX: boolean;
procedure Init;
begin
SpeedID := 1093140480; // бег скорость 10.5
SpeedFlyID := 1098907648; // полет скорость 16
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 SX := True else SX := False;
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.
|
|
|
|
|
|
|
как изменить скорость с 10.5 на более высокую?
Добавлено через 21 минуту
разобрался. спасиб автору жмем.
Последний раз редактировалось 2256402; 01.02.2012 в 19:18.
Причина: Добавлено сообщение
|
|
|
|
|
01.02.2012, 19:38
|
#8
|
|
|
|
|
|
Разведчик
|
Регистрация: 28.12.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
ага, предустановленные значения в скрипте:
SpeedID := 1093140480; // бег скорость 10.5
поскольку ph2 немного с багами, пришлось использовать определенный тип переменных.
Как получить нужное значение SpeedID. Использовать преобразование:
меню ph2 "дополнительно/преобразования"
1. в левой части указываем нужную скорость + стрелку преобразование вправо. (тип преобразования Single)
2. меняем тип преобразования на DWord + стрелку преобразования влево
слева получаем нужное значение SpeedID или SpeedFlyID.
|
|
|
|
|
08.02.2012, 12:19
|
#9
|
|
|
|
|
|
Разведчик
|
Регистрация: 29.03.2011
Сообщений: 15
Популярность: 20
Сказал(а) спасибо: 15
Поблагодарили 5 раз(а) в 4 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
Последний раз редактировалось D*j*o***; 08.02.2012 в 12:26.
|
|
|
|
|
08.02.2012, 17:36
|
#10
|
|
|
|
|
|
Разведчик
|
Регистрация: 28.12.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
|
|
|
|
|
07.03.2012, 16:59
|
#11
|
|
|
|
|
|
Разведчик
|
Регистрация: 09.02.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
пилить указанное ... хм, нет времени
Предложу свой вариант скрипта для v2.7, без излишеств. Не копипаст.
Вкл/выкл "скоростного режима" бега и полета через "." + прыжок
т.е. "." активация/деактивация. Прыжок чтоб режим включился на клиенте.
Если "скоростной режим" сбросился при ТП или входе в данж или еще как - сделайте прыжок, например.
Замечу, что всякие скилы противника на замедление перса тоже не действуют. Так что будьте внимательны, не палитесь.
Вопросы по скрипту прошу не задавать, т.к. редко на форуме появляюсь.
Пояснения по значению скорости в коментах скрипта.
Скрипт 100% рабочий на версии 2.7
Код:
var
PlayerID, SpeedID, SpeedFlyID: integer;
SX: boolean;
procedure Init;
begin
SpeedID := 1093140480; // бег скорость 10.5
SpeedFlyID := 1098907648; // полет скорость 16
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 SX := True else SX := False;
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.
|
|
|
|
|
|
|
А можно отсуда убрать спид хак на скорость полёта ???
Если кто может плиз уберити и скинет суда
|
|
|
|
|
08.03.2012, 16:27
|
#12
|
|
|
|
|
|
Разведчик
|
Регистрация: 28.12.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
|
А можно отсуда убрать спид хак на скорость полёта ???
Если кто может плиз уберити и скинет суда
|
|
|
|
|
|
|
строку:
if (readC(11) = 3) or (readC(11) = 35) then WriteD(SpeedFlyID,13) else WriteD(SpeedID,13);
заменить на строчку:
if (readC(11) <> 3) and (readC(11) <> 35) then WriteD(SpeedID,13);
|
|
|
|
|
08.03.2012, 16:58
|
#13
|
|
|
|
|
|
Разведчик
|
Регистрация: 23.02.2012
Сообщений: 9
Популярность: 10
Сказал(а) спасибо: 23
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Переделка скрипта СпидХаК для 2.5 в 2.7.
Чем эта тема отличается от 100 других? поиск рулит!
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 20:52.
|
|
