HubTopic, Скрипт показывающий ваш текст в строке состояния

path = debug.getinfo(1).source:match("^@?(.+[/\\]).-$"):gsub("\\","/")
y,n = true,false
tCfg = {
Menu = ".:: Меню Администрации ::.\\.:: Тема чата ::.",
File = path.."texts/hubtopic.txt"
}
tAccess = {
[0] = y,
[1] = y,
[2] = n,
[3] = n,
[-1] = n,
}


tData = {}

function OnStartup()
tData.Prefix = "!"
local pref = "!"
tData.ChatCmdPattern = "^%b<>%s+["..pref.."](%S+)"
tData.ChatCmdArgs = "^%b<>%s+["..pref.."]%S+%s+(.+)$"
tData.ToCmdPattern = "^%$To:%s+%S+%s+From:%s+%S+%s+%$%b<>%s+["..pref.."](%S+)"
tData.ToCmdArgs = "^%$To:%s+%S+%s+From:%s+%S+%s+%$%b<>%s+["..pref.."]%S+%s+(.+)$"

local f = io.open(tCfg.File,"r")
if f then
sHubTopic = f:read("*all")
f:close()
end
end

function OnUserEnter(UID)
if tAccess[UID.iProfile] then
Core.SendToUser(UID,"$UserCommand 1 3 "..tCfg.Menu.."\\.:: Установить тему ::.$<%[mynick]> !хабтопик %[line:Введите тему чата]|")
Core.SendToUser(UID,"$UserCommand 0 3")
Core.SendToUser(UID,"$UserCommand 1 3 "..tCfg.Menu.."\\.:: Удалить тему ::.$<%[mynick]> !хабтопик офф|")
end
if sHubTopic then
Core.SendToUser(UID,"$HubTopic "..sHubTopic)
end
end
function OnChat(UID,data)
if tAccess[UID.iProfile] then
local cmd = data:match(tData.ChatCmdPattern)
if cmd and cmd == "хабтопик" then
data = data:match(tData.ChatCmdArgs)
if data then
if data:lower() == "офф" then
sHubTopic = nil
Core.SendToUser(UID, "<"..Config.sHubBot.."> Тема чата удалена.")
Save()
else
sHubTopic = data
Core.SendToUser(UID, "<"..Config.sHubBot.."> Тема чата установлена.")
Core.SendToAll("$HubTopic "..sHubTopic)
Save()
end
else
Core.SendToUser(UID, "<"..Config.sHubBot.."> Ошибка синтаксиса команды. Синтаксис: "..tData.Prefix.."хабтопик <тема чата/офф>.")
end
return true
end
end
end

function Save()
if sHubTopic then
local f = io.open(tCfg.File,"w")
if f then
f:write(sHubTopic)
f:close()
else
error("Unable to open file "..tCfg.File)
end
else
os.remove(tCfg.File)
end
end