ke

---------------------------------
--Game Set-up
---------------------------------
    modeSet = 1
    --[[#0 = Normal || #1 = QnA Only || #2 = TnF Only]]--
    roundTime = true
    --[[#true = Longer Round Time || #false = Shorter Round Time]]--

---------------------------------
--Questions/Statements
---------------------------------
    multipleChoice = {}
    --[[ multipleChoice[#] = {question = "?", answer1 = "A", answer2 = "B", answer3 = "C", correctAnswer = "D", score = 999} ]]--
    trueAndFalse = {}
    --[[ trueAndFalse[#] = {statement = ".", answer = "true 3/false 4", score = 999} ]]--

------List your multipleChoice questions here.
    multipleChoice[1] = {question = "Quién creo Duck land?", answer1 = "Yoab", answer2 = "palacioslau", answer3 = "Maximoya", correctAnswer = "Loremg", score = 999}
    multipleChoice[2] = {question = "Qué miembro ha sido más veces expulsado?", answer1 = "Yoab", answer2 = "Palacioslau", answer3 = "Mmechitass", correctAnswer = "Shockraver", score = 999}
    multipleChoice[3] = {question = "Qué parejas son reales en la tribu?", answer1 = "Yoab y Saranud", answer2 = "Chibilucia y loremg", answer3 = "Maximoya y agentegatu", correctAnswer = "Loremg y Palo", score = 999}
    multipleChoice[4] = {question = "Cuántos puntos obtuvieron los patos momo", answer1 = "0", answer2 = "4", answer3 = "3", correctAnswer = "2", score = 999}
       multipleChoice[5] = {question = "Quién regaló pieles a casi toda la tribu?", answer1 = "Plasmx", answer2 = "José", answer3 = "Yoab", correctAnswer = "Saranud", score = 999}
    multipleChoice[6] = {question = "Catros ama a?", answer1 = "Loremg", answer2 = "THEJKB", answer3 = "anoniimouser", correctAnswer = "Mocodulce", score = 999}
    multipleChoice[7] = {question = "Quién es el miembro que jamás se conecta?", answer1 = "Altdemaxi", answer2 = "Loremg", answer3 = "Agentegatu", correctAnswer = "Nintenducks", score = 999}
    multipleChoice[8] = {question = "Tan fuerte es tu corazón elásticooooo", answer1 = "Muerdo polvo una vez más", answer2 = "Cuidado o lo podrás romper", answer3 = "Cuando lo estiras fuerte ten más cuidadooo", correctAnswer = "Tu espada lo podrá romper", score = 999}
    multipleChoice[9] = {question = "Qué es lo que más dice Mmechitass?", answer1 = "Fuck", answer2 = "perra", answer3 = "zorra", correctAnswer = "Lmao", score = 999}
    multipleChoice[10] = {question = "Cómo se llama el vídeo dedicado a loremg", answer1 = "Loremg is life", answer2 = "Queen Loremg", answer3 = "Pa ti loremg s2", correctAnswer = "Princess Loremg", score = 999}
    multipleChoice[11] = {question = "Miembro más fresudo", answer1 = "Yoab", answer2 = "Loremg", answer3 = "Chibilucia", correctAnswer = "Saranud", score = 999}
    multipleChoice[12] = {question = "Qué patos fueron escogidos para la 2da guerra de PATOS", answer1 = "Loremg is life", answer2 = "Queen Loremg", answer3 = "Pa ti loremg s2", correctAnswer = "Princess Loremg", score = 999}
    multipleChoice[13] = {question = "Cuántas secciones tiene el subforo de la tribu", answer1 = "4", answer2 = "2", answer3 = "3", correctAnswer = "6", score = 999}
    multipleChoice[14] = {question = "Quién ha dejado la tribu más veces?", answer1 = "Shockraver", answer2 = "Girlsexi", answer3 = "Chibilucia", correctAnswer = "Yoab", score = 999}
    multipleChoice[15] = {question = "Quién se hace creer la más puta", answer1 = "Chibilucia", answer2 = "Girlsexi", answer3 = "Neelfr", correctAnswer = "Mmechitass", score = 999}
multipleChoice[16] = {question = "Quién canta el taxi en la tribu", answer1 = "Maxi", answer2 = "Girlsexi", answer3 = "Neelfr", correctAnswer = "Saranud", score = 999}
multipleChoice[17] = {question = "Quién murió en la novela de tebi", answer1 = "Chibilucia", answer2 = "Yoab", answer3 = "Loremg", correctAnswer = "Estebidiez", score = 999}
multipleChoice[18] = {question = "Quién se hace creer la más puta", answer1 = "Chibilucia", answer2 = "Girlsexi", answer3 = "Neelfr", correctAnswer = "Mmechitass", score = 999}
multipleChoice[19] = {question = "En la tribu quién insulta más a irwingxxxxxxx?", answer1 = "Loremg", answer2 = "Girlsexi", answer3 = "Chibilucia", correctAnswer = "Maximoya", score = 999}
multipleChoice[20] = {question = "Quién es el miembro más reciente en la tribu?", answer1 = "Loremg", answer2 = "Dadymevi", answer3 = "Morita", correctAnswer = "Yolomaria", score = 999}
multipleChoice[21] = {question = "En los juegos de shock cuál es el minijuego más pedido", answer1 = "Crowdsurf", answer2 = "Escapa de tebi", answer3 = "Prophunt", correctAnswer = "Cl", score = 999}
multipleChoice[22] = {question = "Quién es el/la que publica más en el hilo discusiones de la tribu", answer1 = "Loremg", answer2 = "Neelfr", answer3 = "Yoab", correctAnswer = "Chibilucia", score = 999}
multipleChoice[23] = {question = "Miembro que más habla", answer1 = "Chibilucia", answer2 = "Agentegatu", answer3 = "Neelfr", correctAnswer = "Maximoya", score = 999}
multipleChoice[24] = {question = "Irwing es?", answer1 = "hermosa", answer2 = "bella", answer3 = "guapa y dibuja hermoso", correctAnswer = "Ninguna de las anteriores", score = 999}
multipleChoice[25] = {question = "Una frase de Loremg es?", answer1 = "si la vida te da limones haz limonada", answer2 = "XDDDDDD", answer3 = "Princess loremg", correctAnswer = "Shock menstrua fresas", score = 999}
multipleChoice[26] = {question = "Chibi es de", answer1 = "Loremg", answer2 = "Yoab", answer3 = "Neelfr", correctAnswer = "España", score = 999}
multipleChoice[27] = {question = "De qué país es Loremg", answer1 = "Chile", answer2 = "Haiti", answer3 = "Colombia", correctAnswer = "Argentina", score = 999}
multipleChoice[28] = {question = "Chibilucia aparece", answer1 = "Bailando salsa choke", answer2 = "Comer pasta", answer3 = "Follar con loremg", correctAnswer = "Bailar harlem shake", score = 999}
multipleChoice[29] = {question = "De qué país es yoab", answer1 = "De algún país de áfrica", answer2 = "España", answer3 = "EEUU", correctAnswer = "Colombia", score = 999}
multipleChoice[30] = {question = "Cuántos puntos tienes en estos momentos", answer1 = "1000", answer2 = "Más de 9000 - vegeta", answer3 = "1000", correctAnswer = "algún pinche número no manches", score = 999}
multipleChoice[31] = {question = "Cómo es el ritmo de Princess Loremg", answer1 = "tintintin", answer2 = "Fiufiufiu", answer3 = "paparipanpon", correctAnswer = "tuntuntunrutuntuntun", score = 999}
multipleChoice[32] = {question = "Amante de plasmx", answer1 = "Loremg", answer2 = "Todos", answer3 = "Palo", correctAnswer = "tu también", score = 999}
multipleChoice[33] = {question = "Qué Admin nos visitó", answer1 = "Melibellule", answer2 = "Galaktine", answer3 = "Tu tío Tigrounette", correctAnswer = "Pikashu", score = 999}
multipleChoice[34] = {question = "Quién hace de yuno en noche de AIOH", answer1 = "Chibilucia", answer2 = "Agentegatu", answer3 = "Yunowears", correctAnswer = "Maximoya", score = 999}
----List you trueAndFalse statements here.
    trueAndFalse[1] = {statement = "lORE ES PUTA?", answer = 4, score = 999}
    trueAndFalse[2] = {statement = "Chibi es la más amada de la tribu?", answer = 4, score = 999}
    trueAndFalse[3] = {statement = ".", answer = 4, score = 999}
    trueAndFalse[4] = {statement = ".", answer = 4, score = 999}

---------------------------------
--Script Init.
---------------------------------
    --Player and Text
    player = {}
    textBox = {}
    tpZONE = {}
    pID = 1000
    mode = 0 --Reference modeSet for values.

    --Game Loop
    sec = 0 --Seconds
    rnd = 0 --Round
    rnm = "" --Round Name
    gm = 1 --Game Number
    ql = 0 --Last Question
    tl = 0 --Last Statement
    ca = 0 --Correct Answer
    sc = 0 --

    --Reset Scores
    for n,p in pairs(tfm.get.room.playerList) do
        tfm.exec.setPlayerScore(n, 0, false)
    end

    --Whenever a player enters the room || A new round starts
    function eventNewPlayer(n)
        player[n] =
        {
            id = pID,
            chosen = true,
            answer = 0
        }
        pID = pID + 100
    end

    for p in pairs(tfm.get.room.playerList) do
        eventNewPlayer(p)
    end

    function setChosen(n,b)
        player[n].chosen = b
    end

---------------------------------
--Every New Round
---------------------------------
    --Part 1
    function reset(m)
        mode = m
        local map = "0"

        --Reset boxes
        for i=1,#textBox,1 do ui.removeTextArea(i,nil)
            table.remove(textBox,i)
        end

        --Choosing a map.
        if mode == 1 then
            local maps = {"5826217"}
            map = maps[math.random(#maps)]
        elseif mode == 2 then
            local maps = {"5838948"}
            map = maps[math.random(#maps)]
        end

        --Start game
        tfm.exec.disableAutoShaman(true)
        tfm.exec.newGame(map)
        tfm.exec.setGameTime(0)
    end

    --Part 2
    function eventNewGame()
        tfm.exec.disableAutoNewGame(true)
        tfm.exec.disableAutoScore(true)
        tfm.exec.disableAfkDeath(true)
        tfm.exec.disableAutoTimeLeft(true)
        for p in pairs(tfm.get.room.playerList) do
            eventNewPlayer(p)
        end

        --Finding the objects for textBoxes and teleport zones
        local xml = tfm.get.room.xmlMapInfo.xml
        local xmlGROUNDS = xml:match('<S>[^´]+</S>'):gsub("<S>","")
        for p in xmlGROUNDS:gmatch('<S[^/]+/>') do
            for i=0,15,1 do
                if p:match(string.format('lua="%s"',tostring(i))) then
                    local l = p:match('L="[0-9]+"'):gsub('L="',''):gsub('"','')-2
                    local h = p:match('H="[0-9]+"'):gsub('H="',''):gsub('"','')
                    local x = p:match('X="[0-9]+"'):gsub('X="',''):gsub('"','')-(l/2)
                    local y = p:match('Y="[0-9]+"'):gsub('Y="',''):gsub('"','')-(h/2)+1
                    if mode == 1 then
                        if i == 1 then textBox[1] = {x = x, y = y, w = l, h = h, event = "Q", txt = "Question will be Here\n<font color='#CB546B'>Click for Help</font>"} end
                        if i == 2 then textBox[2] = {x = x, y = y, w = l, h = h, event = "T", txt = "Timer"} end
                        if i == 3 then textBox[3] = {x = x, y = y, w = l, h = h, event = "RT", txt = "Answer Red"} end
                        if i == 4 then textBox[4] = {x = x, y = y, w = l, h = h, event = "BF", txt = "Answer Blue"} end
                        if i == 5 then textBox[5] = {x = x, y = y, w = l, h = h, event = "G", txt = "Answer Green"} end
                        if i == 6 then textBox[6] = {x = x, y = y, w = l, h = h, event = "O", txt = "Answer Orange"} end
                    elseif mode == 2 then
                        if i == 1 then textBox[1] = {x = x, y = y, w = l, h = h, event = "Q", txt = "Question will be Here\n<font color='#CB546B'>Click for Help</font>"} end
                        if i == 2 then textBox[2] = {x = x, y = y, w = l, h = h, event = "T", txt = "Timer"} end
                        if i == 3 then textBox[3] = {x = x, y = y, w = l, h = h, event = "RT", txt = "True"} end
                        if i == 4 then textBox[4] = {x = x, y = y, w = l, h = h, event = "BF", txt = "False"} end
                    end
                    if i >= 10 then
                        x = p:match('X="[0-9]+"'):gsub('X="',''):gsub('"','')
                        y = p:match('Y="[0-9]+"'):gsub('Y="',''):gsub('"','')
                        tpZONE[i] = {x1 = x-(l/2), x2 = x+(l/2), y1 = y-(h/2), y2 = y+(h/2)}
                    end
                end
            end
        end

        local tbS = "<p align = 'center'><b>"
        local tbE = "</b></p>"
        for i = 1, #textBox, 1 do
            local cc = 0x010101
            if i == 2 then
                cc = 0x000A59
            elseif i >= 3 then
                cc = 0x010101
            end
            ui.addTextArea(i,
                string.format("%s<a href='event:%s'>%s</a>%s",tbS,textBox[i].event,textBox[i].txt,tbE)
            ,nil,textBox[i].x,textBox[i].y,textBox[i].w,textBox[i].h,cc,cc,1,false)
        end
    end

---------------------------------
--Buttons
---------------------------------
    function eventTextAreaCallback(id , n, event)
        if player[n].chosen == false then
            --Set chosen
            if id >= 3 and id <= 6 then
                player[n].answer = id
                setChosen(n,true)
            end
            --Move to a tp zone
            if event == "RT" then tfm.exec.movePlayer(n,math.random(tpZONE[10].x1,tpZONE[10].x2),math.random(tpZONE[10].y1,tpZONE[10].y2),false) end
            if event == "BF" then tfm.exec.movePlayer(n,math.random(tpZONE[11].x1,tpZONE[11].x2),math.random(tpZONE[11].y1,tpZONE[11].y2),false) end
            if event == "G" then tfm.exec.movePlayer(n,math.random(tpZONE[12].x1,tpZONE[12].x2),math.random(tpZONE[12].y1,tpZONE[12].y2),false) end
            if event == "O" then tfm.exec.movePlayer(n,math.random(tpZONE[13].x1,tpZONE[13].x2),math.random(tpZONE[13].y1,tpZONE[13].y2),false) end
        end
    end

---------------------------------
--Game Loop
---------------------------------
    function eventLoop()
        ui.updateTextArea(2,"<b><p align = 'center'>Time: "..math.ceil(sec).." "..rnm.."</p></b>")
        if sec > 0 then
            sec = sec-0.5
        else
            sec = 0
        end

        --Round Start
        if rnd == 0 and sec == 0 then
            --Set map
            if modeSet == 0 then
                if gm < 3 then
                    reset(1)
                elseif gm == 3 then
                    reset(2)
                    gm = 0
                end
            elseif modeSet == 1 then
                reset(1)
            elseif modeSet == 2 then
                reset(2)
            end

            --Set values, and no choosing
            sec,rnd,rnm,gm,ca = 3,1,"Get Ready!",gm+1,0
            if roundTime == false then sec = 10 end
            for n,p in pairs(tfm.get.room.playerList) do
                setChosen(n,true)
            end
        end

        --Question
        if rnd == 1 and sec == 0 then
            sec,rnd,rnm = 15,2,"Escoge..."
            if roundTime == false then rnd = 3 sec = 15 end
            local tbS,tbE = "<b><p align='center'>","</p></b>"

            if mode == 1 then
                local q = math.random(1,#multipleChoice)
                if q == ql then
                    q = math.random(1,#multipleChoice)
                 else
                    ql = q
                end
                ui.updateTextArea(1,string.format("%s<a href='event:%s'>%s\nScore: %s</a>%s",tbS,textBox[1].event,multipleChoice[q].question,multipleChoice[q].score,tbE))
                sc = multipleChoice[q].score
                local df,at = 0,{}
                for i=3,6,1 do at[i] = {v=i} end
                while df == 0 do df = at[math.random(3,6)].v end if df ~= 0 then
                    ui.updateTextArea(df,string.format("%s<a href='event:%s'>%s</a>%s",tbS,textBox[df].event,multipleChoice[q].answer1,tbE)) at[df].v = 0 df = 0 end
                while df == 0 do df = at[math.random(3,6)].v end if df ~= 0 then
                    ui.updateTextArea(df,string.format("%s<a href='event:%s'>%s</a>%s",tbS,textBox[df].event,multipleChoice[q].answer2,tbE)) at[df].v = 0 df = 0 end
                while df == 0 do df = at[math.random(3,6)].v end if df ~= 0 then
                    ui.updateTextArea(df,string.format("%s<a href='event:%s'>%s</a>%s",tbS,textBox[df].event,multipleChoice[q].answer3,tbE)) at[df].v = 0 df = 0 end
                while df == 0 do df = at[math.random(3,6)].v end if df ~= 0 then
                    ui.updateTextArea(df,string.format("%s<a href='event:%s'>%s</a>%s",tbS,textBox[df].event,multipleChoice[q].correctAnswer,tbE)) ca = df at[df].v = 0 df = 0 end
            elseif mode == 2 then
                local q = math.random(1,#trueAndFalse)
                if q == tl then
                    q = math.random(1,#trueAndFalse)
                else
                    tl = q
                end
                ui.updateTextArea(1,string.format("%s<a href='event:%s'>%s     Score: %s</a>%s",tbS,textBox[1].event,trueAndFalse[q].statement,trueAndFalse[q].score,tbE))
                ca,sc = trueAndFalse[q].correctAnswer,trueAndFalse[q].score
            end
            for n,p in pairs(tfm.get.room.playerList) do
                setChosen(n,false)
            end
        end

        if rnd == 2 and sec == 0  then --Final Answer
            sec,rnd,rnm = 1,3,"Seguro puedes cambiar?"
            for n,p in pairs(tfm.get.room.playerList) do
                setChosen(n,false)
                if player[n].answer == 0 then
                    tfm.exec.killPlayer(n)
                end
            end
        end

        if rnd == 3 and sec == 0 then --Round End
            sec,rnd,rnm = 3,0,"winners!"
            if roundTime == false then sec = 5 end
            for n,p in pairs(tfm.get.room.playerList) do
                setChosen(n,true)
                if player[n].answer ~= ca  then
                    tfm.exec.killPlayer(n)
                else
                    tfm.exec.giveCheese(n)
                    tfm.exec.setPlayerScore(n,sc,true)
                end
            end
        end
    end

-------------------------------
--The End...
-------------------------------