Пакет не блокировался потому что я скрипт запускал через кнопку плей а не через галочку, теперь пакет не приходит. Оказывается там еще пакет приходил, он был в фильтах и я его не видел.
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)
delphi Код:
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);
SendToServer
Ex(MyNick) ;
end;
К стати твой скрипт пашет
Qak
Добавлено через 9 часов 26 минут
Кто нить помнит девушка выкладывала скрипт там перс в пм рассказывал анекдоты всем кто купит что то. Я хочу чтоб в титуле проигрывались предложения по порядку из файла.
...
а вот нашел
ссылко