quiz

local c = require("component").chat_box
local s = c.say
local event = require("event")
local unicode = require("unicode")
n = 1
local info = [[
§6Ответы на вопросы требуется отправлять одним сообщением!
§5Запрещено мешать проведению викторины.
§5Запрещено нарушение п.п. 3.2 и 3.3 на викторине
]]

local q = {
"§aКакое из чудес света можно наблюдать сегодня воочию?",
"§aЧто такое Америка?",
"§aКакой океан омывает все материки, кроме Африки?",
"§aВыберите правильный(ные) ответы. Гренландия - это: 1) Полуостров; 2) Материк; 3) Автономная территория Канады; 4) Остров; 5) Автономная территория Дании; 6) Автономная территория США.",
"§aГде находится и как называется самая маленькая человеческая кость?",
"§aСколько музыкантов в квинтете?",
"§aКакая кость находится в пенисе человека?",
"§aМеталлический или пластмассовый колпачок на палец для шитья.",
"§aСколько сантиметров составляет одна тысячная часть километра?",
"§aПлод лещины.",
"§aЧеловек, стоящий спиной к зрителям, а лицом к музыкантам",
"§aСколько звуков в слове «воробьиные»?",
"§aКакой ученый является изобретателем космической ракеты?",
"§aНазвание города, в котором находится падающая башня.",
"§a0x0A + 0x02 = ?",
"§aСколько квадратов на шахматной доске?",
"§aНебесное тело, расположенное ближе всего к Земле",
"§a0x0A + 0x06 = ?",
"§aСколько глаз у мухи?",
'§aСколько можно дать ответов на вопрос "Мы пойдем сегодня в парк?"',
"§aСпособен ли человек на повышение своего интеллекта/IQ?",
"§aКакое полезное ископаемое используют для производства пластилина?",
'§aСуществует ли разница между понятиями "IQ" и "интеллект"?',
"§aИз нежной сердцевины этого травянистого растения Древние египтяне делали свитки, а потом на них писали",
"§aБез этого предмета не сыграешь на скрипке",
"§aЧто меньше? a) 60 центнеров; б) 6 тонн",
"§aСпектакль, в котором действующие лица не разговаривают, а только поют",
"§aСамый маленький из существующих на Земле материков",
"§aКакой железы нет у женщин, но есть у мужчин?",
"§aКакие планеты солнечной системы вращаются в направлении, противоположном Земле?",
"§aКак называется ближайшая к Солнцу планета?",
"§aЧто является причиной образования кратеров на Луне?",
"§aКакая жидкость самая лёгкая?",
"§aНаписать число 12411 буквами",
"§aКакой материк пересекается всеми меридианами?",
"§aНазовите самое солёное море в Мировом океане",
"§aВ это озеро впадает 336 рек, а вытекает только одна",
"§aКакие кровяные клетки существуют?",
"§aКакая кость в скелете - самая длинная?",
"§aНазовите основные типы тканей человека",
"§aСколько видов наковален есть в майнкрафт 1.7.10?",
"§aКак называется активная оболочка Земли, которая населена живыми организмами?",
"§aЦентральная часть атома",
"§aКакой химический элемент преобладает в составе каменного угля?",
"§aКакой газ является самым лёгким?",
"§aИз чего состоит ядро атома?",
"§aЧему равен заряд нейтрона в ядре атома?",
"§aКакой химический элемент стал причиной смерти Наполеона?",
"§aКакие вещества нужно смешать, что бы получился порох?",
"§aКакого(каких) из перечисленных химических элементов не существует: 1) Вода; 2) Борий; 3) Йод; 4) Висмут; 5) Иридий; 6) Кремень; 7) Неон; 8) Калифорний; 9) Плутоний; 10) Нептуний; 11) Пропан; 12) Менделевий; 13) Рентгений?",
"§aМожно ли синтезировать химический элемент?",
"§aКакая вода является самой чистой?",
"§aКакое поле появляется вокруг любого предмета?",
"§aКакой металл является самым тугоплавким?",
"§aВ каком веке был основан Российский город Стокгольм?",
"§aСуществует ли атмосфера на Марсе?",
"§a((√(49))^-1+❘(120)/(24)-31❘)+(-(-(5+3/2))) = ?",
"CH4 + O2 = ?",
"CO2 + H2O = ?"
}

c.setName("§5§kjhg§r§3§n§lВикторина§r§5§kjhg§r§7§o")

function filter(_,_,n,m)
 if n=="kaka888" then
  m = unicode.lower(m)
  if m=="идём дальше" then s(q[n]) n=n+1;
   elseif m=="задать вопрос номер" then _,_,_,m2=event.pull("chat_message","kaka888") s(q[tonumber(m2)])
   elseif m=="начать викторину" then s(q[1]) n=n+1
   elseif m=="приказываю завершить программу" then s("§4Как прикажете, мой карол!") event.cancel(number)
   elseif m=="информация" then s(info)
  end
 end
end

number = event.listen("chat_message",filter)