v50 Steam/Premium information for editors
  • v50 information can now be added to pages in the main namespace. v0.47 information can still be found in the DF2014 namespace. See here for more details on the new versioning policy.
  • Use this page to report any issues related to the migration.
This notice may be cached—the current version can be found here.

Difference between revisions of "User:Quietust/rawextract.php"

From Dwarf Fortress Wiki
Jump to navigation Jump to search
m
m
Line 20: Line 20:
 
function readLong ($file)
 
function readLong ($file)
 
{
 
{
$x = @fread($file, 4);
+
$x = fread($file, 4);
 
$pck = @unpack('Vdata', $x);
 
$pck = @unpack('Vdata', $x);
 
return $pck['data'];
 
return $pck['data'];
Line 26: Line 26:
 
function readShort ($file)
 
function readShort ($file)
 
{
 
{
$x = @fread($file, 2);
+
$x = fread($file, 2);
 
$pck = @unpack('vdata', $x);
 
$pck = @unpack('vdata', $x);
 
return $pck['data'];
 
return $pck['data'];

Revision as of 00:31, 30 April 2010

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