Скрипты.

[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]

Цитата: Сообщение от altairalentus Скрипт так и работает то может в описании немного не правильно написал вот здесь C2 00 57 61 FF 05 меняешь на свой пакет активации. вот задержка в мсек

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

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

[altairalentus]

Цитата: Сообщение от 510145 давай обясню по другому, дожно выглядеть так, допустим я юзнал скилл [Ссылки могут видеть только зарегистрированные пользователи. ] а его пакет оказался ативатором после с задержкой в N-ое к-во мсек должен отправится другой пакет(который я изначально забью в скрипт) пример пакета - это допустим [Ссылки могут видеть только зарегистрированные пользователи. ]. если по шагово то 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 офе пройдет и попробую протестить.