-- Программа для тестирования игроков на пост стажёра.
-- Команды: -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] VanoiD: ";

-- Прочие переменные.
local iQuestion = 1;
local iScoreGood = 0;
local iScoreBad = 0;
local iSleep = 5;

-- Массив с игроками, которые могут управлять программой.
local ADMINSLIST =
{
    "Mireille",
    "Zarik1",
    "atomzerg"
};

-- Массив с вопросами.
local QUESTIONLIST =
{
    {"1", "§aRAMZEs666 Тупорылый идиот, убил меня и ресы не отдает!!! Дебил конченный!"},
    {"2", "§aПродам удачу 3 за 15 эмеральдов! В ЛС!"},
    {"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 animetop!!!"},
    {"15", "§aНа моем варпе /warp animetop можно купить разной фигни!!!"},
    {"16", "§aМой варп /warp animetop самый лучший, а варп /warp cool , полная херня, даже качалки нет!1"},
    {"17", "§aПродам стак железа, каждый слиток 0.1 эма!"},
    {"18", "§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