Просмотр архива Территория Зла


<?php
// карта, передается map=x123x456 и для картики img=1 bw=1|2|3, f=x123x456 место флага
$tmp=$QUERY_STRING;if($tmp=='') $tmp=$_SERVER["QUERY_STRING"];
$tmp=urldecode($tmp);
parse_str($tmp);

if($info) msg("<p>Ваша позиция обозначена белым квадратиком с черной точкой в центре (или черным квадратиком с белой точкой в центре, в зависимости от фона).<br/>Флаг лидерства - для цветных желтым квадратиком с черной точкой, для ч/б - как ваша.<br/>Замки - красные квадратики с белой точкой в центре (только для цветной карты).<br/>В настройках можете поменять тип карты (формат PNG лучший, но не все телефоны поддерживают).<br/><a href="http://zlo.holys.com.ru/game/f_faq.php?id=map">Другие карты</a>");
if($flag) msg("<p>".implode("",file("../story/flag.htm")));
$loc=$l;

// >1650
function calctc($loc) {
if($loc=="_begin") $loc="x1158x523";
if($loc=="arena") $loc="x1086x501";
if(substr($loc,0,4)=="c.1.") $loc="x1429x168";
if(substr($loc,0,4)=="c.2.") $loc="x781x429";
if(substr($loc,0,4)=="c.3.") $loc="x1129x369";
if(substr($loc,0,4)=="c.4.") $loc="x2320x348";

$tc=explode("x",$loc);
if ($tc[2]>1101) {
    $tc[1]=round(($tc[1]-20)/6);
    $tc[2]=round(($tc[2]-1101)/6);
    $tc[3]=2;
    } else 
if ($tc[1]>1650) {
    $tc[1]=round(($tc[1]-450-1200)/15);
    $tc[2]=round($tc[2]/15);
    $tc[3]=1;
    } else {
        $tc[1]=round(($tc[1]-450)/12);
        $tc[2]=round($tc[2]/12);
        $tc[3]=0;
        }
return $tc;
}

$tc=calctc($l);
$tcf=calctc($f);

if ($img) {                        // выведем картинку
    if($bw==1) $t="wbmp"; else if ($bw==2) $t="jpg"; else $t="png";
    if($tc[3]==2) $img="map3.".$t; else if($tc[3]) $img="map2.".$t; else $img="map1.".$t;
    $size = getimagesize($img);
    if($bw==1) $im = imagecreatefromwbmp($img); else if ($bw==2) $im = imagecreatefromjpeg($img); else $im = imagecreatefrompng($img);
    if(!$im) die("err");
    $col=imagecolorat($im,$tc[1]+1,$tc[2]+1);
    if ($col==0 || $col=="16777180") {$cb=1; $cc=imagecolorallocate($im, 255, 255, 255);} else {$cb=imagecolorallocate($im, 255, 255, 255); $cc=1;}
    imagefilledrectangle($im,$tc[1],$tc[2],$tc[1]+2,$tc[2]+2,$cb);
    imagesetpixel($im,$tc[1]+1,$tc[2]+1,$cc);
    if ($tcf[3]==$tc[3] && $f!=$l) {    // флаг
    if ($col==0 || $col=="16777180") {$cb=1; $cc=imagecolorallocate($im, 255, 255, 255);} else {$cb=imagecolorallocate($im, 255, 255, 255); $cc=1;}
        if ($bw!=1) {$cb=imagecolorallocate($im, 255, 255, 0);$cc=imagecolorallocate($im, 0, 0, 0);}
        imagefilledrectangle($im,$tcf[1],$tcf[2],$tcf[1]+2,$tcf[2]+2,$cb);
        imagesetpixel($im,$tcf[1]+1,$tcf[2]+1,$cc);
        }
    header("Content-type: {$size['mime']}");    //;charset=utf-8
    if($bw==1) imagewbmp($im); else if ($bw==2) imagejpeg($im); else imagepng($im);
    imagedestroy($im);
    die("");
    }//if $img

function msg($s) {
    header ("Expires: Thu, 01 Jan 1970 00:00:01 GMT");
    header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
    header ("Cache-Control: no-cache, no-store, must-revalidate, max-age=0");
    header ("Pragma: no-cache");
    header ("Content-type:text/vnd.wap.wml;charset=utf-8"); 
    setlocale (LC_CTYPE, 'ru_RU.CP1251'); 
    function win2unicode ( $s ) { if ( (ord($s)>=192) & (ord($s)<=255) ) $hexvalue=dechex(ord($s)+848); if ($s=="Ё") $hexvalue="401"; if ($s=="ё") $hexvalue="451"; return("&#x0".$hexvalue.";");} 
    function translate($s) {return(preg_replace("/[А-яЁё]/e","win2unicode('\0')",$s));} 
    ob_start("translate");
    echo "<?xml version="1.0"?>n<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">";
    echo "
<wml>
<card title_v="Карта">";
echo "
$s
</p>
</card>
</wml>";
    ob_end_flush();
    die("");
    }