[TFM] Untitled

--Bolodefchoco << Criador da script!
--03/12/2015

--[[ Versão BETA de jogos e respostas.
Se 50% da sala digitar /skip no chat textArea, a pergunta será pulada. (Caso os 50% dê float, será usado math.ceil)
]]--

perguntas = {
    novato = {
        atualidade = {
            {'Em que estado ocorreu o ataque terrorista das torres gêmeas?','Nova York'},
            {'Qual o nome dos terroristas que atacaram a França em 2015?','Islâmicos'},
            {'Como se chama a moeda oficial usada nos Estados Unidos da América?','Dólar'},
        };
        ciencia = {
            {'Onde o embrião se desenvolve no corpo da mãe?','Útero'},
            {'Como se chama o médico que cuida do olhos?','Oftalmologista'},
            {'Como se chama o triângulo que tem um ângulo reto?','Escaleno'},
        };
        historia = {
            {'Qual o nome do povo que vivia no Brasil antes dos portugueses?','Indígenas'},
            {'Em qual lugar da fazenda ficavam alojados os escravos?','Senzala'},
        };
        entretenimento = {
            {'Qual a revista sensual mais famosa do mundo?','Playboy'},
            {'Em Harry Potter e a Pedra Filosofal que casa ganhou a taça das casas?','Grifinória'},
        };
        portugues = {
            {'Adjetivos são usados para dar...','Qualidades'},
            {'Qual dessas duas formas está correta: previlégio ou privilégio?','Privilégio'},
            {'Qual o coletivo de porcos?','Varas'},
            {'Qual o coletivo de lobos?','Alcatéia'},
        };
        rachacuca = {
            {'Ema ema ema, qual o nome da clara do ovo?','Clara'},
            {'Complete: Bob esponja ______','Calça Quadrada'},
        };
        geografia = {
            {'A Itália fica em qual continente?','Europeu'},
            {'Qual a moeda do Japão?','Iene'},
            {'Quantos oceanos existem na Terra?','3'},
    };
    };
    sabixao = {
        atualidade = {
            {'Como se chama a primeira ovelha clonada?','Dolly'},
            {'Qual dos anões de Branca de Neve é mudo?','Dunga'},
            {'Quantos são os pecados capitais?','7'},
        };
        ciencia = {
            {'Qual é a fórmula mais famosa de Einstein?','e=mc²'},
            {'Como se chama a unidade de medida do som?','Decibel'},
            {'Em que parte do nosso corpo existe um osso chamado Martelo?','No ouvido'},
        };
        historia = {
            {'Em que ano foi dado o golpe que instituiu o regime militar no Brasil?','1964'},
            {'Em que ano foi descoberto a América?','1492'},
        };
        entretenimento = {
            {'Qual o nome do cantor com mais views no youtube?','Psy'},
            {'Quem criou o Menino Maluquinho?','Ziraldo'},
        };
        portugues = {
            {'Qual região a palavra JERIMUM simboliza ABÓBORA?','Nordeste'},
            {'Qual o plural da palavra troféu?','Troféus'},
        };
        rachacuca = {
            {'Haviam quatro filhas: Joana, Maria, Joaquina, Marta e Eu. Oque sou Eu?','Adotada'},
            {'O que é que tem QUATRO letras e tirando duas fica ONZE?','TaXI'},
            {'Quem faz saltos sensacionais sem tirar os pés do chão?','O sapateiro'},
        };
        geografia = {
            {'Qual o nome dos dois países que ficam na Península Ibérica?','Portugal e Espanha'},
            {'Qual a maior ilha do mundo?','Groenlândia'},
    };
    };
    fera = {
        atualidade = {
            {'Qual a primeira emissora de TV inaugurada no Brasil?','TV Tupi'},
            {'Quem liderava os três mosqueteiros?','D. Artagnan'},
            {'O cantor Mick Jagger pertence a qual grupo de rock?','Rolling Stones'},
        };
        ciencia = {
            {'Qual o nome da estação espacial internacional?','ISS'},
            {'Como se chama o médico especializado em tratamento de doenças da pele?','Dermatologista'},
            {'Qual o mamífero que voa?','Morcego'},
        };
        historia = {
            {'Qual o nome do primeiro presidente do Brasil?','Marechal Deodoro da Fonseca'},
            {'Como se chamou o primeiro avião feito por Santos Dumont?','14 bis'},
            {'"Saio da vida para entrar na história". Quem escreveu essa frase em sua corta-testamento?','Getúlio Vargas'},
        };
        entretenimento = {
            {'Smaug pertence a que filme/saga?','Hobbit'},
            {'Quem matou Fish na série Gotham?','O Penguim'},
        };
        portugues = {
            {'Qual o nome dado à verbos que não podem ser conjugados na primeira pessoa?','Verbos Defectivos'},
            {'Qual o plural de calça cor-de-rosa?','Calças cor-de-rosa'},
        };
        rachacuca = {
            {'Oque é um microfone? Verdadeiro ou Falso','Falso'},
            {string.reverse('1 + 1 - 1 + 2 - 1 + 2 + 3?'),'7'},
            {'O que acontece com uma vaca que faz muito exercício físico?','malhada'},
        };
        geografia = {
            {'Qual a composição do granito?','Mica,quartzo e feldspato'},
        };
    };
}

