Код:
const
Name='nik';
var timer: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer.free;
end;
procedure OnTimer(Sender:TObject);
begin
buf:= HStr('B9 57 76 00 31 00 32 00 33 00 00 00');
SendToServerEx(Name);
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if pck = '' then exit;
if FromClient and (ConnectName=Name) and (pck = Hstr('C9 57 66 15 05 00 00 00 00 00')) then
begin
timer.enabled:=true;
end;
end.
вот держы работает все тока я не пойму зачем тебе спам?
чтоб убрать спам
добавь в начале таймера
timer.enabled:=false;