№ 1. Анимированый титул через скрипт
Для того, чтоб установить скрипт, создайте текстовый файл в папке Scripts вашего ПакетХака, например "AnimTitle.txt", откройте его блокнотом и вставьте текст скрипта. После этого перезапустите ПакетХак.
Скрипт работает только на серверах с хрониками Камаэль и Грация!
Код:
//2009г. //Скрипт работает только на хрониках Kamael и Gracia Var MyNick :string; TitleList: TStringList; Tim1: TTimer; j,j2: integer; procedure Init; begin MyNick:='Johnson'; //Тут пишем свой ник! TitleList:= TStringList.Create; TitleList.Add('Title1'); //Тут список перечисляемых титулов TitleList.Add('Title2'); //При необходимости можно добавить TitleList.Add('Title3'); //или удалить соответствующие строки TitleList.Add('Title4'); TitleList.Add('Title5'); Tim1:=Ttimer.Create(nil); Tim1.Interval:=1000; //Тут задаём скорость переключения, мс (1секунда = 1000мс) Tim1.OnTimer:=@OnTimerProc; Tim1.Enabled:=true; j:=0; j2:=TitleList.Count-1; end; procedure Free; begin Tim1.Enabled:=False; Tim1.Free; end; Procedure OnTimerProc; begin SetTitle(TitleList[j]); If j<j2 then j:=j+1 else j:=0; end; Procedure SetTitle(title:string); begin buf:=#$0B; WriteS(MyNick); WriteS(title); SendToServer; end; begin end.