Версия для печати темы

if frmHub then dofile(frmHub:GetPtokaXLocation().."scripts/old_api.lu")
elseif not Core then error("Запуск скрипта возможен только при запущенном хабе!",1)
else dofile(Core.GetPtokaXPath().."scripts/old_api.lu") end
(код изменён для использования под обе версии API)

-- Основные настройки
sBotName = "[Инфо]м&ж"            -- Имя бота
bBotReg = true                -- Регистрировать бота на хабе?
bBotOP = true                -- Бот с ключиком?
sBotDesc = "Бот, показывающий ваш пол"    -- Описание бота
sBotEmail = "steelseries-magadan@mail.ru"        -- Email бота

sMenuName = "Ваш пол"    --Имя меню
bSendIfNotSet = true    --Отправлять юзеру сообщение при входе, если пол не выбран

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

-- Как будет выглядить пол в описании?
tSex = {
    o = "[?]",                -- Пол не указан
    m = "[М]",                -- Мужской пол
    w = "[Ж]",                -- Женский пол
}

-- Доступ к командам
pUser = {
    [0] = 1,    -- =[Master]=
    [1] = 1,    -- =[OP]=
    [2] = 1,    -- =[ViP]=
    [3] = 1,    -- =[Reg]=
      [-1] = 1,   -- =[UnReg]=
}

-- Команды
cMySex = "mysex"
cSexList = "sexlist"
cSexListOnline = "sexlistonline"

--###################################################################################

tTimers = {}
tUsers = {}
function Core. OnStartup()
    if sBotName == "" then
        sBotName = SetMan.GetString(21)
    elseif bBotReg then
        Core.RegBot(sBotName,sBotDesc,sBotEmail,bBotOP)
    end
    fUsers = Core.GetPtokaXPath().."scripts/MySex.tbl"
    if loadfile(fUsers) then dofile(fUsers) end
end

function Core. UserConnected(user)
    if not tUsers[user.sNick] and bSendIfNotSet then
        Core.SendToUser(user,"<"..sBotName.."> Пожалуйста, укажите ваш пол!")
    end
    for i,v in pairs(Core.GetOnlineUsers(true)) do
        local s,e,other = string.find(v.sMyInfoString, "%$MyINFO%s$ALL%s%S+%s(.*)$")
        Core.SendToUser(user,"$MyINFO $ALL "..v.sNick.." "..(tSex[tUsers[v.sNick]] or tSex.o).." "..other)
    end
    if pUser[user.iProfile] == 1 then
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Указать свой пол\\Мужской$<%[mynick]> !"..cMySex.." m|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Указать свой пол\\Женский$<%[mynick]> !"..cMySex.." w|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Посмотреть пол юзеров$<%[mynick]> !"..cSexList.." %[line:m=мальчики/w=девочки или оставьте строку пустой]|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Посмотреть пол юзеров онлайн$<%[mynick]> !"..cSexListOnline.." %[line:m=мальчики/w=девочки или оставьте строку пустой]|")
    end
end

Core. OpConnected = UserConnected
Core. RegConnected = UserConnected

function SendInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        local s,e,other = string.find(user.sMyInfoString, "%$MyINFO%s$ALL%s%S+%s(.*)$")
        Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..(tSex[tUsers[user.sNick]] or tSex.o).." "..other)
        tTimers[tmr] = nil
    end
    TmrMan.RemoveTimer(tmr)
end

function Core. MyINFOArrival(user,data)
    local tmr = TmrMan.AddTimer(iSendTimer, "SendInfo")
    tTimers[tmr] = user.sNick
end

function Core. ChatArrival(user,sData)
    if pUser[user.iProfile] == 1 then
        local sData = string.sub(sData, 1, -2)
        local s,e,cmd = string.find(sData, "%b<>%s+[%!%+%?%#](%S+)")
        if tCmds[cmd] then
            tCmds[cmd](user, sData);
            return true
        end
    end
end

