Всем здрасте!
Выложу скрипт на спидхак и аниинвиз,
Код:
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.
Активации антиинвиза не требуется, он работает сразу же после входа со скриптом, а для активации спидхака идёт бинд на кнопку "ю" + 3 варианта спид хака:
1. 12.0- normal speed (прописать в чате ".spd1")
2. 24.0- fast speed (прописать в чате ".spd2")
3. 96.0- fast speed (прописать в чате ".spd3")
Незабываем ставить спасибки
Последний раз редактировалось flash02142010; 07.07.2011 в 09:38.
Спасибо за скрипт, а теперь маленький вопрос не по теме, как научиться писать их, что это за система и где найти что-то вроде самоучителя?) Паскаль осилил, думаю и это потяну")
на сайте разработчика программы [Ссылки могут видеть только зарегистрированные пользователи. ] есть мануалы
Добавлено через 3 минуты
Спидхак работает немного странновато) Иногда включается после прыжка, иногда не работает какое-то время. но после нажатия на > все нормально становится. Анвиз не работает(?)
Последний раз редактировалось itisgrid; 17.05.2011 в 18:04.
Причина: Добавлено сообщение
С этим не пробовал, но, по сути, проблема та же будет ибо скрипт берет константовые значения (6.0) и от них начинает высчитывать. Попробуй сначало включить СХ, а потом уже одеть боты
________________
何もしなければ、何も変われない("если ничего не делать - ничего не изменится".)
Цитата:
Сообщение от Inako Посмотреть сообщение
Есть небольшая недоработка... Если у вас стоит титул который дает прибавку к скорости бега то СХ никак не запуститься пока скорость н станет 6.0
А если например у меня боты дают +22% к скорости движ?
Ошибаетесь, у меня титул со скоростью+ боты на движок и всё пашет!
Добавлено через 2 минуты
Цитата:
Сообщение от itisgrid
единственное только напрягает то что обратно скорость убирается релогом только
просто сядь хп пополнить, встань и скорость нормальной становится.
Последний раз редактировалось flash02142010; 17.05.2011 в 20:05.
Причина: Добавлено сообщение
Может и в правду ошибаюсь... Когда я вкл СХ то ничего не произошло, а как только отключил титул и снова юзнул СХ то сработало. Может глюк, хз. Что-бы сбить скорость можно прост отключить СХ и прыгнуть=) Как писалось ранее, помогает
________________
何もしなければ、何も変われない("если ничего не делать - ничего не изменится".)
Вопрос немного не по теме, но всеже: как реализовать посылку необходимого пакета при нажатии нужной клавиши? Другими словами, напишите пожайлусто ту часть кода, которая делает забиндивание на клавишу посылки пакета.
Регистрация: 06.04.2011
Сообщений: 71
Популярность: 173
Сказал(а) спасибо: 19
СпидХак+Антиинвиз
единственное только напрягает то что обратно скорость убирается релогом только
