<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**
 * Plays the bookquiz game.
 *
 * @package    mod_game
 * @subpackage bookquiz
 * @copyright  2007 Vasilis Daloukas
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

/**
 * Plays the game bookquiz.
 *
 * @param stdClass $cm
 * @param stdClass $game
 * @param stdClass $attempt
 * @param stdClass $bookquiz
 * @param int $chapterid
 * @param stdClass $context
 * @param stdClass $course
 */
function game_bookquiz_continue(
    $cm,
    $game,
    $attempt,
    $bookquiz,
    $chapterid,
    $context,
    $course
) {
    if ($attempt != false && $bookquiz != false) {
        return game_bookquiz_play($cm, $game, $attempt, $bookquiz, $chapterid, $context, $course);
    }

    if ($attempt == false) {
        $attempt = game_addattempt($game);
    }

    $bookquiz = new stdClass();
    $bookquiz->lastchapterid = 0;
    $bookquiz->id = $attempt->id;
    $bookquiz->bookid = $game->bookid;

    if (!game_insert_record('game_bookquiz', $bookquiz)) {
        throw new moodle_exception('bookquiz_error_insert', 'mod_game');
    }

    return game_bookquiz_play($cm, $game, $attempt, $bookquiz, 0, $context, $course);
}

/**
 * Plays the game bookquiz.
 *
 * @param stdClass $cm
 * @param stdClass $game
 * @param stdClass $attempt
 * @param stdClass $bookquiz
 * @param int $chapterid
 * @param stdClass $context
 * @param stdClass $course
 */
