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.
449 lines
13 KiB
449 lines
13 KiB
<?php // $Id: play.php,v 1.16.2.9 2011/07/29 21:07:03 bdaloukas Exp $
|
|
|
|
// This files plays the game hangman
|
|
|
|
function game_hangman_continue($id, $game, $attempt, $hangman, $newletter, $action){
|
|
global $USER;
|
|
if($attempt != false and $hangman != false){
|
|
if(($action == 'nextword') and ($hangman->finishedword != 0)){
|
|
//finish with one word and continue to another
|
|
if( !set_field( 'game_hangman', 'finishedword', 0, 'id', $hangman->id)){
|
|
error( "game_hangman_continue: Can't update game_hangman");
|
|
}
|
|
}
|
|
else{
|
|
return game_hangman_play( $id, $game, $attempt, $hangman);
|
|
}
|
|
}
|
|
|
|
$updatehangman = (($attempt != false) and ($hangman != false));
|
|
|
|
$textlib = textlib_get_instance();
|
|
|
|
//new game
|
|
|
|
//I try 10 times to find a new question
|
|
$found = false;
|
|
$min_num = 0;
|
|
$unchanged = 0;
|
|
for($i=1; $i <= 10; $i++){
|
|
//Check the repetitions later
|
|
$rec = game_question_shortanswer($game, $game->param7, false);
|
|
if($rec === false){
|
|
continue;
|
|
}
|
|
|
|
$answer = game_upper($rec->answertext, $game->language);
|
|
|
|
$answer2 = $answer;
|
|
if( $game->param7){
|
|
//Have to delete space
|
|
$answer2 = str_replace(' ', '', $answer2);
|
|
}
|
|
if( $game->param8){
|
|
//Have to delete -
|
|
$answer2 = str_replace('-', '', $answer2);
|
|
}
|
|
if( $game->language == ''){
|
|
$game->language = game_detectlanguage($answer2);
|
|
}
|
|
$allletters = game_getallletters($answer2, $game->language);
|
|
if($allletters == ''){
|
|
continue;
|
|
}
|
|
|
|
if($game->param7){
|
|
$allletters .= '_';
|
|
}
|
|
if($game->param8){
|
|
$allletters .= '-';
|
|
}
|
|
|
|
if($game->param7 == false){
|
|
//I don't allow spaces
|
|
if(strpos($answer, " ")){
|
|
continue;
|
|
}
|
|
}
|
|
|
|
$copy = false;
|
|
$select2 = "gameid=$game->id AND userid='$USER->id' AND questionid='$rec->questionid' AND glossaryentryid='$rec->glossaryentryid'";
|
|
if(($rec2 = get_record_select('game_repetitions', $select2, 'id,repetitions r')) != false){
|
|
if( ($rec2->r < $min_num) or ($min_num == 0)){
|
|
$min_num = $rec2->r;
|
|
$copy = true;
|
|
}
|
|
}
|
|
else{
|
|
$min_num = 0;
|
|
$copy = true;
|
|
}
|
|
|
|
if($copy){
|
|
$found = true;
|
|
|
|
$min->questionid = $rec->questionid;
|
|
$min->glossaryentryid = $rec->glossaryentryid;
|
|
$min->attachment = $rec->attachment;
|
|
$min->questiontext = $rec->questiontext;
|
|
$min->answerid = $rec->answerid;
|
|
$min->answer = $answer;
|
|
$min->language = $game->language;
|
|
|
|
if($min_num == 0)
|
|
break; //We found an unused word
|
|
}else
|
|
$unchanged++;
|
|
|
|
if( $unchanged > 2){
|
|
if( $found)
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( $found == false){
|
|
error( get_string( 'no_words', 'game'));
|
|
}
|
|
|
|
//Found one word for hangman
|
|
if( $attempt == false){
|
|
$attempt = game_addattempt( $game);
|
|
}
|
|
|
|
if( !set_field( 'game_attempts', 'language', $min->language, 'id', $attempt->id)){
|
|
error( "game_cross_play: Can't set language");
|
|
}
|
|
|
|
$_GET['newletter'] = '';
|
|
|
|
$query->attemptid = $attempt->id;
|
|
$query->gameid = $game->id;
|
|
$query->userid = $USER->id;
|
|
$query->sourcemodule = $game->sourcemodule;
|
|
$query->questionid = $min->questionid;
|
|
$query->glossaryentryid = $min->glossaryentryid;
|
|
$query->attachment = $min->attachment;
|
|
$query->questiontext = addslashes( $min->questiontext);
|
|
$query->score = 0;
|
|
$query->timelastattempt = time();
|
|
$query->answertext = $min->answer;
|
|
$query->answerid = $min->answerid;
|
|
if(!($query->id = insert_record('game_queries', $query))){
|
|
print_object($query);
|
|
error("game_hangman_continue: Can't insert to table game_queries");
|
|
}
|
|
|
|
$newrec->id = $attempt->id;
|
|
$newrec->queryid = $query->id;
|
|
if($updatehangman == false){
|
|
$newrec->maxtries = $game->param4;
|
|
if($newrec->maxtries == 0){
|
|
$newrec->maxtries = 1;
|
|
}
|
|
$newrec->finishedword = 0;
|
|
$newrec->corrects = 0;
|
|
}
|
|
|
|
$newrec->allletters = $allletters;
|
|
|
|
$letters = '';
|
|
if($game->param1){
|
|
$letters .= $textlib->substr($min->answer, 0, 1);
|
|
}
|
|
if($game->param2){
|
|
$letters .= $textlib->substr($min->answer, -1, 1);
|
|
}
|
|
$newrec->letters = $letters;
|
|
|
|
if($updatehangman == false){
|
|
if(!game_insert_record('game_hangman', $newrec)){
|
|
error( 'game_hangman_continue: error inserting in game_hangman');
|
|
}
|
|
}
|
|
else{
|
|
if(!update_record( 'game_hangman', $newrec)){
|
|
error( 'game_hangman_continue: error updating in game_hangman');
|
|
}
|
|
$newrec = get_record_select( 'game_hangman', "id=$newrec->id");
|
|
}
|
|
|
|
game_update_repetitions($game->id, $USER->id, $query->questionid, $query->glossaryentryid);
|
|
|
|
game_hangman_play($id, $game, $attempt, $newrec);
|
|
}
|
|
|
|
function game_hangman_onfinishgame($game, $attempt, $hangman){
|
|
$score = $hangman->corrects / $hangman->maxtries;
|
|
|
|
game_updateattempts($game, $attempt, $score, true);
|
|
|
|
if(!set_field('game_hangman', 'finishedword', 0, 'id', $hangman->id)){
|
|
error("game_hangman_onfinishgame: Can't update game_hangman");
|
|
}
|
|
}
|
|
|
|
function game_hangman_play($id, $game, $attempt, $hangman, $onlyshow=false, $showsolution=false)
|
|
{
|
|
global $CFG;
|
|
|
|
$query = get_record( 'game_queries', 'id', $hangman->queryid);
|
|
|
|
game_compute_reserve_print( $attempt, $wordrtl, $reverseprint);
|
|
|
|
if( $game->toptext != ''){
|
|
echo $game->toptext.'<br>';
|
|
}
|
|
$max=$game->param10; // maximum number of wrong
|
|
if( $max <= 0)
|
|
$max = 6;
|
|
hangman_showpage($done, $correct, $wrong, $max, $word_line, $word_line2, $links, $game, $attempt, $hangman, $query, $onlyshow, $showsolution);
|
|
|
|
if(!$done){
|
|
if ($wrong > $max){
|
|
$wrong = $max;
|
|
}
|
|
if( $game->param3 == 0){
|
|
$game->param3 = 1;
|
|
}
|
|
echo "\r\n<BR/><img src=\"".$CFG->wwwroot.'/mod/game/hangman/'.$game->param3.'/hangman_'.$wrong.'.jpg"';
|
|
$message = sprintf( get_string( 'hangman_wrongnum', 'game'), $wrong, $max);
|
|
echo ' ALIGN="MIDDLE" BORDER="0" HEIGHT="100" alt="'.$message.'"/>';
|
|
|
|
if ($wrong >= $max){
|
|
//This word is incorrect. If reach the max number of word I have to finish else continue with next word
|
|
hangman_oninncorrect( $id, $word_line, $query->answertext, $game, $attempt, $hangman);
|
|
$query->percent = 0;
|
|
}
|
|
else{
|
|
$i = $max-$wrong;
|
|
if( $i > 1)
|
|
echo ' '.get_string( 'hangman_restletters_many', 'game', $i);
|
|
else
|
|
echo ' '.get_string( 'hangman_restletters_one', 'game');
|
|
if( $reverseprint){
|
|
echo '<SPAN dir="'.($wordrtl ? 'rtl' : 'ltr').'">';
|
|
}
|
|
echo "<br/><font size=\"5\">\n$word_line</font>\r\n";
|
|
if( $word_line2 != ''){
|
|
echo "<br/><font size=\"5\">\n$word_line2</font>\r\n";
|
|
}
|
|
if( $reverseprint){
|
|
echo "</SPAN>";
|
|
}
|
|
if( $hangman->finishedword == false){
|
|
echo "<br/><br/><BR/>".get_string('hangman_letters', 'game').$links."\r\n";
|
|
}
|
|
}
|
|
}
|
|
else{
|
|
//This word is correct. If reach the max number of word I have to finish else continue with next word
|
|
hangman_oncorrect($id, $word_line, $game, $attempt, $hangman, $query);
|
|
$query->percent = 1;
|
|
}
|
|
echo "<br/><br/>".get_string('grade', 'game').' : '.round($query->percent * 100).' %';
|
|
if( $hangman->maxtries > 1){
|
|
echo '<br/><br/>'.get_string('hangman_gradeinstance', 'game').' : '.round($hangman->corrects / $hangman->maxtries * 100).' %';
|
|
}
|
|
|
|
if( $game->bottomtext != ''){
|
|
echo '<br><br>'.$game->bottomtext;
|
|
}
|
|
}
|
|
function hangman_showpage(&$done, &$correct, &$wrong, $max, &$word_line, &$word_line2, &$links, $game, &$attempt, &$hangman, &$query, $onlyshow, $showsolution){
|
|
global $USER, $CFG;
|
|
|
|
$word = $query->answertext;
|
|
|
|
$textlib = textlib_get_instance();
|
|
|
|
$newletter = optional_param('newletter', PARAM_TEXT);
|
|
|
|
if($newletter == '_'){
|
|
$newletter = ' ';
|
|
}
|
|
|
|
$letters = $hangman->letters;
|
|
if($newletter != NULL)
|
|
{
|
|
if($textlib->strpos($letters,$newletter) === false){
|
|
$letters .= $newletter;
|
|
}
|
|
}
|
|
|
|
$links="";
|
|
|
|
$alpha = $hangman->allletters;
|
|
$wrong = 0;
|
|
|
|
if($game->param5){
|
|
$s = trim( game_filtertext($query->questiontext, $game->course));
|
|
if($s != '.' and $s <> ''){
|
|
echo "<br/><b>".$s.'</b>';
|
|
}
|
|
if($query->attachment != ''){
|
|
$file = "{$CFG->wwwroot}/file.php/$game->course/moddata/$query->attachment";
|
|
echo "<img src=\"$file\" />";
|
|
}
|
|
echo "<br/><br/>";
|
|
}
|
|
|
|
$word_line = $word_line2 = "";
|
|
|
|
$len = $textlib->strlen( $word);
|
|
|
|
$done = 1;
|
|
$answer = '';
|
|
for ($x=0; $x < $len; $x++){
|
|
$char = $textlib->substr($word, $x, 1);
|
|
|
|
if( $showsolution){
|
|
$word_line2 .= ($char == " " ? ' ' : $char);
|
|
$done = 0;
|
|
}
|
|
|
|
if ( $textlib->strpos($letters, $char) === false){
|
|
$word_line.="_<font size=\"1\"> </font>\r\n";
|
|
$done = 0;
|
|
$answer .= '_';
|
|
}else{
|
|
$word_line .= ($char == " " ? ' ' : $char);
|
|
$answer .= $char;
|
|
}
|
|
}
|
|
|
|
$correct = 0;
|
|
|
|
$len_alpha = $textlib->strlen($alpha);
|
|
$fontsize = 5;
|
|
|
|
for ($c=0; $c < $len_alpha; $c++){
|
|
$char = $textlib->substr($alpha, $c, 1);
|
|
|
|
if ( $textlib->strpos($letters, $char) === false){
|
|
//User didn't select this character
|
|
$param_id = optional_param('id', 0, PARAM_INT);
|
|
$params = 'id='.$param_id.'&newletter='.urlencode( $char);
|
|
if( $onlyshow or $showsolution){
|
|
$links .= $char;
|
|
}
|
|
else{
|
|
$links .= "<font size=\"$fontsize\"><a href=\"attempt.php?$params\">$char</a></font>\r\n";
|
|
}
|
|
continue;
|
|
}
|
|
|
|
if ($textlib->strpos($word, $char) === false){
|
|
$links .= "\r\n<font size=\"$fontsize\" color=\"red\">$char </font>";
|
|
$wrong++;
|
|
}
|
|
else{
|
|
$links .= "\r\n<B><font size=\"$fontsize\">$char </font></B> ";
|
|
$correct++;
|
|
}
|
|
}
|
|
|
|
$finishedword = ($done or $wrong >= $max);
|
|
$finished = false;
|
|
|
|
$updrec->id = $hangman->id;
|
|
$updrec->letters = $letters;
|
|
if($finishedword){
|
|
if($hangman->finishedword == 0){
|
|
//only one time per word increace the variable try
|
|
$hangman->try = $hangman->try + 1;
|
|
if($hangman->try > $hangman->maxtries){
|
|
$finished = true;
|
|
}
|
|
if( $done){
|
|
$hangman->corrects = $hangman->corrects + 1;
|
|
$updrec->corrects = $hangman->corrects;
|
|
}
|
|
}
|
|
$updrec->try = $hangman->try;
|
|
$updrec->finishedword = 1;
|
|
}
|
|
|
|
$query->percent = ($correct -$wrong/$max) / $textlib->strlen( $word);
|
|
if( $query->percent < 0){
|
|
$query->percent = 0;
|
|
}
|
|
|
|
if($onlyshow or $showsolution){
|
|
return;
|
|
}
|
|
|
|
if(!update_record( 'game_hangman', $updrec)){
|
|
error("hangman_showpage: Can't update game_hangman id=$updrec->id");
|
|
}
|
|
|
|
if($done){
|
|
$score = 1;
|
|
}
|
|
else if($wrong >= $max){
|
|
$score = 0;
|
|
}
|
|
else{
|
|
$score = -1;
|
|
}
|
|
|
|
game_updateattempts($game, $attempt, $score, $finished);
|
|
game_update_queries($game, $attempt, $query, $score, $answer);
|
|
}
|
|
|
|
//This word is correct. If reach the max number of word I have to finish else continue with next word
|
|
function hangman_oncorrect($id, $word_line, $game, $attempt, $hangman, $query){
|
|
echo "<br/><br/><font size=\"5\">\n$word_line</font>\r\n";
|
|
|
|
echo '<p><br/><font size="5" color="green">'.get_string('win', 'game').'</font><br/><br/></p>';
|
|
if( $query->answerid){
|
|
$feedback = get_field('question_answers', 'feedback', 'id', $query->answerid);
|
|
if($feedback != ''){
|
|
echo "$feedback<br>";
|
|
}
|
|
}
|
|
|
|
game_hangman_show_nextword($id, $game, $attempt, $hangman);
|
|
}
|
|
|
|
function hangman_oninncorrect($id, $word_line, $word, $game, $attempt, $hangman){
|
|
$textlib = textlib_get_instance();
|
|
|
|
echo "\r\n<br/><br/><font size=\"5\">\n$word_line</font>\r\n";
|
|
|
|
echo '<p><br/><font size="5" color="red">'.get_string('hangman_loose', 'game').'</font><br/><br/></p>';
|
|
|
|
if($game->param6){
|
|
//show the correct answer
|
|
if( $textlib->strpos($word, ' ') != false)
|
|
echo '<br/>'.get_string('hangman_correct_phrase', 'game');
|
|
else
|
|
echo '<br/>'.get_string('hangman_correct_word', 'game');
|
|
|
|
echo '<b>'.$word."</b><br/><br/>\r\n";
|
|
}
|
|
|
|
game_hangman_show_nextword($id, $game, $attempt, $hangman, true);
|
|
}
|
|
|
|
function game_hangman_show_nextword($id, $game, $attempt, $hangman){
|
|
global $CFG;
|
|
|
|
echo '<br/>';
|
|
if(($hangman->try < $hangman->maxtries) or ($hangman->maxtries == 0)){
|
|
//continue to next word
|
|
$params = "id=$id&action2=nextword\">".get_string('nextword', 'game').'</a> ';
|
|
echo "<a href=\"$CFG->wwwroot/mod/game/attempt.php?$params";
|
|
}
|
|
else{
|
|
game_hangman_onfinishgame($game, $attempt, $hangman);
|
|
echo "<a href=\"$CFG->wwwroot/mod/game/attempt.php?id=$id\">".get_string('nextgame', 'game').'</a> ';
|
|
}
|
|
|
|
if (!$cm = get_record("course_modules", "id", $id)){
|
|
error("Course Module ID was incorrect id=$id");
|
|
}
|
|
|
|
echo "<a href=\"$CFG->wwwroot/course/view.php?id=$cm->course\">".get_string('finish', 'game').'</a> ';
|
|
}
|
|
|
|
?>
|
|
|