Знающим

[letsplay]

В скриптах полный 0, нужен скрипт который отправляет(спамит) один пакет одновременно с нескольких чаров, с интервалом 500мс, как такое реализовать(хф)?
Заранее спасибо

[dyh9l]

Вроде так, добавить чаров при необходимости.

var
Timer:TTimer;
procedure Init;
begin
Timer := TTimer.Create(nil) ;
Timer.Interval := 500 ;
Timer.Enabled := true ;
Timer.Ontimer := @spam ;
end;
procedure Free;
begin
Timer.free;
end;
procedure spam;
begin
buf:=HStr('суда засунуть пакет');
SendToServerEx('имя1');
SendToServerEx('имя2');
SendToServerEx('имя3');
SendToServerEx('имя4');
end;
begin
end.

[letsplay]

dyh9l, спасибо, все работает, теперь я ваш фанат :)