Титул скриптом

TAMBIK · 03.05.2009, 16:32

Вот нашел

delphi Код:

//©zlilo, специально для stormcheats.com
//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.

Grinch · 03.05.2009, 17:18

не догнал в чем соль?

alexteam · 03.05.2009, 17:54

можно сделать бегущую строку

по типу
Оффтоп
долго бегать с такой фигней не прийдеться

TAMBIK · 03.05.2009, 20:42

Цитата:

Сообщение от Grinch

не догнал в чем соль?

не все норм работает

Добавлено через 1 минуту

Цитата:

Сообщение от alexteam

можно сделать бегущую строку

по типу
Оффтоп
долго бегать с такой фигней не прийдеться

спасибо пробовал уже
здесь немного дгугое решение просто поделился

Grinch · 03.05.2009, 21:37

Цитата:

Сообщение от TAMBIK

не все норм работает

дык я знаю что норм работает, по коду пробежался, только зачем оно надо. разве только перед уходом с серва понты прогнать

TAMBIK · 04.05.2009, 13:46

Цитата:

Сообщение от Grinch

дык я знаю что норм работает, по коду пробежался, только зачем оно надо. разве только перед уходом с серва понты прогнать

если поставить интервал сек 10 палева нетак будит
вот с строкой бегушей эт палево

Johnson · 11.05.2009, 08:34

хе) знакомая вещь

Как мне нравятся люди, которые заменяют копирайты

Вобщето автор скрипта я, и иписал для ЧитПортала...
http://cheatportal.ru/f3/thread4351.html

а насчет бана... долго бегал с этой фичей и на пвп серверах и на х10... причем рядом несколько раз были ГМы. Ни слова не сказали про запрещенность...
Просто не каждому (простому игроку) сразу в голову придёт мысль о стороннем ПО

Щас только заметил))) Он даже ник мой не соизволил заменить

TAMBIK · 11.05.2009, 11:35

Цитата:

Сообщение от Johnson

хе) знакомая вещь

Как мне нравятся люди, которые заменяют копирайты

Вобщето автор скрипта я, и иписал для ЧитПортала...
http://cheatportal.ru/f3/thread4351.html

а насчет бана... долго бегал с этой фичей и на пвп серверах и на х10... причем рядом несколько раз были ГМы. Ни слова не сказали про запрещенность...
Просто не каждому (простому игроку) сразу в голову придёт мысль о стороннем ПО

Щас только заметил))) Он даже ник мой не соизволил заменить

ТАК Я НАПИСАЛ НАШЕЛ. и описание скрипта оставлено как было

StekloReZ · 09.01.2010, 22:47

Немного изменил, что бы не вбивать строки от руки.
(Грация)

Код:

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.

0rfin · 11.03.2010, 19:59

Не пашет на грации эпилог на яве пвп.
и это не пашет, в игре приходит сообщение That player is not online

Поймал пакет на смену титула
Tип: 0x0B (RequestGiveNickName)
Pазмер: 25+2
Время прихода: 21:06:52:246
0002 s Target: Игорь
000E s Title: 12345
0B 18 04 33 04 3E 04 40 04 4C 04 00 00 31 00 32 00 33 00 34 00 35 00 00 00

delphi Код:

//by QaK
//Скрипт на титул бегущей строкой
var
  Main : TForm;
  Timer : TTimer;
  Button : TButton;
  Edit: TEdit;
  Start : Boolean = False;
  Pos_i : Integer;

procedure Init; //Вызывается при включении скрипта
begin
Pos_i:=1;
//формочка
Main := TForm.Create(nil);
Main.Caption := 'Анимированный Титул v 1.0';
Main.BorderStyle := bsSizeable;
Main.Position := poDesigned;
Main.Left :=725;
Main.Top :=0;
Main.Width :=300;
Main.Height :=150;

//пример титула будет выводиться сюда
Edit := TEdit.Create(Main);
Edit.Parent := Main;
Edit.Left := 100;
Edit.Top := 10;
Edit.Width := 102;

//таймер
Timer := TTimer.Create(Main);
Timer.Interval := 1050;
Timer.Enabled := False;
Timer.onTimer := @TimerTimer;

Button := TButton.Create(Main);
Button.Parent := Main;
Button.Caption := 'Старт';
Button.Left := 10;
Button.Top := 10;
Button.onClick := @ButtonClick;

Main.Show;
end;

procedure Free; //Вызывается при выключении скрипта
begin
Edit.Free;
Timer.Free;
Button.Free;
Main.Free;
end;

//процедура смена титула
procedure ChangeTitle(CharName,Title:String);
begin buf:=#$55;
      WriteS(CharName);
      WriteS(Title);
      SendToServer;
end;

//обработчик таймера
procedure TimerTimer(Sender : TTimer);
var i:integer;
    Title:string;                            //Титул текущий
    Full_Title : String = 'ХАахха';//титул полностью - строка любой длины
    Char_Name : String = 'Игорь';              //имя перса 
begin Title:='';
      for i:=1 to 16 do                          //читаем 16 символов = макс длина титула
      if ((i+Pos_i)mod(Length(Full_Title)+1))=0  //если читаем нулевой символ строки Full_Title 
         then Title:=Title+' '                   //вставляем пробел   
         else Title:=Title+Full_Title[(i+Pos_i)mod(Length(Full_Title)+1)];//если нет - то вставляем символ

      Pos_i:=(Pos_i+1)mod(Length(Full_Title)+1); //меняем позицию +1 и если дошли до конца строки - идем читать сначала

      Edit.Text:=Title;
      ChangeTitle(Char_Name,Title);
end;

//запуск титула
procedure ButtonClick(Sender : TButton);
begin
Start := Not (Start);
Timer.Enabled := Start;
If Start
   then Button.Caption:='Стоп'
   else Button.Caption:='Старт';
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.