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;
		$skip = 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)
{
	$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);
	$world = fread($raw, $len);
	echo "Listing raws for randomly generated creatures of $world:\n\n";
}
else
{
	$raw = @fopen('world.sav', 'rb');
	if (!$raw)
		die("Could not open world.dat or world.sav!");

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

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

	fseek($raw, 0x5E, SEEK_SET);

	$len = readShort($raw);
	$name = fread($raw, $len);

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

$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";
}
?>