[Скрипт] Анимированый титул через скрипт

[Razzor]

Небольшой скриптик для автоматической анимации титула.
Анимация не прерывается ни при каких действиях в игре (в отличии от макроса).

Для того, чтоб установить скрипт, создайте текстовый файл в папке Scripts вашего ПакетХака, например "AnimTitle.txt", откройте его блокнотом и вставьте текст скрипта. После этого перезапустите ПакетХак.


Скрипт работает только на серверах с хрониками Камаэль и Грация!

Текст скрипта:

//©Johnson
//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.