BOT = SetMan.GetString(21)
SET = "sIP" -- определение по IP, "sName" -- по нику
Mode = 1 -- 1 - в общий, 2 - в приват. 0 - не отсылать

IConfirm = "я соглашаюсь с правилами"

Confirm = { }
data_file = Core.GetPtokaXPath().."scripts/1/data.txt"
dofile(data_file)

function UserConnected(user)
Core.GetUserAllData(user)
if Confirm[user[SET]] == nil then
SendTo(user, BOT, SendConfirm)
end
end
OpConnected = UserConnected

function ChatArrival(user,data)
Core.GetUserAllData(user)
local _,_, Message = string.find(data, "%b<>%s+("..IConfirm..")")
IConfirmPars(user, Message)
if Confirm[user[SET]] == nil then
return SendTo(user, BOT, SendConfirm)
end
end

function SendTo(user, BOT, SendConfirm)
if Mode == 1 then
Core.SendToNick(user.sNick,"<"..BOT.."> ".. SendConfirm)
elseif Mode == 2 then
Core.SendPmToNick(user.sNick,BOT, SendConfirm)
elseif Mode == 0 then
end
return true
end

function ToArrival(user,data)
Core.GetUserAllData(user)
local _,_,To,From,Message = string.find(data,"$To:%s+(%S+)%s+From:%s+%S+%s+$<(%S+)>%s+(.*)|")
if To == BOT then
IConfirmPars(user, Message )
end
end

function IConfirmPars(user, Message )
if Message == IConfirm then
Confirm[user[SET]] = 1
SendTo(user, BOT,"Теперь вы полноправный участник чата!")
SaveToFile(data_file, Confirm, "Confirm")
end
end

function ReadFile(file)
local f = io.open(file, "r")
return f:read("*all")
end; rules_txt = ReadFile(Core.GetPtokaXPath().."scripts/1/info.txt")
SendConfirm = "Перед тем, как начать общение, ознакомьтесь с информацией хаба и правилами поведения в чате. \n" .. rules_txt .. "\n" .. "Если вы согласны с правилами - напишите фразу: " .. IConfirm .." и отправьте в чат."

function SaveToFile(file , table , tablename)
local handle = io.open(file,"w+")
handle:write(Serialize(table, tablename))
handle:flush()
handle:close()
collectgarbage(collect)
end

function Serialize(tTable, sTableName, sTab)
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.." = {\n"
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end
sTmp = sTmp..",\n"
end
sTmp = sTmp..sTab.."}"
return sTmp
end
RegConnected = UserConnected

===== Правило =====
===== (Минимальная мера пресечения) =====

Длина ника должна быть от 2-х до 15-и символов
(Запрет входа на хаб ботом)

Правил касательно ников нет, но если вы собираетесь общаться в чате, имейте читабельный ник
(Бан от 1-ой минуты)

Запрещён флуд, смайло-флуд, частоповторяющиеся сообщения, не несущие смысловой нагрузки
(Бан, либо заглушка от 1-ой минуты)

Запрещены оскорбления, флейм, провокации на нарушение правил
(Бан, либо заглушка от 10-и минут)

Запрещено написание сообщений в верхнем регистре, то есть на CapsLock'е
(Бан, либо заглушка от 1-ой минуты)

Запрещена реклама сторонних ресурсов без согласия администрации хаба
(Бан, либо заглушка от 1-ого месяца)

Запрещён обход бана, заглушки, путём смены IP-адреса, либо путём использования прокси-серверов
(Бан от 1-ого месяца)

Запрещена подделка ников администрации хаба, подделка ников ботов
(Постоянный бан по нику)

Запрещено обсуждение действий администрации в главном чате хаба
(Бан от 1-ой минуты)

Запрещены частоповторяющиеся ссылки на интернет-ресурсы, реклама реферальных ссылок
(Бан, либо заглушка от 10-и минут)

Запрещена эмуляция шары и распространение фейков
(Бан от 1-ой минуты как предупреждение, за последующие нарушения бан от 12-и часов)

Запрещена реклама и распространение детской порнографии
(Бан от 1-ого месяца)