[Скрипт] Анимированый титул через скрипт - Zhyk.Ru Forums
Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.Ru LIVE! Реклама на Zhyk.Ru Доска почета top.zhyk.ru (beta) Премиум-аккаунт

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

-

Боты, скрипты и прочий софт для Lineage 2

- Весь софт по Lineage 2 и все, что связано с ботоводством, скриптописанием и брутом - в этом разделе

Ответ
 
Опции темы Опции просмотра
Старый 13.03.2009, 20:48   #1
Super Moderator
 Рыцарь-защитник
Аватар для Razzor
 
Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(Razzor сломал счётчик популярности :(
Регистрация: 23.04.2008
Сообщений: 582
Популярность: 26705
Золото Zhyk.Ru: 100
Сказал(а) спасибо: 1,365
Поблагодарили 2,428 раз(а) в 665 сообщениях
Отправить сообщение для Razzor с помощью ICQ Отправить сообщение для Razzor с помощью Skype™
 
По умолчанию Анимированый титул через скрипт

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

Для того, чтоб установить скрипт, создайте текстовый файл в папке 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.
  Ответить с цитированием
Пользователь сказал cпасибо:
FastGhoust (16.05.2009)
Ответ

Метки
анимированый, скрипт, титул, через

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
пишем разными цветами (скрипт) Hummel Читы, баги и статьи по WoW 4 13.06.2010 01:22
Скрипт свободы (Freedom) Xarek86 Боты, скрипты и прочий софт для Lineage 2 1 16.01.2009 21:37

www.webmoney.ru
Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 12:11.

Powered by vBulletin
Copyright © 2018 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Protected by GShost.net