User:Quietust/rawextract.php

<?
$version = 0x050C;	// seems to vary depending on the version used to generate the world

function decompress ($file)
{
	global $version;
	$out = tmpfile();
	// write 'uncompressed' header
	fwrite($out, pack('VV', $version, 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 != $version)
		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 "Extracting 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 != $version)
		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 "Extracting raws for randomly generated creatures of $world:\n\n";
	$skip = readLong($raw);
}

$numCreatures = readLong($raw);

for ($i = 0; $i < $numCreatures; $i++)
{
	$data = '';
	$file = "creature_$i";
	$numLines = readLong($raw);
	for ($j = 0; $j < $numLines; $j++)
	{
		$len = readShort($raw);
		$str = fread($raw, $len);
		$data .= "$str\r\n";
		if (preg_match('/\[CREATURE:(.*?)\]/', $str, $x))
			$file = $x[1];
	}
	echo "Extracting $file...\n";
	file_put_contents($file .'.txt', $data);
}
echo "done!\n";
?>