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.

User:Quietust/rawextract.php

From Dwarf Fortress Wiki
< User:Quietust
Revision as of 00:48, 26 April 2010 by Quietust (talk | contribs) (Created page with ' <nowiki><? function readLong ($file) { $x = fread($file, 4); $pck = unpack('Vdata', $x); return $pck['data']; } function readShort ($file) { $x = fread($file, 2); $pck = un…')
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
<?
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 != 0x00000509)
	die("world.dat file is corrupted!");

$comp = readLong($raw);
if ($comp != 0)
	die("world.dat file is compressed!");

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