function game_bookquiz_play($cm, $game, $attempt, $bookquiz, $chapterid, $context, $course) {
    global $DB, $OUTPUT;

    // Find where the book is stoped.
    if ($bookquiz->lastchapterid == 0) {
        game_bookquiz_play_computelastchapter($game, $bookquiz);

        if ($bookquiz->lastchapterid == 0) {
            throw new moodle_exception('bookquiz_empty', 'game');
        }
    }
    if ($chapterid == 0) {
        $chapterid = $bookquiz->lastchapterid;
    } else {
        if (($DB->set_field('game_bookquiz', 'lastchapterid', $chapterid, ['id' => $bookquiz->id])) == false) {
            throw new moodle_exception('bookquiz_cant_update_lastchaperid', 'game', $chapterid);
        }
    }

    // Loads the last chapter.
    $book = $DB->get_record('book', ['id' => $game->bookid]);
    if (!$chapter = $DB->get_record('book_chapters', ['id' => $chapterid])) {
        throw new moodle_exception('bookquiz_error', 'game', 'Error reading book chapters.');
    }
    $select = "bookid = $game->bookid AND hidden = 0";
    $chapters = $DB->get_records_select('book_chapters', $select, null, 'pagenum', 'id, pagenum, subchapter, title, hidden');

    $okchapters = [];
    if (($recs = $DB->get_records('game_bookquiz_chapters', ['attemptid' => $attempt->id])) != false) {
        foreach ($recs as $rec) {
            // The 1 means correct answer.
            $okchapters[$rec->chapterid] = 1;
        }
    }

    // The 2 means current.
    if (array_key_exists($chapterid, $okchapters)) {
        // Student answered correct the question in the past.
        $questionid = 0;
    } else {
        // Student didn't answer correct the questions, so have to ask him again.
        $questions = $DB->get_records('game_bookquiz_questions', ['gameid' => $game->id, 'chapterid' => $chapterid]);
        if ($questions === false) {
            $questionid = 0;
        } else {
            // Have to select random one question.
            $questionid = game_bookquiz_selectrandomquestion($questions);
        }
    }

    // Prepare chapter navigation icons.
    $previd = null;
    $nextid = null;
    $found = false;
    $scoreattempt = 0;
    $lastid = 0;
    foreach ($chapters as $ch) {
        $scoreattempt++;
        if ($found) {
            $nextid = $ch->id;
            break;
        }
        if ($ch->id == $chapter->id) {
            $found = true;
        }
        if (!$found) {
            $previd = $ch->id;
        }
        $lastid = $ch->id;
    }

    if (count($chapters)) {
        $scoreattempt = ($scoreattempt - 1) / count($chapters);
    }

    $chnavigation = '';

    if ($previd) {
        $chnavigation .= '<a title="' . get_string('navprev', 'book') . '" href="attempt.php?id=' . $cm->id .
        '&chapterid=' . $previd . '"><img src="' . game_pix_url('bookquiz/nav_prev', 'mod_game') .
        '" class="bigicon" alt="' . get_string('navprev', 'book') . '"/></a>';
    } else {
        $chnavigation .= '<img src="' . game_pix_url('bookquiz/nav_prev_dis', 'mod_game') . '" class="bigicon" alt="" />';
    }

    $nextbutton = '';
    if ($nextid) {
        if ($questionid == 0) {
            $chnavigation .= '<a title="' . get_string('navnext', 'book') . '" href="attempt.php?id=' .
            $cm->id . '&chapterid=' . $nextid . '"><img src="' .
            game_pix_url('bookquiz/nav_next', 'mod_game') . '" class="bigicon" alt="' . get_string('navnext', 'book') . '" ></a>';
            $nextbutton = '<center>';
            $nextbutton .= '<form name="form" method="get" action="attempt.php">';
            $nextbutton .= '<input type="hidden" name="id" value="' . $cm->id . '" >' . "\r\n";
            $nextbutton .= '<input type="hidden" name="chapterid" value="' . $nextid . '" >' . "\r\n";
            $nextbutton .= '<input type="submit" value="' . get_string('continue') . '">';
            $nextbutton .= '</center>';
            game_updateattempts_maxgrade($game, $attempt, $scoreattempt, 0, $cm, $course);
        }
    } else {
        game_updateattempts_maxgrade($game, $attempt, 1, 0, $cm, $course);

        $chnavigation .= '<a title="' . get_string('navexit', 'book') . '" href="attempt.php?id=' .
            $cm->id . '&chapterid=' . $lastid . '><img src="' . game_pix_url('bookquiz/nav_exit', 'mod_game') .
            '" class="bigicon" alt="' . get_string('navexit', 'book') . '" /></a>';
    }

    require('toc.php');
    $tocwidth = '10%';

    if ($questionid != 0) {
        if ($game->param3 == 0) {
            game_bookquiz_showquestions($cm->id, $questionid, $chapter->id, $nextid, $scoreattempt, $game, $context);
        }
    }

    echo '<table border="0" cellspacing="0" width="100%" valign="top" cellpadding="2">';

    echo '<tr>';
    echo '<td width="10" valign="bottom"></td>';
    echo '<td valign="top">';
    echo '<table border="0" cellspacing="0" width="100%" valign="top" cellpadding="0">';
    echo '<tr>';
    echo '<td align="right">' . $chnavigation . '</td>';
    echo '</tr>';
    echo '</table>';
    echo '</td>';
    echo '</tr>';

    echo '<tr>';
    echo '<td width="' . s($tocwidth) . '" valign="top" align="left">';
    echo $OUTPUT->box_start('generalbox');
    echo $toc;
    echo $OUTPUT->box_end();
    echo '</td>';

    echo '<td valign="top" align="left">';
    echo $OUTPUT->box_start('generalbox');

    $content = '';
    if (!$book->customtitles) {
        if ($currsubtitle == '&nbsp;') {
            $content .= '<p class="book_chapter_title">' . $currtitle . '</p>';
        } else {
            $content .= '<p class="book_chapter_title">' . $currtitle . '<br />' . $currsubtitle . '</p>';
        }
    }

    $cmbook = get_coursemodule_from_instance('book', $game->bookid, $game->course);
    $modcontext = game_get_context_module_instance($cmbook->id);
    $content .= game_filterbook($chapter->content, $chapter->id, $modcontext->id, $game->course);

    $nocleanoption = new stdClass();
    $nocleanoption->noclean = true;

    echo '<div>';
    if ($nextbutton != '') {
        echo $nextbutton;
    }
    echo format_text($content, FORMAT_HTML, $nocleanoption);
    if ($nextbutton != '') {
        echo $nextbutton;
    }
    echo '</div>';

    echo $OUTPUT->box_end();
    echo '<p align="right">' . $chnavigation . '</p>';
    echo '</td>';
    echo '</tr>';

    echo '</table>';

    if ($questionid != 0) {
        if ($game->param3 != 0) {
            game_bookquiz_showquestions($cm->id, $questionid, $chapter->id, $nextid, $scoreattempt, $game, $context);
        }
    }
}

/**
 * Computes the last chapter.
 *
 * @package mod_game
 *
 * @param stdClass $game
 * @param stdClass $bookquiz
 */
function game_bookquiz_play_computelastchapter($game, &$bookquiz) {
    global $DB;

    if ($game->bookid == 0) {
        throw new moodle_exception('bookquiz_error', 'game', 'Not defined a book on this game');
    }

    $pagenum = $DB->get_field('book_chapters', 'min(pagenum) as p', ['bookid' => $game->bookid]);

    if ($pagenum) {
        $bookquiz->lastchapterid = $DB->get_field('book_chapters', 'id', ['bookid' => $game->bookid, 'pagenum' => $pagenum]);

        if ($bookquiz->lastchapterid) {
            // Update the data in table game_bookquiz.
            if (
                !$DB->set_field('game_bookquiz', 'lastchapterid', $bookquiz->lastchapterid, ['id' => $bookquiz->id])
            ) {
                throw new moodle_exception(
                    'bookquiz_error',
                    'game',
                    "Can't update table game_bookquiz with lastchapterid to $bookquiz->lastchapterid"
                );
            }
        }
    }
}

/**
 * Shows questions.
 *
 * @package mod_game
 *
 * @param int $id
 * @param int $questionid
 * @param int $chapterid
 * @param int $nextchapterid
 * @param int $scoreattempt
 * @param stdClass $game
 * @param stdClass $context
 */
