Скрипты.

[510145]

Доброго времени суток уважаемые форумчане.
У меня возникла потребность в скриптах, а то есть мне нужно два вида скриптов.
Они очень простые.
1 вид - это скрипт который включается с момента когда я поставил галочку, в скриптах пакетхака. Сам скрипт был как бы таймером отправки пакетов, а именно - я вставляю в скрипт определенный пакет
допустим F3 00 6D 0C FF ED 78 C6 83 00 , а так же ввожу определенное время отправки пакетов, допустим 600мсек.
2 вид - это скрипт активатор который также включается с момента нажатия галочки. Сама суть в том ,что как только приходит определенный оранжевый пакет (который так же внесен в скрипт) , скрипт это замечал и автоматически отправлял другой пакет (который я изначально вставил ) спустя определенное время(которое я тоже изначально ввел)
Прошу в теме не флудить.
Тем кто мне поможет мое глубочайшее уважение и конечно же Спасибка
Спасибо за внимание

[altairalentus]

Вот сделал

Первый сразу после активации начинает слать пакет с задержкой 600 мсек
var
timer: ttimer;

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=600; //задержка в мсек
Timer.enabled:=true;
end;

procedure Free;
begin
Timer.enabled:=false;
timer.free;
end;

procedure TimerOn;
begin
buf:=hstr('C2 00 57 61 FF 05'); //твой пакет
SendToServer;
end;

begin

end.

Второй: при проходе определенного пакете однократно отправляется указаний пакет

var
timer: ttimer;

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=600; //задержка в мсек
Timer.enabled:=false;
end;

procedure Free;
begin
Timer.enabled:=false;
timer.free;
end;

procedure TimerOn;
begin
buf:=hstr('C2 00 57 61 FF 05'); //твой пакет
SendToServer;
Timer.enabled:=false;
end;

begin
if FromServer and (pck=hstr('C2 00 57 61 FF 05')) then timer.enabled:=true;

end.

[510145]

При много благодарен тебе за помощь, Почет и уважение!
Ток 2 скрипт чуток над по другому
допустим пришел один пакет скрипт это увидел и отправил другой пакет
пример:
1)указал в скрипте (пакет AA AA AA AA AA AA)
2)AA AA AA AA AA AA пришел
3)скрипт его увидел (еще можно сделать что любой мне нужный пакетик вставлять)
и отправил другой мой пакет который я укажу в скрипте (допустим указал 00 00 00 00 00 00)
4) прошлпа нужная мне задержка
5)00 00 00 00 00 00 00 (пакет отправился)

[altairalentus]

Скрипт так и работает то может в описании немного не правильно написал
вот здесь
if FromServer and (pck=hstr('C2 00 57 61 FF 05')

C2 00 57 61 FF 05 меняешь на свой пакет активации.

Timer.interval:=600;
вот задержка в мсек

[510145]

Скрипт так и работает то может в описании немного не правильно написал
вот здесь


C2 00 57 61 FF 05 меняешь на свой пакет активации.


вот задержка в мсек
давай обясню по другому, дожно выглядеть так, допустим я юзнал скилл

Молния IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
а его пакет оказался ативатором
после с задержкой в N-ое к-во мсек должен отправится другой пакет(который я изначально забью в скрипт)
пример пакета - это допустим Электрический разряд III ([Ссылки могут видеть только зарегистрированные и активированные пользователи]).
если по шагово то
1. юзаю скилл молния
2.скрипт увидел его пакет активировался
3.идет задержка сколько я поставлю
4. отправляется пакет от Электрический разряда
Вот так )

[altairalentus]

давай обясню по другому, дожно выглядеть так, допустим я юзнал скилл

Молния IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
а его пакет оказался ативатором
после с задержкой в N-ое к-во мсек должен отправится другой пакет(который я изначально забью в скрипт)
пример пакета - это допустим Электрический разряд III ([Ссылки могут видеть только зарегистрированные и активированные пользователи]).
если по шагово то
1. юзаю скилл молния
2.скрипт увидел его пакет активировался
3.идет задержка сколько я поставлю
4. отправляется пакет от Электрический разряда
Вот так )

Вот полностью рабочий скрипт проверен на рулезе
var
timer: ttimer;

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=1000; //задержка в мсек
Timer.enabled:=false;
end;

procedure Free;
begin
Timer.enabled:=false;
timer.free;
end;

procedure TimerOn(Sender:TTimer);
begin
buf:=hstr('D0 00 57 6F FF 64 04 09 00 8A 01 00 00 41 03 79 2B 00 00 '); //твой пакет
SendToServerEx('qqq');
Timer.enabled:=false;
buf:='';
end;

begin
if FromClient and (pck=hstr('D0 00 57 6F FF 5D 04 09 00 8A 01 00 00 41 03 79 2B 00 00')) then //пакет активатор
begin
Timer.enabled:=true;
SetName('qqq');
end;

end.

[510145]

Еще раз спасибо большое, сейчас обнова на NA офе пройдет и попробую протестить.