You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
527 lines
16 KiB
527 lines
16 KiB
<?php // $Id: play.php,v 1.8.2.12 2011/07/28 08:33:01 bdaloukas Exp $
|
|
|
|
// This files plays the game "Snakes and Ladders"
|
|
|
|
function game_snakes_continue( $id, $game, $attempt, $snakes)
|
|
{
|
|
if( $attempt != false and $snakes != false){
|
|
return game_snakes_play( $id, $game, $attempt, $snakes);
|
|
}
|
|
|
|
if( $attempt === false){
|
|
$attempt = game_addattempt( $game);
|
|
}
|
|
|
|
$newrec->id = $attempt->id;
|
|
$newrec->snakesdatabaseid = $game->param3;
|
|
$newrec->position = 1;
|
|
$newrec->queryid = 0;
|
|
if( !game_insert_record( 'game_snakes', $newrec)){
|
|
error( 'game_snakes_continue: error inserting in game_snakes');
|
|
}
|
|
|
|
game_updateattempts( $game, $attempt, 0, 0);
|
|
|
|
return game_snakes_play( $id, $game, $attempt, $newrec);
|
|
}
|
|
|
|
function game_snakes_play( $id, $game, $attempt, $snakes)
|
|
{
|
|
global $CFG;
|
|
|
|
$board = game_snakes_getboard( $game, $snakes);
|
|
|
|
if( $snakes->position > $board->cols * $board->rows && $snakes->queryid <> 0){
|
|
$finish = true;
|
|
|
|
if (! $cm = get_record("course_modules", "id", $id)) {
|
|
error("Course Module ID was incorrect id=$id");
|
|
}
|
|
|
|
echo '<B>'.get_string( 'win', 'game').'</B><BR>';
|
|
echo '<br>';
|
|
echo "<a href=\"$CFG->wwwroot/mod/game/attempt.php?id=$id\">".get_string( 'nextgame', 'game').'</a> ';
|
|
echo "<a href=\"$CFG->wwwroot/course/view.php?id=$cm->course\">".get_string( 'finish', 'game').'</a> ';
|
|
|
|
$gradeattempt = 1;
|
|
$finish = 1;
|
|
game_updateattempts( $game, $attempt, $gradeattempt, $finish);
|
|
}else
|
|
{
|
|
$finish = false;
|
|
if( $snakes->queryid == 0){
|
|
game_snakes_computenextquestion( $game, $snakes, $query);
|
|
}else
|
|
{
|
|
$query = get_record( 'game_queries', 'id', $snakes->queryid);
|
|
}
|
|
if( $game->toptext != ''){
|
|
echo $game->toptext.'<br>';
|
|
}
|
|
game_snakes_showquestion( $id, $game, $snakes, $query);
|
|
}
|
|
|
|
|
|
?>
|
|
<script language="javascript" event="onload" for="window">
|
|
<!--
|
|
var retVal = new Array();
|
|
var elements = document.getElementsByTagName("*");
|
|
for(var i = 0;i < elements.length;i++){
|
|
if( elements[ i].type == 'text'){
|
|
elements[ i].focus();
|
|
break;
|
|
}
|
|
}
|
|
-->
|
|
</script>
|
|
|
|
<table>
|
|
<tr>
|
|
<td>
|
|
|
|
<DIV ID="board" STYLE="position:relative; left:0px;top:0px; width:<?php p($board->width); ?>px; height:<?php p($board->height); ?>px;"><br>
|
|
<center><img src="<?php p($board->imagesrc);?>"
|
|
alt="<?php print_string('snakes_board', 'game', $board->name); /*Accessibility ('name' may be a bit long.) */ ?>" /></center>
|
|
</DIV>
|
|
|
|
<?php
|
|
if( $finish == false){
|
|
game_snakes_showdice( $snakes, $board);
|
|
}
|
|
?>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
<?php
|
|
|
|
if( $game->bottomtext != ''){
|
|
echo '<br>'.$game->bottomtext;
|
|
}
|
|
}
|
|
|
|
function game_snakes_getboard( $game, $snakes)
|
|
{
|
|
global $CFG;
|
|
|
|
if( $game->param3 != 0 or $snakes->snakesdatabaseid == 0)
|
|
{
|
|
$board = get_record_select( 'game_snakes_database', 'id='.$snakes->snakesdatabaseid);
|
|
if( $board == false)
|
|
{
|
|
require_once(dirname(__FILE__) . '/../db/importsnakes.php');
|
|
$board = get_record_select( 'game_snakes_database', 'id='.$snakes->snakesdatabaseid);
|
|
}
|
|
if( $board == false)
|
|
print_error( 'No board '.$snakes->snakesdatabaseid);
|
|
$board->imagesrc = $CFG->wwwroot.'/mod/game/snakes/boards/'.$board->fileboard;
|
|
}else
|
|
{
|
|
$board = game_snakes_create_user_defined_board( $game);
|
|
}
|
|
|
|
return $board;
|
|
}
|
|
|
|
function game_snakes_showdice( $snakes, $board)
|
|
{
|
|
$pos = game_snakes_computeplayerposition( $snakes, $board);
|
|
?>
|
|
<div ID="player1" STYLE="position:relative; left:<?php p( $pos->x);?>px; top:<?php p( $pos->y);?>px; width:22px; height:23px;"><br>
|
|
<center><img src="snakes/1/player1.png" alt="<?php print_string('snakes_player', 'game', ($snakes->position +1)); /*Accessibility. */ ?>" /></center>
|
|
</div>
|
|
|
|
<div ID="dice" STYLE="position:relative; left:<?php p( $board->width + round($board->width/3));?>px;top:<?php p( -2*round($board->height/3));?>px; width:0px; height:0px;"><br>
|
|
<img src="snakes/1/dice<?php p($snakes->dice);?>.png" alt="<?php print_string('snakes_dice', 'game', $snakes->dice) ?>" />
|
|
</div>
|
|
<?php
|
|
}
|
|
|
|
function game_snakes_computeplayerposition( $snakes, $board)
|
|
{
|
|
$pawn_width = 22;
|
|
$pawn_height = 23;
|
|
|
|
$x = ($snakes->position - 1) % $board->cols;
|
|
$y = floor( ($snakes->position-1) / $board->cols);
|
|
|
|
$cellwidth = ($board->width - $board->headerx - $board->footerx) / $board->cols;
|
|
$cellheight = ($board->height - $board->headery - $board->footery) / $board->rows;
|
|
|
|
unset( $pos);
|
|
|
|
switch( $board->direction){
|
|
case 1:
|
|
if( ($y % 2) == 1){
|
|
$x = $board->cols - $x - 1;
|
|
}
|
|
$pos->x = round( $board->headerx + $x * $cellwidth + ($cellwidth-$pawn_width)/2);
|
|
$pos->y = round( $board->footery + ($board->rows - $y-1) * $cellheight)- $board->height-10 + ($cellheight-$pawn_height)/2;
|
|
break;
|
|
}
|
|
return $pos;
|
|
}
|
|
|
|
function game_snakes_computenextquestion( $game, &$snakes, &$query)
|
|
{
|
|
global $USER;
|
|
|
|
//Retrieves CONST_GAME_TRIES_REPETITION words and select the one which is used fewer times
|
|
if( ($recs = game_questions_selectrandom( $game, CONST_GAME_TRIES_REPETITION)) == false){
|
|
return false;
|
|
}
|
|
|
|
$glossaryid = 0;
|
|
$questionid = 0;
|
|
$min_num = 0;
|
|
foreach( $recs as $rec){
|
|
$select = "gameid=$game->id AND userid='$USER->id' AND questionid='$rec->questionid' AND glossaryentryid='$rec->glossaryentryid'";
|
|
if(($rec2 = get_record_select('game_repetitions', $select, 'id,repetitions r')) != false){
|
|
if( ($rec2->r < $min_num) or ($min_num == 0)){
|
|
$min_num = $rec2->r;
|
|
$query->glossaryentryid = $rec->glossaryentryid;
|
|
$query->questionid = $rec->questionid;
|
|
}
|
|
}
|
|
else{
|
|
$query->glossaryentryid = $rec->glossaryentryid;
|
|
$query->questionid = $rec->questionid;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( ($query->glossaryentryid == 0) AND ($query->questionid == 0))
|
|
return false;
|
|
|
|
$query->attemptid = $snakes->id;
|
|
$query->gameid = $game->id;
|
|
$query->userid = $USER->id;
|
|
$query->sourcemodule = $game->sourcemodule;
|
|
$query->score = 0;
|
|
$query->timelastattempt = time();
|
|
if( !($query->id = insert_record( 'game_queries', $query))){
|
|
error( "Can't insert to table game_queries");
|
|
}
|
|
|
|
$snakes->queryid = $query->id;
|
|
|
|
$updrec->id = $snakes->id;
|
|
$updrec->queryid = $query->id;
|
|
$updrec->dice = rand( 1, 6);
|
|
|
|
if( !update_record( 'game_snakes', $updrec)){echo "<hr>";
|
|
error( 'game_questions_selectrandom: error updating in game_snakes');
|
|
}
|
|
|
|
$snakes->dice = $updrec->dice;
|
|
|
|
game_update_repetitions($game->id, $USER->id, $query->questionid, $query->glossaryentryid);
|
|
|
|
return true;
|
|
}
|
|
|
|
function game_snakes_showquestion( $id, $game, $snakes, $query)
|
|
{
|
|
if( $query->sourcemodule == 'glossary'){
|
|
game_snakes_showquestion_glossary( $id, $snakes, $query);
|
|
}else
|
|
{
|
|
game_snakes_showquestion_question( $game, $id, $snakes, $query);
|
|
}
|
|
}
|
|
|
|
function game_snakes_showquestion_question( $game, $id, $snakes, $query)
|
|
{
|
|
global $CFG;
|
|
|
|
$questionlist = $query->questionid;
|
|
$questions = game_sudoku_getquestions( $questionlist);
|
|
|
|
/// Start the form
|
|
echo '<br>';
|
|
echo "<form id=\"responseform\" method=\"post\" action=\"{$CFG->wwwroot}/mod/game/attempt.php\" onclick=\"this.autocomplete='off'\">\n";
|
|
echo "<center><input type=\"submit\" name=\"finishattempt\" value=\"".get_string('sudoku_submit', 'game')."\"></center>\n";
|
|
|
|
// Add a hidden field with the quiz id
|
|
echo '<input type="hidden" name="id" value="' . s($id) . "\" />\n";
|
|
echo '<input type="hidden" name="action" value="snakescheck" />';
|
|
echo '<input type="hidden" name="queryid" value="' . $query->id . "\" />\n";
|
|
|
|
/// Print all the questions
|
|
|
|
// Add a hidden field with questionids
|
|
echo '<input type="hidden" name="questionids" value="'.$questionlist."\" />\n";
|
|
|
|
foreach ($questions as $question) {
|
|
global $QTYPES;
|
|
unset( $cmoptions);
|
|
$cmoptions->course = $game->course;
|
|
$cmoptions->shuffleanswers = $question->options->shuffleanswers = false;
|
|
$cmoptions->optionflags->optionflags = 0;
|
|
$cmoptions->id = 0;
|
|
$attempt = 0;
|
|
if (!$QTYPES[$question->qtype]->create_session_and_responses( $question, $state, $cmoptions, $attempt)) {
|
|
error( 'game_sudoku_showquestions_quiz: problem');
|
|
}
|
|
|
|
$state->last_graded = new StdClass;
|
|
$state->last_graded->event = QUESTION_EVENTOPEN;
|
|
$state->event = QUESTION_EVENTOPEN;
|
|
$options->scores->score = 0;
|
|
$question->maxgrade = 100;
|
|
$state->manualcomment = '';
|
|
$cmoptions->optionflags = 0;
|
|
$options->correct_responses = 0;
|
|
$options->feedback = 0;
|
|
$options->readonly = 0;
|
|
|
|
print_question($question, $state, '', $cmoptions, $options);
|
|
|
|
break;
|
|
}
|
|
|
|
echo "</form>\n";
|
|
}
|
|
|
|
function game_snakes_showquestion_glossary( $id, $snakes, $query)
|
|
{
|
|
global $CFG;
|
|
|
|
$entry = get_record( 'glossary_entries', 'id', $query->glossaryentryid);
|
|
|
|
/// Start the form
|
|
echo '<br>';
|
|
echo "<form id=\"responseform\" method=\"post\" action=\"{$CFG->wwwroot}/mod/game/attempt.php\" onclick=\"this.autocomplete='off'\">\n";
|
|
echo "<center><input type=\"submit\" name=\"finishattempt\" value=\"".get_string('sudoku_submit', 'game')."\"></center>\n";
|
|
|
|
// Add a hidden field with the queryid
|
|
echo '<input type="hidden" name="id" value="' . s($id) . "\" />\n";
|
|
echo '<input type="hidden" name="action" value="snakescheckg" />';
|
|
echo '<input type="hidden" name="queryid" value="' . $query->id . "\" />\n";
|
|
|
|
/// Print all the questions
|
|
|
|
// Add a hidden field with glossaryentryid
|
|
echo '<input type="hidden" name="glossaryentryid" value="'.$query->glossaryentryid."\" />\n";
|
|
|
|
echo game_filtertext( $entry->definition, 0).'<br>';
|
|
|
|
//Accessibility <label>.
|
|
echo "<label for=\"answer\">".get_string('answer').': </label>';
|
|
echo "<input type=\"text\" id=\"answer\" name=\"answer\" size=30 /><br>";
|
|
|
|
echo "</form>\n";
|
|
}
|
|
|
|
|
|
function game_snakes_check_questions( $id, $game, $attempt, $snakes)
|
|
{
|
|
global $QTYPES, $CFG;
|
|
|
|
$responses = data_submitted();
|
|
|
|
if( $responses->queryid != $snakes->queryid){
|
|
game_snakes_play( $id, $game, $attempt, $snakes);
|
|
return;
|
|
}
|
|
|
|
$questionlist = get_field( 'game_queries', 'questionid', 'id', $responses->queryid);
|
|
|
|
$questions = game_sudoku_getquestions( $questionlist);
|
|
|
|
$actions = question_extract_responses( $questions, $responses, QUESTION_EVENTSUBMIT);
|
|
$correct = false;
|
|
$query = '';
|
|
foreach($questions as $question) {
|
|
if( !array_key_exists( $question->id, $actions)){
|
|
//no answered
|
|
continue;
|
|
}
|
|
unset( $state);
|
|
unset( $cmoptions);
|
|
$question->maxgrade = 100;
|
|
$state->responses = $actions[ $question->id]->responses;
|
|
$state->event = QUESTION_EVENTGRADE;
|
|
|
|
$state->responses[ ''] = game_upper( $state->responses[ '']);
|
|
|
|
$cmoptions = array();
|
|
$QTYPES[$question->qtype]->grade_responses( $question, $state, $cmoptions);
|
|
|
|
unset( $query);
|
|
$select = "attemptid=$attempt->id ";
|
|
$select .= " AND questionid=$question->id";
|
|
if( ($query->id = get_field_select( 'game_queries', 'id', $select)) == 0){
|
|
die("problem game_sudoku_check_questions (select=$select)");
|
|
continue;
|
|
}
|
|
|
|
$grade = $state->raw_grade;
|
|
if( $grade < 50){
|
|
//wrong answer
|
|
|
|
game_update_queries( $game, $attempt, $query, 0, '');
|
|
continue;
|
|
}
|
|
//correct answer
|
|
$correct = true;
|
|
|
|
game_update_queries( $game, $attempt, $query, 1, '');
|
|
}
|
|
|
|
//set the grade of the whole game
|
|
game_snakes_position( $id, $game, $attempt, $snakes, $correct, $query);
|
|
}
|
|
|
|
function game_snakes_check_glossary( $id, $game, $attempt, $snakes)
|
|
{
|
|
global $QTYPES, $CFG;
|
|
|
|
$responses = data_submitted();
|
|
|
|
if( $responses->queryid != $snakes->queryid){
|
|
game_snakes_play( $id, $game, $attempt, $snakes);
|
|
return;
|
|
}
|
|
|
|
$query = get_record( 'game_queries', 'id', $responses->queryid);
|
|
|
|
$glossaryentry = get_record( 'glossary_entries', 'id', $query->glossaryentryid);
|
|
|
|
$name = 'resp'.$query->glossaryentryid;
|
|
$useranswer = $responses->answer;
|
|
|
|
if( game_upper( $useranswer) != game_upper( $glossaryentry->concept)){
|
|
//wrong answer
|
|
$correct = false;
|
|
game_update_queries( $game, $attempt, $query, 0, $useranswer);//last param is grade
|
|
}else
|
|
{
|
|
//correct answer
|
|
$correct = true;
|
|
|
|
game_update_queries( $game, $attempt, $query, 1, $useranswer);//last param is grade
|
|
}
|
|
|
|
//set the grade of the whole game
|
|
game_snakes_position( $id, $game, $attempt, $snakes, $correct, $query);
|
|
}
|
|
|
|
|
|
function game_snakes_position( $id, $game, $attempt, $snakes, $correct, $query)
|
|
{
|
|
$data = get_field( 'game_snakes_database', 'data', 'id', $snakes->snakesdatabaseid);
|
|
|
|
if( $correct){
|
|
if( ($next=game_snakes_foundlander( $snakes->position + $snakes->dice, $data))){
|
|
$snakes->position = $next;
|
|
}else
|
|
{
|
|
$snakes->position = $snakes->position + $snakes->dice;
|
|
}
|
|
}else
|
|
{
|
|
if( ($next=game_snakes_foundsnake( $snakes->position, $data))){
|
|
$snakes->position = $next;
|
|
}
|
|
}
|
|
|
|
$updrec->id = $snakes->id;
|
|
$updrec->position = $snakes->position;
|
|
$updrec->queryid = 0;
|
|
|
|
if( !update_record( 'game_snakes', $updrec)){
|
|
error( "game_snakes_position: Can't update game_snakes");
|
|
}
|
|
|
|
$board = game_snakes_getboard( $game, $snakes);
|
|
$gradeattempt = $snakes->position / ($board->cols * $board->rows);
|
|
$finished = ( $snakes->position > $board->cols * $board->rows ? 1 : 0);
|
|
|
|
game_updateattempts( $game, $attempt, $gradeattempt, $finished);
|
|
|
|
game_snakes_computenextquestion( $game, $snakes, $query);
|
|
|
|
game_snakes_play( $id, $game, $attempt, $snakes);
|
|
}
|
|
|
|
//in lander go forward
|
|
function game_snakes_foundlander( $position, $data)
|
|
{
|
|
preg_match( "/L$position-([0-9]*)/", $data, $matches);
|
|
|
|
if( count( $matches)){
|
|
return $matches[ 1];
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
//in snake go backward
|
|
function game_snakes_foundsnake( $position, $data)
|
|
{
|
|
preg_match( "/S([0-9]*)-$position,/", $data.',', $matches);
|
|
|
|
if( count( $matches)){
|
|
return $matches[ 1];
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
function game_snakes_create_user_defined_board( &$game)
|
|
{
|
|
global $CFG, $DB;
|
|
|
|
$board = new stdClass();
|
|
|
|
$a = explode( '#',$game->param9);
|
|
foreach( $a as $s){
|
|
$pos = strpos( $s, ':');
|
|
if( $pos){
|
|
$name = substr( $s, 0, $pos);
|
|
if( substr( $name, 0, 7) == 'snakes_')
|
|
$name = substr( $name, 7);
|
|
$board->$name = substr( $s, $pos+1);
|
|
}
|
|
}
|
|
|
|
$cmg = get_coursemodule_from_instance('game', $game->id, $game->course);
|
|
$modcontext = get_context_instance(CONTEXT_MODULE, $cmg->id);
|
|
|
|
$target_path = game_file_area_name( $game);
|
|
$d = dir( $target_path);
|
|
$board->imagesrc = game_file_area_name( $game).'/board.jpg';
|
|
$file = '';
|
|
while (false !== ($entry = $d->read())) {
|
|
if( substr( $entry, 0, 4) == 'file')
|
|
$file = $target_path.'/'.$entry;
|
|
}
|
|
$d->close();
|
|
|
|
if( !file_exists( $board->imagesrc))
|
|
{
|
|
require("createboard.php");
|
|
|
|
$im=game_createsnakesboard(file_get_contents( $file), $board->cols, $board->rows, $board->headery, $board->headery, $board->footerx, $board->headerx, $board->board);
|
|
ob_start();
|
|
imagejpeg($im);
|
|
$data = ob_get_contents();
|
|
ob_end_clean();
|
|
file_put_contents( $board->imagesrc, $data);
|
|
list($game->param6, $game->param7) = getimagesize( $board->imagesrc);
|
|
$sql = "UPDATE {$CFG->prefix}game SET param5=0,param6=$game->param6,param7=$game->param7 WHERE id=$game->id";
|
|
if (!execute_sql( $sql, false)) {
|
|
error('problem in '.$sql);
|
|
}
|
|
}
|
|
|
|
$board->width = $game->param6;
|
|
$board->height = $game->param7;
|
|
|
|
$board->direction = 1;
|
|
$board->name = '';
|
|
$board->imagesrc = $CFG->wwwroot.'/file.php/'.$game->course.'/moddata/game/'.$game->id.'/board.jpg';
|
|
|
|
return $board;
|
|
}
|
|
|