tCmds = {
    [cMySex] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        if arg1 then
            local s,e,other = string.find(Core.GetUserValue(user,1), "%$MyINFO%s$ALL%s%S+%s(.*)$")
            if arg1 == "m" then
                tUsers[user.sNick] = "m"
                Save()
                Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..tSex.m.." "..other)
                Core.SendToUser(user,"<"..sBotName.."> Вы выбрали пол: мужской.")
            elseif arg1 == "w" then
                tUsers[user.sNick] = "w"
                Save()
                Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..tSex.w.." "..other)
                Core.SendToUser(user,"<"..sBotName.."> Вы выбрали пол: женский.")
            else
                Core.SendToUser(user,"<"..sBotName.."> Вы не указали свой пол! Правильно: !mysex <m/w>")
            end
        end
    end,
    [cSexList] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        local bm, bw = true, true
        if arg1    then
            if arg1 == "m" then
                bw = false
            elseif arg1 == "w" then
                bm = false
            end
        end
        local msg,msgm,msgw,cm,cw = "","Список мальчиков: ","Список девочек: ","",""
        for i,v in pairs(tUsers) do
            if bm and v == "m" then
                msgm = msgm..cm..i
                cm = ", "
            end
            if bw and v == "w" then
                msgw = msgw..cw..i
                cw = ", "
            end
        end
        if bm then
            msg = msg.."\n\n"..msgm
        end
        if bw then
            msg = msg.."\n\n"..msgw
        end
        Core.SendPmToUser(user,sBotName,msg)
        collectgarbage("collect")
    end,
    [cSexListOnline] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        local bm, bw = true, true
        if arg1    then
            if arg1 == "m" then
                bw = false
            elseif arg1 == "w" then
                bm = false
            end
        end
        local msg,msgm,msgw,cm,cw = "","Мальчики онлайн: ","Девочки онлайн: ","",""
        for i,v in pairs(Core.GetOnlineUsers(true)) do
            if bm and tUsers[v.sNick] and tUsers[v.sNick] == "m" then
                msgm = msgm..cm..v.sNick
                cm = ", "
            end
            if bw and tUsers[v.sNick] and tUsers[v.sNick] == "w" then
                msgw = msgw..cw..v.sNick
                cw = ", "
            end
        end
        if bm then
            msg = msg.."\n\n"..msgm
        end
        if bw then
            msg = msg.."\n\n"..msgw
        end
        Core.SendPmToUser(user,sBotName,msg)
        collectgarbage("collect")
    end,
}

function Save()
    local hFile = io.open(fUsers, "w")
    if hFile then
        Serialize(tUsers, "tUsers", hFile);
        hFile:close();
    end
end

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

if frmHub then dofile(frmHub:GetPtokaXLocation().."scripts/old_api.lu")
elseif not Core then error("Запуск скрипта возможен только при запущенном хабе!",1)
else dofile(Core.GetPtokaXPath().."scripts/old_api.lu") end

-- Основные настройки
sBotName = "[Инфо]м&ж"            -- Имя бота
bBotReg = true                -- Регистрировать бота на хабе?
bBotOP = true                -- Бот с ключиком?
sBotDesc = "Бот, показывающий ваш пол"    -- Описание бота
sBotEmail = "steelseries-magadan@mail.ru"        -- Email бота

sMenuName = "Ваш пол"    --Имя меню
bSendIfNotSet = true    --Отправлять юзеру сообщение при входе, если пол не выбран

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

-- Как будет выглядить пол в описании?
tSex = {
    o = "[?]",                -- Пол не указан
    m = "[М]",                -- Мужской пол
    w = "[Ж]",                -- Женский пол
}

-- Доступ к командам
pUser = {
    [0] = 1,    -- =[Master]=
    [1] = 1,    -- =[OP]=
    [2] = 1,    -- =[ViP]=
    [3] = 1,    -- =[Reg]=
      [-1] = 1,   -- =[UnReg]=
}

-- Команды
cMySex = "mysex"
cSexList = "sexlist"
cSexListOnline = "sexlistonline"

--###################################################################################

tTimers = {}
tUsers = {}
function Core.OnStartup()
    if sBotName == "" then
        sBotName = SetMan.GetString(21)
    elseif bBotReg then
        Core.RegBot(sBotName,sBotDesc,sBotEmail,bBotOP)
    end
    fUsers = Core.GetPtokaXPath().."scripts/MySex.tbl"
    if loadfile(fUsers) then dofile(fUsers) end
end

