<?php
/*
Quick & dirty library to read/extract BlitzMax compatible data types from raw input data (files/UDP).

Globals:
- $d: holds the data to read (d for Data)
- $dOS: read offset in bytes (dOS for Data OffSet)

- the normal functions manipulate $d (which is slow), they do not use $dOS
- the fast functions use $dOS to keep track of the read offset, they do not manipulate $d (faster)
*/

function readLine(){
	global $d;
	$line='';
	do {
		$char=ord(substr($d,0,1));
		$line.=chr($char);
		$d=substr($d,1);
	} while ($char!=13);
	$d=substr($d,1);
	return substr($line,0,strlen($line)-1);
}

function readString(){
	global $d;
	$length=ord(substr($d,0,1));
	$string=substr($d,1,$length);
	$d=substr($d,$length+1);
	return $string;
}

function readByte(){
	global $d;
	$byte=ord(substr($d,0,1));
	$d=substr($d,1);
	return $byte;
}

function readShort(){
	global $d;
	$short=substr($d,0,2);
	$d=substr($d,2);
	$r=unpack('S',$short);
	return $r[1];
}

function readInt(){
	global $d;
	$int=substr($d,0,4);
	$d=substr($d,4);
	$r=unpack('l',$int);
	return $r[1];
}

function readFloat(){
	global $d;
	$float=ord(substr($d,0,4));
	$d=substr($d,4);
	$r=unpack('f',$float);
	return $r[1];
}

// Fast versions using an offset ($dOS) instead of manipulating $d

function readLineFast(){
	global $d;
	global $dOS;
	$line='';
	do {
		$char=ord(substr($d,$dOS,1));
		$line.=chr($char);
		$dOS++;
	} while ($char!=13);
	$dOS++;
	return substr($line,0,strlen($line)-1);
}

function readStringFast(){
	global $d;
	global $dOS;
	$length=ord(substr($d,$dOS,1));
	$string=substr($d,$dOS+1,$length);
	$dOS+=($length+1);
	return $string;
}

function readByteFast(){
	global $d;
	global $dOS;
	$byte=ord(substr($d,$dOS,1));
	$dOS++;
	return $byte;
}

function readShortFast(){
	global $d;
	global $dOS;
	$short=substr($d,$dOS,2);
	$dOS+=2;
	$r=unpack('S',$short);
	return $r[1];
}

function readIntFast(){
	global $d;
	global $dOS;
	$int=substr($d,$dOS,4);
	$dOS+=4;
	$r=unpack('l',$int);
	return $r[1];
}

function readFloatFast(){
	global $d;
	global $dOS;
	$float=ord(substr($d,$dOS,4));
	$dOS+=4;
	$r=unpack('f',$float);
	return $r[1];
}


function utf8_htmlentities($t,$q=ENT_COMPAT,$char='UTF-8',$denc=TRUE){
	return htmlentities($t,$q,$char,$denc);
}

// Send request with specified payload data
function sendRequest($data){
	global $fp;
	global $d;
	
	// Use cached data
	if (isset($d)) {
		return;
	}
	
	// Send Request
	fwrite($fp, $data);
	
	// Set Timeout
	stream_set_timeout($fp, 5);
	
	// Read Data (try to read up to 256 bytes)
	$d = fread($fp, 256);
	
	// Meta data implies timeout
	$md = stream_get_meta_data($fp);
	if ($md['timed_out'] == 1){
		die('timeout');
	}
	
	// Empty package implies timeout
	if (ord(substr($d, 0, 1)) == 0){
		die('timeout');
	}
}

//-------------------------------------------------------------------------

// Validate IP
if (!filter_var($_GET['i'], FILTER_VALIDATE_IP)) {
	die('bad IP (format)');
}
if (strpos($_GET['i'], '127') === 0) {
	die('bad IP (local)');
}
$_GET['p'] = (int)$_GET['p'];
if ($_GET['p'] < 1 || $_GET['p'] > 65535) {
	die('bad port');
}

// Connect (with 5 secs timeout)
if (!isset($d)) {
	$fp = @fsockopen('udp://'.$_GET['i'], $_GET['p'], $errno, $errstr, 5);
}
if (isset($d) || $fp) {
	switch ((int)$_GET['g']){
		// Game 0 - CS2D
		case 0:
			sendRequest(chr(1).chr(0).chr(251).chr(1));				//Send Request
			
			// Read UDP packet header
			$b0=readByte();
			$b1=readByte();
			$b2=readByte();
			$b3=readByte();
			
			if ($b0==0) {
				echo('timeout');
				break;
			}
			
			// Check if header is valid
			if ($b0==1 && $b1==0 && $b2=251 && $b3==1){
				//Get Data
				$mode=readByte();									//Mode Bit Flags
				$name=readString();									//Server Name
				$map=readString();									//Map
				$players=min(readByte(),32);						//Players
				$players_max=min(readByte(),32);					//Players Max
				if ($mode & 32){ $gmi=readByte(); }else{ $gmi=0; }	//Game Mode
				$bots=readByte();
				
				// Print General Data
				echo '<table>';
				echo '<tr><td>Name:</td><td>',utf8_htmlentities($name),'</td></tr>';
				echo '<tr><td>Map:</td><td>',utf8_htmlentities($map),'</td></tr>';
				echo '<tr><td>Players:</td><td>',$players,' / ',$players_max,' (Bots: ',$bots,')</td></tr>';
				// Print Mode Flag Stuff
				if ($mode & 1){ $t='Password protected!'; }else{ $t='None'; } echo '<tr><td>Password:</td><td>',$t,'</td></tr>';
				if ($mode & 2){ $t='On'; }else{ $t='Off'; } echo '<tr><td>U.S.G.N. only:</td><td>',$t,'</td></tr>';
				if ($mode & 4){ $t='On'; }else{ $t='Off'; } echo '<tr><td>Fog of War:</td><td>',$t,'</td></tr>';	
				if ($mode & 8){ $t='On'; }else{ $t='Off'; } echo '<tr><td>Friendly Fire:</td><td>',$t,'</td></tr>';
				if ($mode & 64){ $t='Uses Lua Scripts!'; }else{ $t='None'; } echo '<tr><td>Lua:</td><td>',$t,'</td></tr>';
				// Print Game Mode
				switch ($gmi){
					case 0: $gm='Standard'; break;
					case 1: $gm='Deathmatch'; break;
					case 2: $gm='Team Deathmatch'; break;
					case 3: $gm='Construction'; break;
					case 4: $gm='Zombies'; break;
					default: $gm='Unknown ('.$gmi.')';
				}
				echo '<tr><td>Game Mode:</td><td>',$gm,'</td></tr>';
				echo '</table>';
				
			}else{
				echo 'unexpected server reply (',$b0,',',$b1,',',$b2,',',$b3,') - expected (1,0,251,1)';
			}
			break;
		// Game 1 - Carnage Contest
		case 1:
			// NOT RELEVANT 4 U BOY!
			break;
		// Unknown
		default:
			echo 'unknown request';
	}
	
	// Close socket
	if (isset($fp)) {
		fclose($fp);   
	} else {
		echo '<br /><span style="font-size:9px; color:#AAA">(cached values, new every 10 sec)</span>';
	}
}else{
	echo 'failed to open socket to server! please try again later!';
}