Скрипт блокирует сообщения чата от чаров которые морально достают спамом.
У таких чаров блокируются сообщения при попытке спамить в чат и на титуле появляется надпись "Спам бот".
Что бы добавить ник спамера в спикок, добавляем такую строчку к скрипту
if nik = 'NikSpamera' then pck:='';
Код
//Автор ATMS_DIFKS
var
nik:string;
oid:integer;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (pck[1]=#$4A) then
begin
oid := ReadD(2);
nik:=ReadS(10);
//если сообщение от "ник" то блокировать
if nik = 'NikSpamera1' then pck:='';
if nik = 'NikSpamera2' then pck:='';
if nik = 'NikSpamera3' then pck:='';
//добавляем эту строку с ником спамера if nik = 'NikSpamera' then pck:='';
if pck = '' then
begin
buf:=#$CC;
WriteD(oid);
WriteS('спам бот');
SendToClient;
end;
end;
end.