Предупреждения, API2

sBot = SetMan.GetString(21)
BanType = 0 -- Тип Бана (0 - Временный; 1 - постоянный )
BanTime = 30 -- На сколько банить пользователя(в днях)
sReason = "Ваш уровень предупреждений достиг максимальной отметки!" -- Причина бана
sPercent = 5 --максимально допустимое число предупреждений

tProfile = {
[0] = 1,
[1] = 1,
}
tWarn = {}


function OnStartup()
sWarn = Core.GetPtokaXPath().."scripts/Warn/WarnTable.dat"
if loadfile(sWarn) then
dofile(sWarn)
end
TmrMan.AddTimer(nTime*60000, "OnExit")
end

function OnExit()
WriteTable(tWarn, "tWarn", sWarn)
end

function UserConnected(tUser)
Core.SendToUser(tUser,"$UserCommand 1 3 Пользователь\\Предупреждения$<%[mynick]> !mywarn|")
if tProfile[tUser.iProfile] == 1 then
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Дать предупреждение$<%[mynick]> !warn %[line:Введите ник] %[line:Введите причину]|")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Снять предупреждение$<%[mynick]> !delwarn %[line:Введите ник]|")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Список предупреждённых$<%[mynick]> !warntable|")
end
end
OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(tUser,sData)
local sData = string.sub(sData,1,-2)
local _,_,cmd = string.find(sData, "%b<>%s+(%S*)")
if cmd == "!warn" then
if tProfile[tUser.iProfile] == 1 then
if not tWarn[sNick] then
local _,_,msg = string.find(sData, "%b<>%s+%S+%s+(.+)")
twarn[sNick] = msg
WriteTable(tWarn, "tWarn", sWarn)
local _,_,sNick = string.find(sData, "%b<>%s+%S+%s+(%S+)")
local _,_,sReason = string.find(sData, "%b<>%s+%S+%s+(.*)")
if not sReason then
Core.SendToUser(tUser, "<"..sBot.."> Пожалуйста, введите причину!")
end
if not sNick then
Core.SendToUser(tUser, "<"..sBot.."> Введите ник!")
else
tWarn[tUser.sNick] = {}
tWarn[tUser.sNick].Nick = sNick
tWarn[tUser.sNick].Reason = sReason
tWarn[tUser.sNick].Time = os.time()
NumberWarn = " / "..sPercent
WarnMsg = "Вы были предупреждены пользователем "..tUser.sNick.." по причине "..sReason.." [ Предупреждений: "..NumberWarn.." ]"
Core.SendPmToNick(sNick, sBot, WarnMsg)
end
end
else
Core.SendToUser(tUser, "<"..sBot.."> На хабе нет пользователя с таким ником!")
end
else
Core.SendToUser(tUser, "<"..sBot.."> У вас недостаточно прав для использования этой команды!")
end
return true
end
elseif cmd == "!delwarn" then
if tProfile[tUser.iProfile] == 1 then
if tWarn[sNick] then
tWarn[sNick] = nil
WriteTable(tWarn, "tWarn", sWarn)
local _,_,sNick = string.find(sData, "%b<>%s+%S+%s+(%S+)")
local _,_,sReason = string.find(sData, "%b<>%s+%S+%s+(.*)")
if not sNick then
Core.SendToUser(tUser, "<"..sBot.."> Вы не ввели ник!")
end
if not sReason then
Core.SendToUser(tUser, "<"..sBot.."> Введите причину поощрения!")
end
if not tWarn[sNick] then
Core.SendToUser(tUser, "<"..sBot.."> Ошибка, Предупреждение не было снято!")
else
warn = ""
DelWarnMsg = "Предупреждение "..warn.." было снято пользователем "..tUser.sNick.." по причине "..sReason
Core.SendPmToNick(sNick, sBot, DelWarnMsg)
end
tAway[sNick] = nil
else
Core.SendToUser(tUser, "<"..sBot.."> На хабе нет пользователя с данным ником!")
end
else
Core.SendToUser(tUser, "<"..sBot.."> У вас недостаточно прав для использования этой команды!")
end
return true
end
elseif cmd == "!warntable" then
if tProfile[tUser.iProfile] == 1 then
sMsg = "Список предупреждённых пользователей:\r\n\r\n"
iCount = 0
for sNick,sData in pairs(tWarn) do
sMsg = sMsg.."\t\tНик: "..sNick.."\t\tПричина: "..sReason.."\t\t"
iCount = iCount + 1
end
if not iCount then
Core.SendToUser(tUser,"<"..sBot.."> В списке нет предупреждённых пользователей.")
else
Core.SendToUser(tUser,"<"..sBot.."> "..sMsg)
end
else
Core.SendToUser(tUser, "<"..sBot.."> У вас недостаточно прав для использования этой команды!")
end
return true
end
elseif cmd == "!mywarn" then
sMsg = "Вы были предупреждены "..NumberWarn..". За снятием предупреждений обращайтесь к оператору или администратору хаба."
Core.SendPmToUser(tUser, sBot, sMsg)
else
Core.SendToUser(tUser, "<"..sBot.."> У вас нет предупреждений!")
end
return true
end
end

function GetFile(file)
local f = io.open(file, "r")
local message = f:read("*all")
f:close()
return message
end

function SaveToFile(sFileWay, tTable, sTableName)
local sHandle = io.open(sFileWay,"w+")
Serialize(tTable, sTableName, sHandle)
sHandle:flush()
sHandle:close()
end

function Serialize(tTable, sTableName, sHandle, sTab)
local sTab = sTab or ""
sHandle:write(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
Serialize(value, sKey, sHandle, sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
sHandle:write(sTab.."\t"..sKey.." = "..sValue)
end
sHandle:write(",\n")
end
sHandle:write(sTab.."}")
end