Размер файла: 5.55Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
include_once("files/antixak.php");
header("Content-type:text/vnd.wap.wml");
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>";
echo "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">";
echo "<wml>\n";
echo "<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>";
echo "<card id=\"index\" title=\"Клановые войны\">";
echo "<p align=\"left\">";
$log = htmlspecialchars(stripslashes($log));
$pas = htmlspecialchars(stripslashes($pas));
/////////////////////////////////////////////////////
$text = @file("data/reg/$log.dat");
if ($text!=""){
$udata = explode(":||:",$text[0]);
$login=trim($udata[0]);
$password=trim($udata[1]);}
////////////////////////////////////////////////////////
if (md5($pas)==$password && $log==$login && $log!=="" && md5($pas)!=="") {
echo"Отключено на неопределенный срок."; include_once"files/down.php"; exit;
if(empty($udata[23])){echo"<small>Вы не в клане!</small>"; include_once"files/down.php"; exit;}
switch($go) {
default:
$col="10";
$mmm=$col;
//////////////////////////////////////////////////////////////////////////////////////
if(empty($go)){$go="1";}
$dir=opendir("data/clan");
$n = "0";
while(($k=readdir($dir))!==false){
if ($k=='.'||$k=='..'||$k=='name'||$k=='tmp'||$k=='sklad'||$k=='zahvat'||$k=='desk'||$k=='chat'||$k=='logs'||$k=='bank') continue;
$n++;
}
closedir($dir);
////////////////////
$num=($n/$col);
if ($num!==(int)$num){$foo = (int) $num;
$fo = ($foo + 1);} else {$fo=$num;}
for ($i="1"; $i<=$fo; $i++)
if ($go == "") {$c="0";} else {$c=($col*($go-1));}
///////////////////////
$dir = opendir ("data/clan");
while ($file = readdir ($dir))
{
if (( $file != ".") && ($file != "..") && ($file != "name") && ($file != "tmp") && ($file != "sklad") && ($file != "zahvat") && ($file != "chat") && ($file != "desk") && ($file != "logs") && ($file != "bank"))
{ $file= str_replace(".dat","",$file);
$file2= "$file";
$text = @file("data/clan/$file2.dat");
$udat = explode(":||:",$text[0]);
$name=trim($udat[1]);
$la = $la + 1;
if($go=="1"){$col=round($mmm+1);}
if($la>$c-1 and $la<$c+$col){
if ($mode == "1"){$ee = strtr($e1,$tran);}else{$ee = $e1;}
$laa = $la + 1;
$file=@file("data/clan/name/$file2.dat");
$total=count($file);
echo "<small>$la. $name <a href=\"clanwar.php?log=$log&pas=$pas&go=list&lider=$file2\">список клановцев</a></small><br/>";
}}
}
closedir ($dir);
if ($go == "") {$c="0";} else{$c=($col*($go-1));}
$lis = $go + 1;
$lis1 = $go - 1;
echo"<br/>";
if ($lis1 < "1") {} else{print "<small><a href=\"clanwar.php?go=$lis1&log=$log&pas=$pas\">Назад</a> | </small>";}
if ($lis == "$i") {} else { print "<small><a href=\"clanwar.php?go=$lis&log=$log&pas=$pas\">Вперед</a></small>";}
break;
case 'list':
$lider = htmlspecialchars(stripslashes($lider));
if(!@file("data/clan/$lider.dat")){echo"<small>Такой клан не существует.</small>"; include_once"files/down.php"; exit;}
$text = @file("data/clan/name/$lider.dat");
$vsegoo=count($text);
for($i=0; $i<$vsegoo; $i++){
$data = explode("|",$text[$i]);
$file=@file("data/other/$data[1].dat");
$data2=explode("||",$file[0]);
$time=time()-10;
if($data2[0]<$time){
$stat="[Offline]";
}
if(empty($stat)){$stat="[Online]";}
echo"<small>$data[1] - <a href=\"clanwar.php?go=combat&log=$log&pas=$pas&nick=$data[1]\">напасть</a> $stat</small><br/>";
}
break;
case 'combat':
if($nick==$log){echo"<small>Вы не можете напасть на самого себя!</small>";include_once"files/down.php";exit;}
if(!@file("data/reg/$nick.dat")){echo"<small>Такого игрока не существует!</small>";include_once"files/down.php";exit;}
if(eregi(".GM",$uzer)){echo"<small>Ошибка.</small>"; include_once"files/down.php"; exit;}
$file=@file("data/reg/$nick.dat");
$dat=explode(":||:",$file[0]);
if($dat[9]<="5"){echo"<small>На слабых игроков нельзя нападать!</small>";
include_once"files/down.php";exit;
}
$file=@file("data/other/$nick.dat");
$data=explode("||",$file[0]);
$time=time()-10;
if($data[0]<$time){
echo"<small>Этот игрок в offline.</small>";
include_once"files/down.php";
exit;
}
$text="$log||clan||";
$fp=fopen("data/pk/$nick.dat","w");
flock($fp,LOCK_EX);
fputs($fp,"$text");
fflush($fp);
flock($fp,LOCK_UN);
fclose($fp);
chmod ("data/pk/$nick.dat", 0666);
$text2="$nick||clan||";
$fp=fopen("data/pk/$log.dat","w");
flock($fp,LOCK_EX);
fputs($fp,"$text2");
fflush($fp);
flock($fp,LOCK_UN);
fclose($fp);
chmod ("data/pk/$log.dat", 0666);
echo"<small><a href=\"combatpk.php?log=$log&pas=$pas&gorod=$gorod\">Продолжить</a></small>";
break;
case 'faq':
echo"<small>При ограблении могут быть неприятности... Даже если вы победили вас могут все равно ограбить, но шанс очень маленький ;)</small>";
break;
}
}else{echo"<small>Пароль или логин неверен!</small>";}
include_once"files/down.php";
?>