Проверять вломак, хз что у тебя там не так, надо весь код смотреть.
Вот каркас с таймером на 7 разных действий. annon выводит в чате циферки от 1 до 7.
delphi Код:
var
cycle:integer;
Timer1:TTimer;
procedure annon(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure Init; //Вызывается при включении скрипта
begin
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@OnTimer;
Timer1.Enabled:=true;
Timer1.Interval:=1000;//интервал запрещения пакета
cycle:=0;
useforconnectname:='op';
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer1.Free();
end;
procedure OnTimer();
begin
case cycle of
1:begin
annon(inttostr(cycle));
end;
2:begin
annon(inttostr(cycle));
end;
3:begin
annon(inttostr(cycle));
end;
4:begin
annon(inttostr(cycle));
end;
5:begin
annon(inttostr(cycle));
end;
6:begin
annon(inttostr(cycle));
end;
7:begin
annon(inttostr(cycle));
timer1.Enabled:=false;
end;
end;
inc(cycle);
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.
А в какой тег надо вписывать код, чтобы он отформатировался в делфи? НА пенельке редактора ничего не нашел чота.