Немного изменил, что бы не вбивать строки от руки.
(Грация)
Код:
Var
MyNick :string;
Title,GoTitle,NowTitle,Space: String;
Tim1: TTimer;
j,j2: integer;
procedure Init;
begin
Space:=' '; //пустая часть титла - 16 любых передвигаемых символов
// их количество лучше не менять
MyNick:='xxxxxxxx'; //Тут пишем свой ник!
Title:='Мракобесие и Джаз, не поверишь, всё украдено до нас. (с) "Пикник"'; //Сама строка титула
GoTitle:='';
Tim1:=Ttimer.Create(nil);
Tim1.Interval:=800; //Тут задаём скорость переключения, мс (1секунда = 1000мс)
Tim1.OnTimer:=@OnTimerProc;
Tim1.Enabled:=true;
j:=0;
j2:=Length(Title); // Узнаю длинну титула
GoTitle:=(Space+Title+Space);
end;
procedure Free;
begin
Tim1.Enabled:=False;
Tim1.Free;
end;
Procedure OnTimerProc;
begin
NowTitle:=Copy(GoTitle,j,16);
SetTitle(NowTitle);
if j<j2+16 then j:=j+1
else j:=0;
end;
Procedure SetTitle(title:string);
begin
buf:=#$0b;
WriteS(MyNick);
WriteS(title);
SendToServerEx(MyNick) ;
end;
begin
end.