Vasilis Daloukas
9 years ago
11 changed files with 5332 additions and 3557 deletions
@ -1,229 +1,220 @@ |
|||
<?PHP |
|||
|
|||
class CryptexDB extends CrossDB |
|||
{ |
|||
function savecryptex( $game, &$crossm, $crossd, $id, $letters) |
|||
{ |
|||
global $USER; |
|||
<?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/>. |
|||
|
|||
class CryptexDB extends CrossDB { |
|||
public function savecryptex( $game, &$crossm, $crossd, $id, $letters) { |
|||
global $USER; |
|||
|
|||
CrossDB::delete_records( $id); |
|||
|
|||
if( (CrossDB::savecross( $game, $crossm, $crossd, $id)) == false){ |
|||
return false; |
|||
} |
|||
if ((CrossDB::savecross( $game, $crossm, $crossd, $id)) == false) { |
|||
return false; |
|||
} |
|||
|
|||
$crossm->id = $id; |
|||
$crossm->id = $id; |
|||
|
|||
$newrec = new stdClass(); |
|||
$newrec = new stdClass(); |
|||
$newrec->id = $id; |
|||
$newrec->letters = $letters; |
|||
|
|||
if (!($cryptexid = game_insert_record( "game_cryptex", $newrec))){ |
|||
print_error( 'Insert page: new page game_cryptex not inserted'); |
|||
} |
|||
|
|||
return $newrec; |
|||
} |
|||
|
|||
|
|||
function computeletters( $crossm, $crossd) |
|||
{ |
|||
$letters = ''; |
|||
$cols = $crossm->cols + 1; |
|||
$letters = str_repeat('.', $crossm->cols).'#'; |
|||
$letters = str_repeat($letters, $crossm->rows) ; |
|||
|
|||
$freqs1 = array(); |
|||
$count1 = $count2 = 0; |
|||
foreach( $crossd as $rec) |
|||
{ |
|||
$pos = $rec->col - 1 + ($rec->row-1) * $cols; |
|||
$s = $rec->answertext; |
|||
$len = game_strlen( $s); |
|||
|
|||
$a = array(); |
|||
for( $i=0; $i < $len; $i++){ |
|||
$a[] = game_substr( $s, $i, 1); |
|||
} |
|||
|
|||
for( $i=0; $i < $len; $i++){ |
|||
$this->setchar( $letters, $pos, $a[ $i]); |
|||
$pos += ( $rec->horizontal ? 1 : $cols); |
|||
|
|||
$freqs1[ ++$count1] = $a[ $i]; |
|||
if( $i+1 < $len){ |
|||
$freqs2[ ++$count2] = $a[ $i].$a[ $i+1]; |
|||
} |
|||
} |
|||
} |
|||
|
|||
$len = game_strlen( $letters); |
|||
$spaces = 0; |
|||
for( $i=0; $i < $len; $i++){ |
|||
if( game_substr( $letters, $i, 1) == '.'){ |
|||
$spaces++; |
|||
} |
|||
} |
|||
|
|||
$step = 1; |
|||
while( $spaces) |
|||
{ |
|||
if( $step == 1){ |
|||
$step = 2; |
|||
$i = array_rand( $freqs1); |
|||
$this->insertchar( $letters, $crossm->cols, $crossm->rows, $freqs1[ $i], $spaces); |
|||
}else |
|||
{ |
|||
$step=1; |
|||
$i = array_rand( $freqs2); |
|||
$this->insertchars( $letters, $crossm->cols, $crossm->rows, $freqs2[ $i], $spaces); |
|||
} |
|||
} |
|||
|
|||
$ret_letters = ""; |
|||
for( $row=0; $row < $crossm->rows; $row++){ |
|||
$ret_letters .= game_substr( $letters, $cols * $row, ($cols-1)); |
|||
} |
|||
|
|||
|
|||
return $ret_letters; |
|||
} |
|||
|
|||
function displaycryptex( $cols, $rows, $letters, $mask, $showsolution, $textdir) |
|||
{ |
|||
echo "<table border=1 $textdir>"; |
|||
for( $row=0; $row < $rows; $row++) |
|||
{ |
|||
echo "<tr>"; |
|||
for( $col=0; $col < $cols; $col++){ |
|||
$pos = $cols * $row+$col; |
|||
$c = game_substr( $letters, $pos, 1); |
|||
$m = game_substr( $mask, $pos, 1); |
|||
|
|||
if( $showsolution and $m > '0'){ |
|||
echo "<td align=center><b><FONT color=red>".$c."</font></td>"; |
|||
}else if( $m == '1'){ |
|||
echo "<td align=center><b><FONT color=red>".$c."</font></td>"; |
|||
}else |
|||
{ |
|||
echo "<td align=center>".$c."</td>"; |
|||
} |
|||
} |
|||
echo "</tr>\r\n"; |
|||
} |
|||
echo "</table>"; |
|||
$newrec->letters = $letters; |
|||
|
|||
if (!($cryptexid = game_insert_record( "game_cryptex", $newrec))) { |
|||
print_error( 'Insert page: new page game_cryptex not inserted'); |
|||
} |
|||
|
|||
return $newrec; |
|||
} |
|||
|
|||
function insertchar( &$letters, $cols, $rows, $char, &$spaces) |
|||
{ |
|||
$len = game_strlen( $letters); |
|||
for( $i=0; $i < $len; $i++){ |
|||
if( game_substr( $letters, $i, 1) == '.'){ |
|||
$this->setchar( $letters, $i, $char); |
|||
$spaces--; |
|||
return; |
|||
} |
|||
} |
|||
} |
|||
|
|||
function insertchars( &$letters, $cols, $rows, $char, &$spaces) |
|||
{ |
|||
$len = game_strlen( $letters); |
|||
for( $i=0; $i < $len; $i++){ |
|||
if( game_substr( $letters, $i, 1) == '.' and game_substr( $letters, $i+1, 1) == '.' ){ |
|||
$this->setchar( $letters, $i, game_substr( $char, 0, 1)); |
|||
$this->setchar( $letters, $i+1, game_substr( $char, 1, 1)); |
|||
$spaces-=2; |
|||
return true; |
|||
} |
|||
if( game_substr( $letters, $i, 1) == '.' and game_substr( $letters, $i+$cols+1, 1) == '.' ){ |
|||
$this->setchar( $letters, $i, game_substr( $char, 0, 1)); |
|||
$this->setchar( $letters, $i + $cols+1, game_substr( $char, 1, 1)); |
|||
$spaces-=2; |
|||
return true; |
|||
} |
|||
} |
|||
|
|||
return false; |
|||
} |
|||
|
|||
function gethash( $word) |
|||
{ |
|||
$x = 37; |
|||
$len = count( game_strlen( $word)); |
|||
|
|||
for($i=0; $i < $len; $i++){ |
|||
$x = $x xor ord( game_substr( $word, $i, 1)); |
|||
} |
|||
|
|||
return $x; |
|||
} |
|||
|
|||
function loadcryptex( $crossm, &$mask, &$corrects, &$language) |
|||
{ |
|||
global $DB; |
|||
public function computeletters( $crossm, $crossd) { |
|||
$letters = ''; |
|||
$cols = $crossm->cols + 1; |
|||
$letters = str_repeat('.', $crossm->cols).'#'; |
|||
$letters = str_repeat($letters, $crossm->rows); |
|||
|
|||
$freqs1 = array(); |
|||
$count1 = $count2 = 0; |
|||
foreach ($crossd as $rec) { |
|||
$pos = $rec->col - 1 + ($rec->row - 1) * $cols; |
|||
$s = $rec->answertext; |
|||
$len = game_strlen( $s); |
|||
|
|||
$a = array(); |
|||
for ($i = 0; $i < $len; $i++) { |
|||
$a[] = game_substr( $s, $i, 1); |
|||
} |
|||
|
|||
for ($i = 0; $i < $len; $i++) { |
|||
$this->setchar( $letters, $pos, $a[ $i]); |
|||
$pos += ( $rec->horizontal ? 1 : $cols); |
|||
|
|||
$freqs1[ ++$count1] = $a[ $i]; |
|||
if ($i + 1 < $len) { |
|||
$freqs2[ ++$count2] = $a[ $i].$a[ $i + 1]; |
|||
} |
|||
} |
|||
} |
|||
|
|||
$len = game_strlen( $letters); |
|||
$spaces = 0; |
|||
for ($i = 0; $i < $len; $i++) { |
|||
if (game_substr( $letters, $i, 1) == '.') { |
|||
$spaces++; |
|||
} |
|||
} |
|||
|
|||
$step = 1; |
|||
while ($spaces) { |
|||
if ($step == 1) { |
|||
$step = 2; |
|||
$i = array_rand( $freqs1); |
|||
$this->insertchar( $letters, $crossm->cols, $crossm->rows, $freqs1[ $i], $spaces); |
|||
} else { |
|||
$step = 1; |
|||
$i = array_rand( $freqs2); |
|||
$this->insertchars( $letters, $crossm->cols, $crossm->rows, $freqs2[ $i], $spaces); |
|||
} |
|||
} |
|||
|
|||
$retletters = ""; |
|||
for ($row = 0; $row < $crossm->rows; $row++) { |
|||
$retletters .= game_substr( $letters, $cols * $row, ($cols - 1)); |
|||
} |
|||
|
|||
return $retletters; |
|||
} |
|||
|
|||
$questions = array(); |
|||
$corrects = array(); |
|||
public function displaycryptex( $cols, $rows, $letters, $mask, $showsolution, $textdir) { |
|||
echo "<table border=1 $textdir>"; |
|||
for ($row = 0; $row < $rows; $row++) { |
|||
echo "<tr>"; |
|||
for ($col = 0; $col < $cols; $col++) { |
|||
$pos = $cols * $row + $col; |
|||
$c = game_substr( $letters, $pos, 1); |
|||
$m = game_substr( $mask, $pos, 1); |
|||
|
|||
if ($showsolution and $m > '0') { |
|||
echo "<td align=center><b><FONT color=red>".$c."</font></td>"; |
|||
} else if ( $m == '1') { |
|||
echo "<td align=center><b><FONT color=red>".$c."</font></td>"; |
|||
} else { |
|||
echo "<td align=center>".$c."</td>"; |
|||
} |
|||
} |
|||
echo "</tr>\r\n"; |
|||
} |
|||
echo "</table>"; |
|||
} |
|||
|
|||
$mask = str_repeat( '0', $crossm->cols * $crossm->rows); |
|||
public function insertchar( &$letters, $cols, $rows, $char, &$spaces) { |
|||
$len = game_strlen( $letters); |
|||
for ($i = 0; $i < $len; $i++) { |
|||
if (game_substr( $letters, $i, 1) == '.') { |
|||
$this->setchar( $letters, $i, $char); |
|||
$spaces--; |
|||
return; |
|||
} |
|||
} |
|||
} |
|||
|
|||
if ($recs = $DB->get_records( 'game_queries', array( 'attemptid' => $crossm->id))) |
|||
{ |
|||
foreach ($recs as $rec) |
|||
{ |
|||
if( $rec->questiontext == ''){ |
|||
$rec->questiontext = ' '; |
|||
} |
|||
$key = $this->gethash( $rec->questiontext).'-'.$rec->answertext.'-'.$rec->id; |
|||
$questions[ $key] = $rec; |
|||
public function insertchars( &$letters, $cols, $rows, $char, &$spaces) { |
|||
$len = game_strlen( $letters); |
|||
for ($i = 0; $i < $len; $i++) { |
|||
if (game_substr( $letters, $i, 1) == '.' and game_substr( $letters, $i + 1, 1) == '.' ) { |
|||
$this->setchar( $letters, $i, game_substr( $char, 0, 1)); |
|||
$this->setchar( $letters, $i + 1, game_substr( $char, 1, 1)); |
|||
$spaces -= 2; |
|||
return true; |
|||
} |
|||
if (game_substr( $letters, $i, 1) == '.' and game_substr( $letters, $i + $cols + 1, 1) == '.' ) { |
|||
$this->setchar( $letters, $i, game_substr( $char, 0, 1)); |
|||
$this->setchar( $letters, $i + $cols + 1, game_substr( $char, 1, 1)); |
|||
$spaces -= 2; |
|||
return true; |
|||
} |
|||
} |
|||
|
|||
return false; |
|||
} |
|||
|
|||
$word = $rec->answertext; |
|||
$pos = $crossm->cols * ($rec->row-1)+($rec->col-1); |
|||
$len = game_strlen( $word); |
|||
$found = ($rec->answertext == $rec->studentanswer); |
|||
public function gethash( $word) { |
|||
$x = 37; |
|||
$len = count( game_strlen( $word)); |
|||
|
|||
for( $i=0; $i < $len; $i++) |
|||
{ |
|||
$c = ( $found ? '1' : '2'); |
|||
for ($i = 0; $i < $len; $i++) { |
|||
$x = $x xor ord( game_substr( $word, $i, 1)); |
|||
} |
|||
|
|||
if( game_substr( $mask, $pos, 1) != '1'){ |
|||
game_setchar( $mask, $pos, $c); |
|||
} |
|||
return $x; |
|||
} |
|||
|
|||
$pos += ($rec->horizontal ? 1 : $crossm->cols); |
|||
} |
|||
public function loadcryptex( $crossm, &$mask, &$corrects, &$language) { |
|||
global $DB; |
|||
|
|||
if( $found){ |
|||
$corrects[ $rec->id] = 1; |
|||
} |
|||
$questions = array(); |
|||
$corrects = array(); |
|||
|
|||
if( $language == ''){ |
|||
$language = game_detectlanguage( $rec->answertext); |
|||
$mask = str_repeat( '0', $crossm->cols * $crossm->rows); |
|||
|
|||
if ($recs = $DB->get_records( 'game_queries', array( 'attemptid' => $crossm->id))) { |
|||
foreach ($recs as $rec) { |
|||
if ($rec->questiontext == '') { |
|||
$rec->questiontext = ' '; |
|||
} |
|||
} |
|||
ksort( $questions); |
|||
} |
|||
$key = $this->gethash( $rec->questiontext).'-'.$rec->answertext.'-'.$rec->id; |
|||
$questions[ $key] = $rec; |
|||
|
|||
return $questions; |
|||
} |
|||
$word = $rec->answertext; |
|||
$pos = $crossm->cols * ($rec->row - 1) + ($rec->col - 1); |
|||
$len = game_strlen( $word); |
|||
$found = ($rec->answertext == $rec->studentanswer); |
|||
|
|||
for ($i = 0; $i < $len; $i++) { |
|||
$c = ( $found ? '1' : '2'); |
|||
|
|||
function setwords( $answers, $maxcols, $reps) |
|||
{ |
|||
return Cross::setwords( $answers, $maxcols, $reps); |
|||
} |
|||
if (game_substr( $mask, $pos, 1) != '1') { |
|||
game_setchar( $mask, $pos, $c); |
|||
} |
|||
|
|||
function computedata( &$crossm, &$crossd, &$letters, $minwords, $maxwords) |
|||
{ |
|||
if( !cross::computedata( $crossm, $crossd, $letters, $minwords, $maxwords)){ |
|||
return false; |
|||
} |
|||
$pos += ($rec->horizontal ? 1 : $crossm->cols); |
|||
} |
|||
|
|||
$letters = $this->computeletters( $crossm, $crossd); |
|||
if ($found) { |
|||
$corrects[ $rec->id] = 1; |
|||
} |
|||
|
|||
return true; |
|||
} |
|||
} |
|||
if ($language == '') { |
|||
$language = game_detectlanguage( $rec->answertext); |
|||
} |
|||
} |
|||
ksort( $questions); |
|||
} |
|||
|
|||
return $questions; |
|||
} |
|||
|
|||
public function setwords( $answers, $maxcols, $reps) { |
|||
return Cross::setwords( $answers, $maxcols, $reps); |
|||
} |
|||
|
|||
public function computedata( &$crossm, &$crossd, &$letters, $minwords, $maxwords) { |
|||
if (!cross::computedata( $crossm, $crossd, $letters, $minwords, $maxwords)) { |
|||
return false; |
|||
} |
|||
|
|||
$letters = $this->computeletters( $crossm, $crossd); |
|||
|
|||
return true; |
|||
} |
|||
} |
|||
|
|||
@ -1,8 +1,21 @@ |
|||
<?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/>. |
|||
|
|||
require( "../../../config.php"); |
|||
|
|||
|
|||
execute_sql("truncate TABLE {game_snakes_database}"); |
|||
|
|||
require( "importsnakes.php"); |
|||
|
|||
File diff suppressed because it is too large
Loading…
Reference in new issue