Вопросы Разработчикам Скриптов, вопросы по скриптам (мелкие вопросы)

-- Юзер должен на все три вопроса ответить "да" (без кавычек), иначе - отказ
-- Подачу вопросов, думаю, организуете сами

local sBot = SetMan.GetString(21)
local sMsgToUser1 = "*** Хорошо, уговорил, вот тебе база.."
local sMsgToUser2 = "*** Эээ, мы пошутили, нет у нас никакой базы!"
local sMsgToOpchat1 = " *** Юзер %s принимает все наши условия и достоин допуска к телу базы."
local sMsgToOpchat2 = " *** Юзер %s не согласен с некоторыми или всеми нашими условиями и не может быть допущен к телу нашей базы!"

function UserConnected(tUser)
    Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Действия$<%[mynick]> !me 0%[line:Сообщение] 0%[line:Сообщение 2] 0%[line:Сообщение 3]|")
end
RegConnected = UserConnected
OpConnected = UserConnected

function ChatArrival(tUser, sData)
    local sData = sData:sub(1,-2)
    local sCmd, sAnsw1, sAnsw2, sAnsw3 = sData:match("^%b<>%s+(%S+)%s+(%d%S*)%s+(%d%S*)%s+(%d%S*)")
    local bYes1, bYes2, bYes3 = true, true, true
    if sCmd and sCmd == "!me" then
        bYes1 = YesNo(sAnsw1)
        bYes2 = YesNo(sAnsw2)
        bYes3 = YesNo(sAnsw3)

--    Тут варианты в зависимости от ответов юзера
        if bYes1 and bYes2 and bYes3 then
            Core.SendToOpChat(sMsgToOpchat1:format(tUser.sNick))
            Core.SendToUser(tUser, "<"..sBot.."> "..sMsgToUser1)
--            тут ваши дальнейшие действия относительно юзера (у него все ответы положительные). Например, открываете ему вход в базу :)
        else
            Core.SendToOpChat(sMsgToOpchat2:format(tUser.sNick))
            Core.SendToUser(tUser, "<"..sBot.."> "..sMsgToUser2)
--            тут что ещё сами добавите
        end
        collectgarbage()
        return true
    end
end

function YesNo(answ)
    local b = true
    if answ ~= "0" then
        answ = answ:match"^%d(%S+)"
        if answ ~= "да" then
            b = false
        end
    else
        b = false
    end
    return b
end