QaK, понимаешь, мне нужно чтоб соединения в скрипте назывались 1,2,3.... а не по никам...
Добавлено через 3 часа 26 минут
Почему не хочет отправлять 3 пакета с промежутком 200мс между каждым...и задержкой в 5минут в конце цикла?
(Скрипт любезно предоставлен NLObP)
Код:
const
packet1='CF 66 33 31 57 89 A1 3E 40 A0 86 01 00';
packet2='FF 35 57 A0 C1 7B CE 1B 40 A0 86 01 00';
var
status:boolean;
timer1: TTimer;
timer2: TTimer;
x: integer;
procedure UseBuff(buffID:string; id:integer);
begin
buf:=HStr(buffID);
SendToServerEX(ConnectNameByID(id)); //переходим от ID к Name
end;
procedure OnTimer;
begin
case x of
0: begin
usebuff(packet1,1);
inc(x);
end;
1: begin
usebuff(packet2,0);
inc(x);
end;
2: begin
usebuff(packet1,1);
inc(x);
status:=true;
timer1.interval:=300000; //5 минут
end;
end;
end;
procedure OnTimer2;
begin
end;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=false;
timer1.interval:=200; //200 миллисекунд
x:=0;
status:=false;
timer2:=TTimer.Create(nil);
timer2.OnTimer:=@OnTimer2;
timer2.enabled:=false;
timer2.interval:=300000; //5 минут
x:=0;
status:=false;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer1.free;
timer2.free;
end;
begin
end.