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

[0rfin]

Пакет не блокировался потому что я скрипт запускал через кнопку плей а не через галочку, теперь пакет не приходит. Оказывается там еще пакет приходил, он был в фильтах и я его не видел.
62 D6 00 00 00 00 00 00 00
Tип: 0x62 (SystemMessage)
Pазмер: 9+2
Время прихода: 19:05:05:217
0002 d MsgID: Титул изменен. ID:214 (0x00D6)
0006 d typesCount: 0 (0x00000000)

Var
MyNick :string;
Title,GoTitle,NowTitle,Space: String;
Tim1: TTimer;
j,j2: integer;

var
Status, socialid: Integer;
procedure SAY(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

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

GoTitle:='';
Tim1:=Ttimer.Create(nil);
Tim1.Interval:=1000;        //Тут задаём скорость переключения, мс (1секунда = 1000мс)
Tim1.OnTimer:=@OnTimerProc;
Tim1.Enabled:=False;
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 FromClient and (pck[1]=#$56) then //социальное действие
    begin
      SocialID:=ReadD(2);
      case ord(pck[2]) of
      $18:begin                //socialyes
        Tim1.Enabled:=True;
        SAY('Вкл');
      end;
      
      $19:begin                //socialno
        Tim1.Enabled:=False;
        SAY('Выкл');
      end;
        end;
    end;


if FromServer and (pck=#$62#$D6#$00#$00#$00#$00#$00#$00#$00) then
begin
 pck:='';
 exit;
end;
end.

Тупость, не работает, раньше работало, пакет на смену титула тупо не посылается...
мин 20 спустя..

Убрал здесь это(красным) и заработало
Procedure SetTitle(title:string);
begin
buf:=#$0B;
WriteS(MyNick);
WriteS(title);
SendToServerEx(MyNick) ;
end;

К стати твой скрипт пашет Qak

Добавлено через 9 часов 26 минут
Кто нить помнит девушка выкладывала скрипт там перс в пм рассказывал анекдоты всем кто купит что то. Я хочу чтоб в титуле проигрывались предложения по порядку из файла.
...
а вот нашел ссылко