--- Скрипт замены описания юзера на данном хабе на профиль юзера (мастер, оператор, вип, рег и незарегистрированный юзер)
--- Название скрипта - ProfileToDescr.lua
--- Написан чисто переделкой скрипта NoDescAdv от Alex82
--- Автор переделки - Ksan (г.Томск)
--- Дата: 10-08-2010
----------------------

iSendTimer = 1000    -- Время отправки MyINFO, ms

tTimers = {}
tUsers = {}

function OnStartup()
    for i,v in pairs(Core.GetOnlineUsers(true)) do
        MyINFOArrival(v,v.sMyInfoString)
    end
end

function GetNickListArrival(user,data)
    tTimers[TmrMan.AddTimer(iSendTimer, "SendAllInfo")] = user.sNick
end

function MyINFOArrival(user,data)
    tUsers[user.sNick] = true
    tTimers[TmrMan.AddTimer(iSendTimer, "SendInfo")] = user.sNick
    collectgarbage("collect")
end

function SendAllInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        for i,v in pairs(Core.GetOnlineUsers(true)) do
            if tUsers[v.sNick] then
                local tUsr = Core.GetUser(tTimers[tmr],true)
                if tUsr then
                    sProfile = (ProfMan.GetProfile(v.iProfile) and ProfMan.GetProfile(v.iProfile).sProfileName) or "Незарегистрированный юзер"
                    Core.SendToUser(user,"$MyINFO $ALL "..v.sNick.." "..sProfile..(v.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%b<>%$.+)$") or v.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%$.+)$")))
                end
            end
        end
    end
    tTimers[tmr] = nil
    TmrMan.RemoveTimer(tmr)
    collectgarbage("collect")
end

function SendInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        sProfile = (ProfMan.GetProfile(user.iProfile) and ProfMan.GetProfile(user.iProfile).sProfileName) or "Незарегистрированный юзер"
        Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..sProfile..(user.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%b<>%$.+)$") or user.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%$.+)$")))
    end
    tTimers[tmr] = nil
    TmrMan.RemoveTimer(tmr)
end

--[[
    Скрипт случайной расстановки представленного списка.
    Название: RandomList.lua
    API: 2
    Автор: Ksan (г.Томск)
    Дата написания: 07-08-2010
--]]

-- Ниже ники нужно вписать свои, какие нужно рассортировать
tNicks = {
    "Ник-1",
    "Ник-2",
    "Ник-3",
    "Ник-4",
    "Ник-5",
    "Ник-6",
    "Ник-7",
    "Ник-8",
    "Ник-9",
    "Ник-10",
    "Ник-11",
    "Ник-12",
}

math.randomseed(os.time())

function OpConnected(tUser)
    Core.SendToUser(tUser, "$UserCommand 1 3 << АДМИНКА >>\\Расстановка ников по случайному выбору$<%[mynick]> !randomnicks|")
end
    
