Помогите прикрутить таймер.

[afonbka]

Спасибо спасибо. Все четко как по маслу работает ) Спасибо еще раз..

[Nickers]

6*60000
Чет многа)

[afonbka]

норм. дансы сонги 6 минут на сервере. кидает пати каждые 364 сек и бд свс варк принимают и бафают

[dyh9l]

рад что смог помочь))

Сообщение от Nickers

Та я тож думал что так нада было сделать)))

А так можно и без Кейса))

не понял)

[Nickers]

Ну я про то что прост итервал меняешь и фсио (Никогда так не делал(прост не пробывал))

[dyh9l]

))))

[VLADOS_vdv]

У меня такой вопрос. как зделать чтоб вот этот, делал тоже самое только на ВСЕ ники чаров которые забиты в l2phx, без указания.

const
Name='Nickers'; //Ник
N=3; //Сколько раз послать пакет

var
timer, timer2 : TTimer;
packet:array[1..N] of string;
j:integer;

procedure OnTimer(Sender: TObject);
begin
timer2.enabled:=false;
inc(j);
buf:=packet[j];
SendToServerEx(Name);
if j=N then
begin
timer2.enabled:=true;
j:=0;
timer.enabled:=false;
end;
end;

procedure OnTimer2(Sender: TObject);
begin
timer.enabled:=true;
end;

procedure Init;
begin
packet[1]:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // 1 пакет
packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00'); // 2 пакет
packet[3]:=Hstr('D0 00 00 00 00 00'); // 3 пакет.

timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=true;
timer.interval:=1000; //1 сек

timer2:=TTimer.Create(nil);
timer2.OnTimer:=@OnTimer2;
timer2.enabled:=false;
timer2.interval:=6000; //6 сек
j:=0;
end;

procedure Free;
begin
timer.free;
timer2.free;
end;

begin
end.

[NLObP]

Сообщение от VLADOS_vdv

как зделать чтоб вот этот, делал тоже самое только на ВСЕ ники чаров которые забиты в l2phx, без указания

Использовать команду SendToServer вместо SendToServerEx

[VLADOS_vdv]

const
Name='Nickers'; //Ник
N=3; //Сколько раз послать пакет
А вот этопросто удалить?

[NLObP]

Сообщение от VLADOS_vdv

Name='Nickers'; //Ник

Это уже не требуется.