Код:
const
NickName = 'Имя перса';
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if (ConnectName = NickName) and FromServer and (pck='тут пакет который закрывает') then
pck := '';
end.