[LEVEL="15,1"]Скрипт для ПХ.
Пишет (с интервалом 3 мин) в пм ГМу, если приходит ответ, что персонаж заблокировал чат - скрипт рвет соединение. Скрипт надо дополнить пакетами написанием в пм и ответом от сервера (под ваши хроники). Если на сервере не один ГМ, то можно запускать несколько экземпляров скрипта.
При необходимости могу переписать скрипт для скриптового движка ВП.
Код:
const
name='jFobos';
var
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true;
Timer01.interval:=180000;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=HStr('пакет что пишет в пм гму');
SendToServerEx(name);
end;
begin
if (FromServer) and (pck=HStr('пакет который сообщит что ГМ онлайн')) then
disconnect;
end.