1

-- Программа для тестирования игроков на пост стажёра.
-- Команды: -teststart - запустить тестирование.
--          -plus - пометить, что тестируемый верно ответил на вопрос.
--          -minus - пометить, что тестируемый не верно ответил на вопрос.
--          -repeat - повторить текущий вопрос.
--          -reset - сбросить тестирование
-- Задает вопросы в локальный чат.
--
-- Автор:      Mireille
-- [VK]:        vk.com/m1reille
-- [OSU!]:      osu.ppy.sh/users/12793748
-- [Steam]:     steamcommunity.com/id/1Un1verse
-- [DISCORD]:   Mireille#7750
-- Подключение компонентов.
local iComponent = require("component");
local eEvent = require("event");
-- Подключение чат-бокса и установка его имени.
local iChatBox = iComponent.chat_box;
iChatBox.setName("§fG§7");
-- Настройка цветов для окраски чата.
local szNameBot = "❽ §8[§4Тест§8] OiL: ";
-- Прочие переменные.
local iQuestion = 1;
local iScoreGood = 0;
local iScoreBad = 0;
local iSleep = 5;
-- Массив с игроками, которые могут управлять программой.
local ADMINSLIST =
{
    "aceman129",
    "Ksena",
    "Alexhotice",
    "Fedry79",
};
-- Массив с вопросами.
local QUESTIONLIST =
{
    {"1", "§aKrEE Тупорылый идиот, убил меня и ресы не отдает!!! Дебил!1!"},
    {"2", "§aПродам удачу 3 за 5 эмеральдов! В ЛС!"},
    {"3", "§aЗавтра вайп! Инфа сотка! Только мне в лс тех сказал!11"},
    {"4", "§aНе понимаю за что бан, почему вы такие не компетентные?"},
    {"5", "§aКто согласен ставьте + в глобальный чат."},
    {"6", "§aСнимите мут с KaxaNet, он же никого не оскорбил!"},
    {"7", "§aСервак полная фигня, дико лагает, парашный проект!1"},
    {"8", "§aASDSAMKDKAJSHDASIHDAHSDHASHGDUASGHDUAHSIDHBIASHDIAHIDAIDIA"},
    {"9", "§aЕб@ный пи3дец я в ах** с вас!1"},
    {"10", "§aСССР"},
    {"11", "§aВыключите дождь уже!! Надоел он!!!!!!!!!"},
    {"12", "§aВсем привет!!!!!!!!!"},
    {"13", "§aУзнал бы где ты живешь, я бы зарезал тебя нафиг"},
    {"14", "§aЗаходите на мой варп - /warp top!!!"},
    {"15", "§aНа моем варпе /warp top можно купить разной фигни!!!"},
    {"16", "§aМой /warp top самый лучший, а варп /warp cool, полная херня!1"},
    {"17", "§aАдмины GalaxyCraft самые лучшие и хорошие!!!"},
};
function Question()
    if iQuestion > #QUESTIONLIST then
        iChatBox.say(szNameBot .. "§aТестирование завершено.");
        Reset();
        return false;
    end
    if iQuestion == 15 then
        iScoreGood = iScoreGood + 1;
        iQuestion = iQuestion + 1;
    end
    if iQuestion == 14 then
        iChatBox.say(szNameBot .. QUESTIONLIST[iQuestion][2]);
        os.sleep(iSleep);
        iQuestion = iQuestion + 1;
        iChatBox.say(szNameBot .. QUESTIONLIST[iQuestion][2]);
        return false;
    end
    iChatBox.say(szNameBot .. QUESTIONLIST[iQuestion][2]);
    iQuestion = iQuestion + 1;
end
function VotePlus()
    if iQuestion - 1 > #QUESTIONLIST then
        return false;
    end
    iScoreGood = iScoreGood + 1;
    SendStatistics();
end
function VoteMinus()
    if iQuestion - 1 > #QUESTIONLIST then
        return false;
    end
    iScoreBad = iScoreBad + 1;
    SendStatistics();
end
function Reset()
    iQuestion = 1;
    iScoreGood = 0;
    iScoreBad = 0;
    iChatBox.say(szNameBot .. "§aТестирование сброшено.");
end
function SendStatistics()
    local iStat = 100 * iScoreGood;
    local iResult = iStat / (iQuestion - 1);

    iChatBox.say(szNameBot .. "§aПравильных: §6" .. iScoreGood .. "§a. Не правильных: §4" .. iScoreBad);
    iChatBox.say(szNameBot .. "§aОбщий процент ответа: §6" .. string.sub(iResult, 1, 4) .. "%");

    os.sleep(iSleep);

    Question();
end
function Repeat(iQuestion)
    iChatBox.say(szNameBot .. QUESTIONLIST[iQuestion - 1][2]);
end
while true do
    local _, _, szNamePlayer, szMessage = eEvent.pull("chat_message");
    if szMessage ~= nil and szNamePlayer ~= nil then
        if string.sub(szMessage, 1, 1) ~= "!" then
            if string.sub(szMessage, 1, 10) == "-teststart" then
                for i = 1, #ADMINSLIST do
                    if ADMINSLIST[i] == szNamePlayer then
                        Question();
                    end
                end
            elseif string.sub(szMessage, 1, 5) == "-plus" then
                for i = 1, #ADMINSLIST do
                    if ADMINSLIST[i] == szNamePlayer then
                        VotePlus();
                    end
                end
            elseif string.sub(szMessage, 1, 6) == "-minus" then
                for i = 1, #ADMINSLIST do
                    if ADMINSLIST[i] == szNamePlayer then
                        VoteMinus();
                    end
                end
            elseif string.sub(szMessage, 1, 6) == "-reset" then
                for i = 1, #ADMINSLIST do
                    if ADMINSLIST[i] == szNamePlayer then
                        Reset();
                    end
                end
            elseif string.sub(szMessage, 1, 7) == "-repeat" then
                for i = 1, #ADMINSLIST do
                    if ADMINSLIST[i] == szNamePlayer then
                        Repeat(iQuestion);
                    end
                end
            end
        end
    end
end