User:Quietust/rawextract.php

<?
function decompress ($file)
{
	$out = tmpfile();
	// write 'uncompressed' header
	fwrite($out, pack('VV', 0x0509, 0));
	while (1)
	{
		$len = readLong($file);
		if (feof($file))
			break;
		// not sure what this is, but it isn't part of the compressed data
		$unk = readShort($file);
		$block = fread($file, $len - 2);
		fwrite($out, gzinflate($block));
	}
	rewind($out);
	return $out;
}

function readLong ($file)
{
	$x = fread($file, 4);
	$pck = unpack('Vdata', $x);
	return $pck['data'];
}
function readShort ($file)
{
	$x = fread($file, 2);
	$pck = unpack('vdata', $x);
	return $pck['data'];
}

$raw = fopen('world.dat', 'rb');
if (!$raw)
	die("world.dat file not found!");

$sig = readLong($raw);
if ($sig != 0x0509)
	die("world.dat file header not found!");

$comp = readLong($raw);
if ($comp == 1)
	$raw = decompress($raw);
elseif ($comp > 0)
	die("world.dat file is corrupted!");

fseek($raw, 0x92, SEEK_SET);

$len = readShort($raw);
$str = fread($raw, $len);
echo "Listing raws for randomly generated creatures of $str:\n\n";

$numCreatures = readLong($raw);

for ($i = 0; $i < $numCreatures; $i++)
{
	$numLines = readLong($raw);
	for ($j = 0; $j < $numLines; $j++)
	{
		$len = readShort($raw);
		$str = fread($raw, $len);
		echo "$str\n";
	}
	echo "----------\n";
}
?>