LEGO Batman^H^H^Hhaxx

[savezelda.git] / batman / make-title-bin.pl

diff --git a/batman/make-title-bin.pl b/batman/make-title-bin.pl
new file mode 100755 (executable)
index 0000000..639905d
--- /dev/null
+++ b/batman/make-title-bin.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+sub printline {
+       my $x = shift;
+       chomp $x;
+       $x .= "\0" x 32;
+       $x = substr $x, 0, 32;
+       $x =~ s/(.)/\0$1/g;
+
+       print $x;
+}
+
+$name = '"Bathaxx" by lewurm';
+$version = `cat ../.version`;
+
+printline $name;
+printline $version;