Просмотр файла stop.php

<?php
Error_Reporting(E_ALL & ~E_NOTICE);
include "wml.php";
wmlStart();
/*вывод страницы "Стоп-игра"*/
/*создание информации об ошибке, если нет файла с ответом*/
if($d=="stop"){if(!file_exists("./name/".$r."tekst.txt"))
{print win2utf(cardStart("error","Ошибка")."<p align=\"center\">Вы не можете внести свое имя
в таблицу рекордов!!!<br/><small>Если Вы считаете,что это ошибка, свяжитесь с автором по
адресу<br/> wap.viafree.net</small><br/><a href=\"./index.php\">Новая игра</a><br/>
<a href=\"http://wap.viafree.net\">На главную</a>");die("</p></card></wml>");}
/*узнаем сумму выигрыша*/
$dolg=@mani($bak);
print win2utf(cardStart("pris","Стоп игра")."<p align=\"center\">Ваш выигрыш: ".$dolg.
" рублей<br/>Ваше имя:<br/><input type=\"text\" name=\"log\" maxlength=\"15\"/><br/>".
"<anchor>Записать<go href=\"stop.php\" method=\"post\">
<postfield name=\"log\" value=\"$(log)\"/><postfield name=\"d\" value=\"rek\"/>
<postfield name=\"dolg\" value=\"".$dolg."\"/></go></anchor><br/>
<a href=\"./index.php\">Еще раз</a><br/><a href=\"http://wap.viafree.net\">На главную</a>");
cardEnd();wmlEnd();
/*удаляем лог-файлы игрока*/
@unlink("./name/".$r."tekst.txt");@unlink("./name/".$r."help.txt");
@unlink("./name/".$r.".txt");}
/*запись рекорда или вывод статистики*/
if($d=="rek"){
print win2utf(cardStart("test","Статистика")."<p>");
   if(!isset($dolg)or !isset($log)){
$st=@file("name/rekord.txt");
   $c=count($st);$nom=1;if($c>10)$c=10;
   rsort($st,SORT_NUMERIC);
   for($i=0;$i<=$c-1;$i++){
    print "<small>".$nom++.".".str_replace("::"," _ ",$st[$i])."</small><br/>";
   }
print win2utf("</p><p align=\"center\"><a href=\"./index.php\">Назад</a><br/>
<a href=\"http://brat.kmx.ru\">На главную</a>");
    die("</p></card></wml>");}
    $dano=$dolg."::".$log."\n";
    $dano=htmlspecialchars($dano);
   if(!file_exists("name/rekord.txt"))$rekord=fopen("name/rekord.txt","w+");
   else $rekord=fopen("name/rekord.txt","a+");$d=file_get_contents("name/rekord.txt");
   $vh=substr_count($d,$dano);
   if($vh==0)fputs($rekord,$dano);
   @fclose($rekord);
   $st=@file("name/rekord.txt");
   $c=count($st);$nom=1;if($c>10)$c=10;
   @rsort($st,SORT_NUMERIC);
   for($i=0;$i<=$c-1;$i++){
    print "<small>".$nom++.".".str_replace("::"," ",$st[$i])."</small><br/>";
   }
print win2utf("</p><p align=\"center\"><a href=\"./index.php\">Новая игра</a><br/>
<a href=\"http://wap.viafree.net\">На главную</a>");die("</p></card></wml>");}
if(!isset($d))
{
print win2utf(cardStart("test","Статистика")."<p>");
$st=@file("name/rekord.txt");
   $c=count($st);$nom=1;if($c>10)$c=10;
   @rsort($st,SORT_NUMERIC);
   for($i=0;$i<=$c-1;$i++){
    print "<small>".$nom++.".".str_replace("::"," _ ",$st[$i])."</small><br/>";
   }
print win2utf("</p><p align=\"center\"><a href=\"./index.php\">Назад</a><br/>
<a href=\"http://wap.viafree.net\">На главную</a>");
    die("</p></card></wml>");
}
/*вызов скрипта не по ссылке*/
if($d!="rek" and $d!="stop")
{
print win2utf(cardStart("error","Ошибочка!"));
print win2utf("<p align=\"center\">Информация недоступна!<br/><small>Если Вы считаете, что произошла ошибка, напишите на<br/>wap.viafree.net</small><br/><a href=\"./index.php\">Назад</a><br/>
<a href=\"http://wap.viafree.net\">На главную</a>");
    die("</p></card></wml>");
}
?>