From: Søren Peter Skou Subject: 128 bits converter perl scripts Hi all.. Just thought I'd share this with you, a converter for the 128 bits.. mob/wld/obj files, It *SHOULD* work, but just in case, take a backup.. (And no, I'm not responsible for any errors this may do to your world files!) I only encountered one error with this one, and it was pretty easy to fix. It is for perl on a linux, so :) ------------ mobfilt ----- #!/usr/bin/perl -i # Usage : ./mobfilt #.mob $lastt = 0; while (<>) { chop; if ($lastt && /^([0-9A-Za-z]+) ([0-9A-Za-z]+) (-?\d+) ([A-Za-z]+)\s*$/) { print $1, " 0 0 0 ", $2, " 0 0 0 ", $3, " ", $4, "\n"; } else { if (/~$/) { $lastt = 1; } else { $lastt = 0; } print; print "\n"; } } ------------wldfilt #!/usr/bin/perl -i # Usage : ./wldfilt #.wld $found = 0; while (<>) { chop; if (!$found && /^(-?[0-9A-Za-z]+) (-?[0-9A-Za-z]+) (-?[0-9A-Za-z]+)\s*$/) { print $1, " ", $2, " 0 0 0 ", $3, " \n"; $found = 1; } else { if (/^#/) { $found = 0; } print; print "\n"; } } ---------objfilt #!/usr/bin/perl -i # Usage : ./objfilt $lastt = 0; while (<>) { chop; if ($lastt && /^([0-9A-Za-z]+) ([0-9A-Za-z]+) ([0-9A-Za-z]+)\s*$/) { print $1, " ", $2, " 0 0 0 ", $3, " 0 0 0\n"; } else { if (/~$/) { $lastt = 1; } else { $lastt = 0; } print; print "\n"; } } -------- End snip! That should do it.. /T-Rex is outta here..