[Скрипт] Немного антиинвиз

[rtghf]

var
name:string;
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
procedure Init;
begin
TimerStep:=1; //Шаг
Timer:=TTimer.Create(nil); //выделяем память
Timer.OnTimer:=@OnTimer; //привязываем процедуру к событию
Timer.enabled:=false; //начальное положение выключен(false)
Timer.interval:=10; //интервал(в миллисекундах) как часто таймер срабатывает
end;


procedure Free;
begin
Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
Timer.interval:=1000;
buf:=HStr('31 00 44 CE FF 00 00 00 00 00 00 00 00 00 00 00 00 E7 68 01 00 A0 86 01 00 A0 86 01 00 00 01 00 00 00 26 01 04 00 01 00 00 00 00 00 00 00 00 00 22 18 04 3D 04 32 04 38 04 37 04 35 04 40 04 3D 00 29 00 00 00 FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 90 40 D8 44 F6 0A D1 44 29 70 7C 43 00 02 00 00 3C 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
writed(TargetID,18);
SendtoClientEx(name);
Inc(TimerStep);
end;

2:

begin


buf:=HStr('38 00 44 C7 FF E7 68 01 00 00 00 00 00 00 00 00 00 00 00');
writed(TargetID,6);
SendtoClientEx(name);

Timer.enabled:=false; //выключаем таймер
Inc(TimerStep);
TimerStep:=1;
end;

end;
end;
begin
if FromServer and (ReadC(1)=$D5) and (ReadC(10)=$02) then
begin
name:=ConnectName;
TargetID:= ReadD(6);

Timer.enabled:=true;
end;

end.


скрипт на антиинвиз. Если враг изает инвиз в радиусе 100м от вас, автоматически он берется в таргет(не палится) и меняется его имя на Инвизер=)
З.Ы. Если сины юзают инвиз во время использования скрипта то они проваливаются в текстуры.

[mars2107]

Для какой версии клиента?

[rtghf]

3.+

[ВОЛОДЬ]

f2p не робит

[Hesp]

Можно детально разжевать, какие пакеты и когда ловятся? Потому что на f2p в основном все нужно перелавливать под себя.

[ВОЛОДЬ]

Цитата: Сообщение от Hesp Можно детально разжевать, какие пакеты и когда ловятся? Потому что на f2p в основном все нужно перелавливать под себя.

кто то на форуме писал мол у него был супер антиинвиз.Неплохо было бы словить пакет семечки,она же палит все инвизы?

[rtghf]

Цитата: Сообщение от ВОЛОДЬ кто то на форуме писал мол у него был супер антиинвиз.Неплохо было бы словить пакет семечки,она же палит все инвизы?

ток луков

[Fokus_Nik]

Есть вопрос что делать если скрипт не хочет пахать ??? Играю на aion-free 3.9 . Скрипт врубил через L2ph , друг зашел сином , кинул пвп , зашел в инвиз но, дальше ничего пе происходило и я удачно слился . Если не сложно объясните в чем может быть проблема ?

[pahawdowin1366]

Цитата: Сообщение от Fokus_Nik Есть вопрос что делать если скрипт не хочет пахать ??? Играю на aion-free 3.9 . Скрипт врубил через L2ph , друг зашел сином , кинул пвп , зашел в инвиз но, дальше ничего пе происходило и я удачно слился . Если не сложно объясните в чем может быть проблема ?

На free 3.9 нет пакетника который бы расшифровывал пакеты, + там стоит AA обхода которого нет.

[Fokus_Nik]

Цитата: Сообщение от pahawdowin1366 На free 3.9 нет пакетника который бы расшифровывал пакеты, + там стоит AA обхода которого нет.

Жаль ну спс за помощь (