function game_bookquiz_showquestions($id, $questionid, $chapterid, $nextchapterid, $scoreattempt, $game, $context) {
    $onlyshow = false;
    $showsolution = false;

    $questionlist = $questionid;
    $questions = game_sudoku_getquestions($questionlist);

    global $CFG;

    // Start the form.
    echo "<form id=\"responseform\" method=\"post\" action=\"{$CFG->wwwroot}/mod/game/attempt.php\" " .
         " onclick=\"this.autocomplete='off'\">\n";
    if (($onlyshow === false) && ($showsolution === false)) {
        echo "<center><input type=\"submit\" name=\"finishattempt\" value=\"" .
                get_string('sudoku_submit', 'game') . "\"></center>\n";
    }

    // Add a hidden field with the quiz id.
    echo '<div>';
    echo '<input type="hidden" name="id" value="' . $id . "\" />\n";
    echo '<input type="hidden" name="action" value="bookquizcheck" />';
    echo '<input type="hidden" name="chapterid" value="' . $chapterid . '" />';
    echo '<input type="hidden" name="scoreattempt" value="' . $scoreattempt . '" />';
    echo '<input type="hidden" name="nextchapterid" value="' . $nextchapterid . '" />';

    // Print all the questions.

    // Add a hidden field with questionids.
    echo '<input type="hidden" name="questionids" value="' . $questionlist . "\" />\n";

    $number = 0;
    foreach ($questions as $question) {
        game_print_question($game, $question, $context);
    }
    echo "</div>";

    // Finish the form.
    echo '</div>';
    if (($onlyshow === false) && ($showsolution === false)) {
        echo "<center><input type=\"submit\" name=\"finishattempt\" value=\"" .
            get_string('sudoku_submit', 'game') . "\"></center>\n";
    }

    echo "</form>\n";
}

/**
 * Selects random one question from the input list.
 *
 * @package mod_game
 *
 * @param array $questions
 *
 * @return int: the position of the random question.
 */
function game_bookquiz_selectrandomquestion($questions) {
    global $DB;

    $categorylist = '';
    if ($questions == false) {
        return 0;
    }

    foreach ($questions as $rec) {
        $categorylist .= ',' . $rec->questioncategoryid;
    }
    $select = 'category in (' . substr($categorylist, 1) . ") AND qtype in ('shortanswer', 'truefalse', 'multichoice')";
    if (($recs = $DB->get_records_select('question', $select, null, '', 'id,id')) == false) {
        return 0;
    }
    $a = [];
    foreach ($recs as $rec) {
        $a[$rec->id] = $rec->id;
    }

    if (count($a) == 0) {
        return 0;
    } else {
        return array_rand($a);
    }
}

/**
 * Check if the answers are correct.
 *
 * @package mod_game
 *
 * @param stdClass $cm
 * @param stdClass $game
 * @param stdClass $attempt
 * @param stdClass $bookquiz
 * @param stdClass $context
 * @param stdClass $course
 */
function game_bookquiz_check_questions($cm, $game, $attempt, $bookquiz, $context, $course) {
    global $USER, $DB;

    $scoreattempt = optional_param('scoreattempt', 0, PARAM_INT);
    $responses = data_submitted();

    $questionlist = $responses->questionids;

    $questions = game_sudoku_getquestions($questionlist);
    $grades = game_grade_questions($questions);

    $scorequestion = 0;
    $scoreattempt = 0;

    $chapterid = required_param('chapterid', PARAM_INT);
    $nextchapterid = required_param('nextchapterid', PARAM_INT);

    foreach ($questions as $question) {
        if (!array_key_exists($question->id, $grades)) {
            // No answered.
            continue;
        }
        $grade = $grades[$question->id];
        if ($grade->grade < 0.99) {
            continue;
        }

        // Found one correct answer.
        if (!$DB->get_field('game_bookquiz_chapters', 'id', ['attemptid' => $attempt->id, 'chapterid' => $chapterid])) {
            $newrec = new stdClass();
            $newrec->attemptid = $attempt->id;
            $newrec->chapterid = $chapterid;
            if (!$DB->insert_record('game_bookquiz_chapters', $newrec, false)) {
                throw new moodle_exception('bookquiz_error', 'game', 'Can\'t insert to table game_bookquiz_chapters');
            }
        }

        // Have to go to next page.
        $bookquiz->lastchapterid = $nextchapterid;
        $scorequestion = 1;
        break;
    }

    $query = new stdClass();
    $query->id = 0;
    $query->attemptid = $attempt->id;
    $query->gameid = $game->id;
    $query->userid = $USER->id;
    $query->sourcemodule = 'question';
    $query->questionid = $question->id;
    $query->glossaryentryid = 0;
    $query->questiontext = $question->questiontext;
    $query->timelastattempt = time();
    game_update_queries($game, $attempt, $query, $scorequestion, '');

    game_updateattempts($game, $attempt, $scoreattempt, 0, $cm, $course);

    game_bookquiz_continue($cm, $game, $attempt, $bookquiz, $bookquiz->lastchapterid, $context, $course);
}