add = ui.addTextArea
data = tfm.get.room.playerList
canAnswer = false
newQuestion = true
skip = 0
mice={}
q={}
eventNewPlayer=function(n)
    if not mice[n] then mice[n]={skip=false} end
    table.insert(q,n)
end
for n in pairs (data) do eventNewPlayer(n) end

math.percent=function(val,inVal)
    return (val/100)*inVal
end

table.gsub=function(string,tableInput,tableOutput)
    for k,v in pairs (tableInput) do
        for i = 1,#tableOutput do
            string = string:gsub(v,tableOutput[k])
        end
    end
    return string
end
_accents = {"á","à","ä","â","ã","é","è","ë","ê","í","ì","î","ó","ò","ö","ô","õ","ú","ù","ü","û","Á","À","Ä","Â","Ã","É","È","Ë","Ê","Í","Ì","Î","Ó","Ò","Ö","Ô","Õ","Ú","Ù","Ü","Û"}
_disabledAccents = {"a","a","a","a","a","e","e","e","e","i","i","i","o","o","o","o","o","u","u","u","u","A","A","A","A","A","E","E","E","E","I","I","I","O","O","O","O","O","U","U","U","U"}

randomQuestion=function(level,categoria)
    level = level or 0
    categoria = categoria or 0
    _lvl = {"novato","sabixao","fera"}
    _cat = {"atualidade","ciencia","historia","entretenimento","portugues","rachacuca","geografia"}
    if level ~= 0 then
        level = _lvl[level]
    else
        level = _lvl[math.random(#_lvl)]
    end
    if categoria ~= 0 then
        categoria = _cat[categoria]
    else
        categoria = _cat[math.random(#_cat)]
    end
    local choice = perguntas[level][categoria][math.random(#perguntas[level][categoria])]
    _G.pergunta = choice[1]
    _G.resposta = choice[2]
end

chat=function(message,title,player,x,y,w,h,p)
    message = message or ""
    _G.message = message
    title = title or "Perguntas & Respostas"
    title = "</B></S></I><font face='Lucida Console'><p align='center'><V>"..title
    if player == nil then
        for i in pairs (data) do
            i = player
        end
    end
    x = x or 300-150/2
    y = y or 80
    w = w or 349
    h = h or 200
    ui.addPopup(0,2,'',p,x-1,y+200,w+1,true)
    add(0,'',player,x,y,w,h,0x324650,0x212E35,1,true)
    add(1,message,player,x+4,y+5,w-9,h-10,1,1,0,true)
    add(2,title,n,x-1,y-20,w+1,h-185,0x212E35,0x212E35,1,true)
end

eventNewPlayer=function(n)
    chat(message,title,nil,x,y,w,h,n)
end
for n in pairs (data) do
    eventNewPlayer(n)
end

eventPopupAnswer=function(i,n,a)
    if i == 0 then
        if canAnswer then
            a:gsub("http","*")
            a:gsub('<','&lt;')
            a:gsub("://","*")
            local A = table.gsub(a,_accents,_disabledAccents)
            resposta = table.gsub(resposta,_accents,_disabledAccents)
            if a ~= "" then
                if A:lower() == resposta:lower() then
                    chat('<V>['..n..'] <VP>'..a..'\n'..message,title,nil,x,y,w,h,n)
                    chat('<VP><B>+1</B> - <J>'..n..'\n'..message,title,nil,x,y,w,h,n)
                    tfm.exec.setPlayerScore(n,1,true)
                    newQuestion = true
                    canAnswer = false
                else
                    if a == "/skip" and mice[n].skip==false then
                        skip = skip + 1
                        mice[n].skip=true
                        chat(message,title,player,x,y,w,h,n)
                        if skip >= math.percent(50,#q) then
                            chat('<ROSE> ** Skip **</ROSE> <BL> - <PT> A resposta era: '..resposta..'\n'..message,title,nil,x,y,w,h)
                            newQuestion = true
                            canAnswer = false
                            skip = 0
                        end
                    elseif #A > 3 and resposta:lower():find(a:lower()) then
                        chat('<V>['..n..'] <R>'..a..'\n'..message,title,nil,x,y,w,h,n)
                        chat('<R>Você está quase <J>'..n..'!\n'..message,title,nil,x,y,w,h,n)
                    else
                        chat('<V>['..n..'] <R>'..a..'\n'..message,title,nil,x,y,w,h,n)
                    end
                end
            else
                chat(message,title,player,x,y,w,h,n)
            end
            if #message > 1999 then
                message = ""
                message = "<ROSE>[Chat] <VP>Clear #2000"
                chat(message,title,player,x,y,w,h,n)
                newQuestion = true
                canAnswer = false
            end
        end
    end
end

eventLoop=function()
    if newQuestion then
        randomQuestion(0,0)
        chat("<J>• <B>"..pergunta.."</B>\n"..message,title,nil,x,y,w,h,n)
        newQuestion = false
        canAnswer = true
        for n in pairs (data) do mice[n].skip=false end
        skip=0
    end
end