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

[Vilson]

Сообщение от 0rfin

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

Потому что 55 это:

procedure AnswerTradeRequest (ConName: string; Answer: integer = 0);    //ответ на приглашение торговать
begin 
  buf:=#$55;
  WriteD(Answer);    
  SendToServerEx(ConName);
end;

а тебе нужно:

procedure RequestGiveNickName(ConName, Target, Title:string); // изменить титул чара
begin 
  buf:=#$0B;
  WriteS(Target);
  WriteS(Title);
  SendToServerEx(ConName);
end;

Скачай из этой темы http://coderx.ru/showthread.php?t=4070 PacketsT2.rar там почти все полезные пакеты для Т2 есть в виде функций.

[QaK]

Сообщение от 0rfin

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

вместо 55 поставь 0В

[0rfin]

Заработало но скрипт Qaka с формой нет, странно я использовал скрипт StekloReZа там уже написано 0b и не работало, может быть имеет значение регистр или я не заметил что то.
Как блокировать пакет который засоряет системные сообщения, пишет ник сменен. СС пакет
наверно так

if FromServer and (pck[1]=#$CC) then
begin
buf:='';
SendToClient
end;

не помогает, возможно чушь написал)

[QaK]

0rfin,

if FromServer and (pck[1]=#$CC) then
begin
  pck:='';
  exit;
end;

[0rfin]

Поместил сюда, все равно приходит пакет

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (pck[1]=#$CC) then
begin
  pck:='';
  exit;
end;
end.

[QaK]

0rfin, значит или не СС идшник пакета, или хз что, аномалия какая-то ...

[0rfin]

Тоже хз
CC E0 51 02 10 20 00 20 00 1C 04 4B 04 20 00 3F 04 40 04 3E 04 3B 04 3E 04 36 04 38 04 3C 04 20 00 3C 04 30 04 00 00
Tип: 0xCC (NicknameChanged)
Pазмер: 39+2
Время прихода: 14:20:19:128
0002 d ObjectID: 268587488 (0x100251E0)
0006 s Title: Мы проложим ма

[QaK]

0rfin, весь скрипт, как ты его запускаешь, выложи ... возможно где-то кривой код =)

[0rfin]

Var
MyNick :string;
Title,GoTitle,NowTitle,Space: String;
Tim1: TTimer;
j,j2: integer;
procedure Init;
begin
Space:='                '; //пустая часть титла  - 16 любых передвигаемых символов
                           // их количество лучше не менять
MyNick:='Игорь';       //Тут пишем свой ник!
Title:='Мы проложим магистрали там где раньше волки срали';     //Сама строка титула

GoTitle:='';
Tim1:=Ttimer.Create(nil);
Tim1.Interval:=300;        //Тут задаём скорость переключения, мс (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
if FromServer and (pck[1]=#$CC) then
begin
  pck:='';
  exit;
end;
end.

[QaK]

0rfin, во-первых - поставь побольше интервал не 300, а 2000 например. Во-вторых в ините лучше таймер не включать, сделай по социальному действию влючение и выключение таймера. Не блочится, скорре всего из-за меленького интервала таймера.