function ChatArrival(tUser, sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match("%b<>%s+(.*)$")
    if sCmd and sCmd == "!randomnicks" then
        tTable = tNicks
        Core.SendToAll("\nСлучайно расставленный список участников:\n")
        for n = 1, #tTable do
            t = math.random(#tTable)
            sNick = tTable[t]
            Core.SendToAll(sNick)
            table.remove(tTable, t)
            math.randomseed(os.time())  -- для гарантированной случайности :)
        end
        Core.SendToAll("\n")
        return true
    end
end

--- Скриптик для предупреждений и сообщений от бота
--- Название: BotForOp_api2.lua
--- Накалякал Ksan из Томска для Милены Питерской, сидя на плечах гигантов-скриптёров..

sHelp = " ***  Помощь по командам (важно при писании в чат сообщений с несколькими строками от имени бота):\n\t!frombottouserpm НИК ТЕКСТ_СООБЩЕНИЯ - сообщение в приват юзера от имени бота\n\t!frombottousermc НИК ТЕКСТ_СООБЩЕНИЯ  - тихое сообщение в чате юзеру от имени бота (видит только этот юзер)\n\t!frombottousermcall НИК ТЕКСТ_СООБЩЕНИЯ  - громкое сообщение в чате юзеру (видно всем)\n\t!frombottochat ТЕКСТ_СООБЩЕНИЯ  - сообщение в чате от имени бота (видно всем)\n\t!warn НИК ТЕКСТ_СООБЩЕНИЯ  - предупреждение юзера в чате (видят все)\n\t!helpforwarn  -  получение этой самой помощи по командам"

function OnStartup()
    sBot = SetMan.GetString(21)
end

function UserConnected(tUser)
    local t = ProfMan.GetProfilePermissions(tUser.iProfile)
    if t then
        if t.bTempBan then
            Core.SendToUser(tUser, "$UserCommand 1 2 << АДМИНКА >>\\От имени бота\\Юзеру в приват от бота..$<%[mynick]> !frombottouserpm %[nick] %[line:Текст сообщения]|")
            Core.SendToUser(tUser, "$UserCommand 1 2 << АДМИНКА >>\\От имени бота\\Юзеру в чат от бота (тихо)..$<%[mynick]> !frombottousermc %[nick] %[line:Текст сообщения]|")
            Core.SendToUser(tUser, "$UserCommand 1 2 << АДМИНКА >>\\От имени бота\\Юзеру в чат от бота (громко)..$<%[mynick]> !frombottousermcall %[nick] %[line:Текст сообщения]|")
            Core.SendToUser(tUser, "$UserCommand 1 1 << АДМИНКА >>\\От имени бота\\Сообщение в чате от бота..$<%[mynick]> !frombottochat %[line:Текст сообщения]|")
            Core.SendToUser(tUser, "$UserCommand 1 1 << АДМИНКА >>\\От имени бота\\Помощь по командам$<%[mynick]> !helpforwarn|")
        end
        if t.bKick then
            Core.SendToUser(tUser, "$UserCommand 1 2 << АДМИНКА >>\\От имени бота\\Предупреждение в чате..$<%[mynick]> !warn %[nick] %[line:Причина]|")
        end
    end
end
OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(tUser, sData)
    Core.GetUserAllData(tUser)
    local t = ProfMan.GetProfilePermissions(tUser.iProfile)
    local sData = sData:sub(1,-2)
    local s,e, sCmd = string.find(sData, "^%b<>%s+(%S+)")
    local s,e, sParam = string.find(sData, "^%b<>%s+%S+%s+(.+)")
    if t then
        if t.bTempBan then  
            if sCmd and sCmd == "!frombottouserpm" then
                local s,e, sNick, sMsg = string.find(sParam, "^(%S+)%s+(.+)$")
                if sNick and sMsg then
                    local CurUser = Core.GetUser(sNick)
                    if CurUser then
                        Core.GetUserData(CurUser, 16)
                        FromBot(CurUser, sMsg)
                        FromBot(tUser, "Юзеру "..sNick.." отправлено в приват сообщение: "..sMsg)
                    else
                        ToUser(tUser, "Ошибка: юзер "..sNick.." не найден на хабе")
                    end
                else
                    ToUser(tUser, "Ошибка синтаксиса. Синтаксис: !frombottouserpm <ник> <текст сообщения>")
                end
                return true
            end
            if sCmd and sCmd == "!frombottousermc" then
                local s,e,sNick, sMsg = string.find(sParam, "^(%S+)%s+(.+)$")
                if sNick and sMsg then
                    local CurUser = Core.GetUser(sNick)
                    if CurUser then
                        Core.GetUserData(CurUser, 16)
                        ToUser(CurUser, sNick..":  ***  "..sMsg)
                        ToUser(tUser, sNick..":  ***  "..sMsg)
                    else
                        ToUser(tUser, "Ошибка: юзер "..sNick.." не найден на хабе")
                    end
                else
                    ToUser(tUser, "Ошибка синтаксиса. Синтаксис: !frombottousermc <ник> <текст сообщения>")
                end
                return true
            end
            if sCmd and sCmd == "!frombottousermcall" then
                local s,e, sNick, sMsg = string.find(sParam, "^(%S+)%s+(.+)$")
                if sNick and sMsg then
                    local CurUser = Core.GetUser(sNick)
                    if CurUser then
                        Core.GetUserData(CurUser, 16)
                        FromBotToChat(sNick..":  ***  "..sMsg)
                    else
                        ToUser(tUser,"Ошибка: юзер "..sNick.." не найден на хабе")
                    end
                else
                    ToUser(tUser, "Ошибка синтаксиса. Синтаксис: !frombottousermcall <ник> <текст сообщения>")
                end
                return true
            end
            if sCmd and sCmd == "!frombottochat" then
                local sMsg = sParam
                if sMsg then
                    FromBotToChat(sMsg)
                else
                    ToUser(tUser, "Ошибка: Нет текста сообщения")
                end
                return true
            end
            if sCmd and sCmd == "!helpforwarn" then
                FromBot(tUser, sHelp)
                return true
            end
        end
        if t.bKick then
            if sCmd and sCmd == "!warn" then
                local s,e, sNick, sMsg = string.find(sParam, "^(%S+)%s+(.+)$")
                if sNick and sMsg then
                    local CurUser = Core.GetUser(sNick)
                    if CurUser then
                        Core.GetUserData(CurUser, 16)
                        FromBotToChat(sNick..":  ***  Вам предупреждение: "..sMsg)
                    else
                        ToUser(tUser, "Ошибка: юзер "..sNick.." не найден на хабе")
                    end
                else
                    ToUser(tUser, "Ошибка: Вы не ввели ник или причину!")
                end
                return true
            end
        end
    end
    collectgarbage("collect")
end

function FromBot(user, msg)
    Core.SendPmToUser(user, sBot, msg)
end

function ToUser(user, msg)
    Core.SendToUser(user, "<"..sBot.."> "..msg)
end

function FromBotToChat(msg)
    Core.SendToAll("<"..sBot.."> "..msg)
end

sOurFileWay = Core.GetPtokaXPath().."scripts/somefile.txt"    -- путь к файлу
tTableData = {}

function OnStartup()
    if loadfile(sOurFileWay) then
        dofile(sOurFileWay)
    end
end

function OnExit()
    SaveToFile(sOurFileWay, tTableData, "tTableData")    -- сохраняем при выходе
end

function UserConnected(user)
    -- меню:
    Core.SendToUser(user, "$UserCommand 1 3 Информация\\получать$<%[mynick]> +ИзменитьСтатус on|")
    Core.SendToUser(user, "$UserCommand 1 3 Информация\\не получать$<%[mynick]> +ИзменитьСтатус off|")
    
    if not tTableData[user.sNick] then    -- проверяем на отсутствие ника в таблице и если его там нет то отсылаем ему информацию
        Core.SendToUser(user, "..........")
    end
end
OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(user, sData)
    local sCmd, sOption = sData:match"%b<>%s+[!%+%*](%S+)%s*(%S*).*|$"    -- отлавливаем команду и аругмент после нее
    if sCmd == "ИзменитьСтатус" then    -- если наша команда
        if not sOption then    -- если вдруг отсутствует статус в команде
            Core.SendToUser(user, "*** Вы не ввели статус команды!")
        elseif sOption == "on" then    -- если опция после команды on то
            if not tTableData[user.sNick] then    -- если ника нет в таблице то он получает инфу
                Core.SendToUser(user, "*** Вы и так получаете информацию при входе!")
            else
                tTableData[user.sNick] = nil    -- иначе удаляем ник из таблицы
                SaveToFile(sOurFileWay, tTableData, "tTableData")
                Core.SendToUser(user, "*** Теперь вы получаете информацию при входе!")
            end
        elseif sOption == "off" then    -- если опция после команды off то
            if tTableData[user.sNick] then    -- если ник в таблице
                Core.SendToUser(user, "*** Вы и так ничего не получаете при входе!")
            else
                tTableData[user.sNick] = true    -- иначе добавляем ник в таблицу
                SaveToFile(sOurFileWay, tTableData, "tTableData")
                Core.SendToUser(user, "*** Теперь вы не получаете информацию при входе!")
            end
        else    -- если опции нет или она какая-то странная
            Core.SendToUser(user, "*** Неверный статус команды!")
        end
        return true
    end
end

local sBot = "xxx"

local iTimer = 30 -- в минутах

tMessarray = {
    " :huh: ",
    " :ignoring: ",
    " Через меню можно вызвать FAQ - ответы на частые вопросы.",
    " Желающие зарегистрироваться в хабе могут это сделать через меню \"Регистрация\"",
}
math.randomseed(os.time())

function OnStartup()
    tmr = TmrMan.AddTimer (iTimer*60*1000)
end

function OnTimer(tmr)
    Core.SendToAll("<"..sBot.."> "..tMessarray[math.random(1,#tMessarray)])
end

function UserConnected(tUser)
    Core.SendToUser(tUser, "$UserCommand 1 3 Запрос$<%[mynick]> !запрос&#*124;")   -- в этой строке в конце нужно удалить звездочку *
end
OpConnected,RegConnected = UserConnected,UserConnected

function ChatArrival(tUser, sData)
    local sData = sData:sub(1,-2)
    local s,e, sMsg = sData:find("^%b<>%s(.*)$")
    if sMsg:find("!запрос") then
        Core.SendToAll("<"..sBot.."> "..tMessarray[math.random(1,#tMessarray)])  -- если надо отправить всем в чат
--        Core.SendToUser(tUser, "<"..bot.."> "..messarray[math.random(1,#messarray)])  --  если надо отправить только запрашивающему в чат, открываешь спереди эту строку и аналогично закрываешь (ставишь 2 этих знака --) предыдущую строку
        return true
    end
end

local sBot = SetMan.GetString(21)

sHelloMessages = {
["TROJAN"] = "     Подтянув Галстук, Аккуратно Причесан и Одет в Черном, Блестящем Смокинге. Главный Администратор хаба Открыл Дверь.. и вошел в главный зал хаба! Предклонитесь Перед Богом Хаба.. и Он благословит вас- мы Приветствуем тебя, о TROJAN!",  -- ДобАвляем свои привеТствиЯ кому надо!
["Не-TROJAN"] = " Поприветствуем Модератора Не-TROJAN!",
["Ksan"] = " А вот и Ksan! Как мы тебе рады, заходи, раздевайся и будь как дома! :) ",
["Test_user"]  = " Вау, кто к нам пришёл, - сам Test_user! Как мы тебе рады, заходи, раздевайся и будь как дома! :) ",
}

function UserConnected(tUser)
    local sHelloMes = sHelloMessages[tUser.sNick]
    if sHelloMes then
        Core.SendToNick(tUser.sNick,"<"..sBot.."> ••• "..sHelloMes.."! •••")
        Core.SendToAll("<"..sBot.."> ••• "..sHelloMes.."! •••")
    end
end
OpConnected = UserConnected
RegConnected = UserConnected

local sBot = "xxx"

local iTimer = 30 -- в минутах

tMessarray = {
[[ ]],

}

function OnStartup()
    tmr = TmrMan.AddTimer (iTimer*60*1000)
end

function OnTimer(tmr)
    Core.SendToAll("<"..sBot.."> "..tMessarray[math.random(1,#tMessarray)])
end

function UserConnected(tUser)
    Core.SendToUser(tUser, "$UserCommand 1 3 Запрос$<%[mynick]> !запрос|")
end
OpConnected,RegConnected = UserConnected,UserConnected

function ChatArrival(tUser, sData)
    local sData = sData:sub(1,-2)
    local s,e, sMsg = sData:find("%b<>%s(.*)$")
    if sMsg:find("!запрос") then
        Core.SendToAll("<"..sBot.."> "..tMessarray[math.random(1,#tMessarray)])  -- если надо отправить всем в чат
--        Core.SendToUser(tUser, "<"..bot.."> "..messarray[math.random(1,#messarray)])  --  если надо отправить только запрашивающему в чат
    end
end