function Core.UserConnected(user)
    if not tUsers[user.sNick] and bSendIfNotSet then
        Core.SendToUser(user,"<"..sBotName.."> Пожалуйста, укажите ваш пол!")
    end
    for i,v in pairs(Core.GetOnlineUsers(true)) do
        local s,e,other = string.find(v.sMyInfoString, "%$MyINFO%s$ALL%s%S+%s(.*)$")
        Core.SendToUser(user,"$MyINFO $ALL "..v.sNick.." "..(tSex[tUsers[v.sNick]] or tSex.o).." "..other)
    end
    if pUser[user.iProfile] == 1 then
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Указать свой пол\\Мужской$<%[mynick]> !"..cMySex.." m|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Указать свой пол\\Женский$<%[mynick]> !"..cMySex.." w|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Посмотреть пол юзеров$<%[mynick]> !"..cSexList.." %[line:m=мальчики/w=девочки или оставьте строку пустой]|")
        Core.SendToUser(user,"$UserCommand 1 3 "..sMenuName.."\\Посмотреть пол юзеров онлайн$<%[mynick]> !"..cSexListOnline.." %[line:m=мальчики/w=девочки или оставьте строку пустой]|")
    end
end

Core.OpConnected = Core.UserConnected
Core.RegConnected = Core.UserConnected

function SendInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        local s,e,other = string.find(user.sMyInfoString, "%$MyINFO%s$ALL%s%S+%s(.*)$")
        Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..(tSex[tUsers[user.sNick]] or tSex.o).." "..other)
        tTimers[tmr] = nil
    end
    TmrMan.RemoveTimer(tmr)
end

function Core.MyINFOArrival(user,data)
    local tmr = TmrMan.AddTimer(iSendTimer, "SendInfo")
    tTimers[tmr] = user.sNick
end

function Core.ChatArrival(user,sData)
    if pUser[user.iProfile] == 1 then
        local sData = string.sub(sData, 1, -2)
        local s,e,cmd = string.find(sData, "%b<>%s+[%!%+%?%#](%S+)")
        if tCmds[cmd] then
            tCmds[cmd](user, sData);
            return true
        end
    end
end

tCmds = {
    [cMySex] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        if arg1 then
            local s,e,other = string.find(Core.GetUserValue(user,1), "%$MyINFO%s$ALL%s%S+%s(.*)$")
            if arg1 == "m" then
                tUsers[user.sNick] = "m"
                Save()
                Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..tSex.m.." "..other)
                Core.SendToUser(user,"<"..sBotName.."> Вы выбрали пол: мужской.")
            elseif arg1 == "w" then
                tUsers[user.sNick] = "w"
                Save()
                Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..tSex.w.." "..other)
                Core.SendToUser(user,"<"..sBotName.."> Вы выбрали пол: женский.")
            else
                Core.SendToUser(user,"<"..sBotName.."> Вы не указали свой пол! Правильно: !mysex <m/w>")
            end
        end
    end,
    [cSexList] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        local bm, bw = true, true
        if arg1    then
            if arg1 == "m" then
                bw = false
            elseif arg1 == "w" then
                bm = false
            end
        end
        local msg,msgm,msgw,cm,cw = "","Список мальчиков: ","Список девочек: ","",""
        for i,v in pairs(tUsers) do
            if bm and v == "m" then
                msgm = msgm..cm..i
                cm = ", "
            end
            if bw and v == "w" then
                msgw = msgw..cw..i
                cw = ", "
            end
        end
        if bm then
            msg = msg.."\n\n"..msgm
        end
        if bw then
            msg = msg.."\n\n"..msgw
        end
        Core.SendPmToUser(user,sBotName,msg)
        collectgarbage("collect")
    end,
    [cSexListOnline] = function(user, sData)
        local s,e,arg1 = string.find(sData, "%b<>%s+%S+%s+(%S+)")
        local bm, bw = true, true
        if arg1    then
            if arg1 == "m" then
                bw = false
            elseif arg1 == "w" then
                bm = false
            end
        end
        local msg,msgm,msgw,cm,cw = "","Мальчики онлайн: ","Девочки онлайн: ","",""
        for i,v in pairs(Core.GetOnlineUsers(true)) do
            if bm and tUsers[v.sNick] and tUsers[v.sNick] == "m" then
                msgm = msgm..cm..v.sNick
                cm = ", "
            end
            if bw and tUsers[v.sNick] and tUsers[v.sNick] == "w" then
                msgw = msgw..cw..v.sNick
                cw = ", "
            end
        end
        if bm then
            msg = msg.."\n\n"..msgm
        end
        if bw then
            msg = msg.."\n\n"..msgw
        end
        Core.SendPmToUser(user,sBotName,msg)
        collectgarbage("collect")
    end,
}

function Save()
    local hFile = io.open(fUsers, "w")
    if hFile then
        Serialize(tUsers, "tUsers", hFile);
        hFile:close();
    end
end

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