прошу помоч мне
Код HTML:
const
name='ктоКидает';
name2='камуКидают';
var
timer1: TTimer;
x: integer;
procedure OnTimer1(Sender: TObject);
begin
begin
buf:=hstr('42');
writeS(name2);
buf:=buf + hstr('00 00 00 00');
SendToServerEX(name);
end;
inc(x);
end;
procedure Init;
begin
x := 0;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=3000;
end;
procedure Free;
begin
timer1.free;
end;
begin
end.
суть в том чтобы сделать раздачу пати бд свс пп коту или каму угодно. чтобы бд свс бафали каждые 2 минуты с разничей в бафе в 5 секунд. и пп с котом когда угодно.
пытался скрипт на бд свс сделать неполучаеться. либо бд свс одновременно бафают либо вообще нечего хорошего. пробовал запускать с разных скриптов бд свс, окно уходило в дисконект.
помогите плиз
Добавлено через 1 час 23 минуты
Код HTML:
const
name='ктоКидает';
name2='бд';
name3='свс';
var
timer1: TTimer;
x: integer;
procedure OnTimer1(Sender: TObject);
begin
case x of
1:begin
buf:=hstr('42');
writeS(name2);
buf:=buf + hstr('00 00 00 00');
SendToServerEX(name);
timer1.interval := 5000
end;
2:begin
buf:=hstr('42');
writeS(name3);
buf:=buf + hstr('00 00 00 00');
SendToServerEX(name);
end;
end;
inc(x);
end;
//******************************************************************************
// Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
x := 0;
timer1:=TTimer.Create(nil);//выделяем памать и т.п.
timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
timer1.enabled:=true;//начальное положение true-включен/false-выключен
timer1.interval:=125000;//интервал
end;
begin
end.
нипонимаю почему ниработает