<?
define("QPath",""); // Путь к скрипту...
define("QTemp",0); // Какой шаблон использовать
define("QTop",5); // Сколько рекордов хранить

// ********************* Нижеследующее трогать нежелательно ********************
// *****************************************************************************
function PlaceRecord($Lvl)
{
$sf = QPath."temp/".ID."h";
$nf = QPath."record.dat";
$Rez = 0;
if (!file_exists($nf)) $Rez = 1; else {
$RStr = file($nf);
for ($i=0;$i<count($RStr);$i++) {
$Stac = explode("|",$RStr[$i]);
if ((int)$Stac[0] <= $Lvl) { $Rez = $i+1 ; break; }
}
if (count($RStr) < QTop) $Rez = count($RStr);
}
if ($Rez != 0) {
$fl = fopen($sf,"wb");
flock($fl, LOCK_EX);
fwrite($fl,$Lvl);
flock($fl, LOCK_UN);
fclose($fl);
}
return $Rez;
}
function SaveRecord($ID,$NM)
{
$sf = QPath."temp/".$ID."h";
if (!file_exists($sf)) return false;
$Rec = file($sf); unlink($sf); $Rec = trim($Rec[0]);
$sf = QPath."record.dat";
if (file_exists($sf)) $RStr = file($sf); else $RStr = NULL;
$fl = fopen($sf,"a+b");
flock($fl, LOCK_EX);
for ($i=0;$i<count($RStr);$i++) {
$Stac = explode("|",$RStr[$i]);
if ((int)$Stac[0] > $Rec) continue; else break;
}
ftruncate($fl,0); fseek($fl,0,SEEK_SET);
$ps = 0;
if ($RStr == NULL) fwrite($fl,$Rec."|".$NM."\r\n"); else {
for ($x=0;$x<count($RStr);$x++) {
if ($i == $x) { fwrite($fl,$Rec."|".$NM."\r\n"); $ps++; }
if ($ps >= QTop) break;
fwrite($fl,$RStr[$x]);
$ps++;
}
if ($i < QTop & $i>=count($RStr)) fwrite($fl,$Rec[0]."|".$NM."\r\n");
}
flock($fl, LOCK_UN);
fclose($fl);
}
function ClearSess()
{
$dh = opendir(QPath."temp/");
$nf = readdir($dh);
$nf = readdir($dh);
for ($i=0;$i<4;$i++) {
$nf = readdir($dh);
if (strlen($nf) < 3) break;
$nf = QPath."temp/".$nf;
if (fileatime($nf) < time()-3600) unlink($nf);
}
closedir($dh);
}
function QtRnd(&$fl,&$p)
{
fseek($fl, 13+$p*8, SEEK_SET);
$ps = (int)fread($fl,8);
fseek($fl, $ps, SEEK_SET);
$ps = (int)fread($fl,4);
$p = rand(0,$ps-1);
fseek($fl,$p*8, SEEK_CUR);
$ps = (int)fread($fl,8);
fseek($fl,$ps, SEEK_SET);
$ps = fread($fl,4);
return fread($fl,$ps);
}
function QtId(&$fl,$l,$p)
{
fseek($fl, 13+$l*8, SEEK_SET);
$ps = (int)fread($fl,8);
fseek($fl, $ps+4+$p*8, SEEK_SET);
$ps = (int)fread($fl,8);
fseek($fl,$ps, SEEK_SET);
$ps = fread($fl,4);
return fread($fl,$ps);
}
if (isset($_POST['Record'])) SaveRecord(strip_tags($_POST['IDR']),strip_tags($_POST['Record']));
$Error = 0;
$nf = QPath."base/level.php";
$fl = fopen($nf,"rb");
flock($fl, LOCK_EX);
fseek($fl, 10, SEEK_SET);
$cl = (int)fread($fl,3);
define("CLevel",$cl);
if (!isset($_POST['ID'])) { define("Level",0); define("ID",0); } else {
if ($_POST['ID'] == 0) {
if ($_POST['zero'] === $_POST['Answer']) {
$Error = 0;
ClearSess();
define("ID",time().uniqid(0));
define("Level",1);
} else { define("Level",1); $Error = 1; define("ID",0); define("Record",0); }
} else {
define("ID",strip_tags($_POST['ID']));
$sf = QPath."temp/".ID.".php";
if (!file_exists($sf)) $Error = 1; else {
$Ans = strip_tags($_POST['Answer']);
$Stac = file($sf); $Stac = explode("|",trim($Stac[0]));
if ($Ans !== $Stac[1]) { $Error = 1; unlink($sf); define("Record",PlaceRecord($Stac[2]+1)); }
define("Level",(int)($Stac[2]+1));
if ($Error != 1) if (CLevel <= Level) { $Error = 2; unlink($sf); PlaceRecord(Level); }
}
}
}
if ($Error == 1) {
$Str = QtId($fl,Level-1,$_POST['PQST']);
$Str = explode("|",$Str);
define("RQuest",$Str[0]);
if ($Str[1] == 0) define("RAnswer",$Str[6+$Str[5]]); else define("RAnswer",$Str[3]);
}
if ($Error == 0) {
$p = Level;
$Str = QtRnd($fl,$p);
$Str = explode("|",$Str);
if ($Str[1] == 0) $Ans = $Str[5]; else $Ans = $Str[3];
}
flock($fl, LOCK_UN);
fclose($fl);
if (ID != 0 & $Error == 0) {
$sf = QPath."temp/".ID.".php";
$fl = fopen($sf,"wb");
flock($fl, LOCK_EX);
fwrite($fl,"<?die();?>|".$Ans."|".Level);
flock($fl, LOCK_UN);
fclose($fl);
include QPath."template/".QTemp."/index.php";
}
if (ID == 0 & $Error== 0) include QPath."template/".QTemp."/index.php";
if ($Error == 1) include QPath."template/".QTemp."/nogame.php";
if ($Error == 2) include QPath."template/".QTemp."/happy.php";
?>
Скрипт от <a href="http://www.happysoftx.com">HappySoftX</a>