LEGO Indiana Jones

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

diff --git a/lego/make-title-bin.pl b/lego/make-title-bin.pl
new file mode 100755 (executable)
index 0000000..a91ae98
--- /dev/null
+++ b/lego/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 = "Indiana Pwns, by Team Twiizers";
+$version = `cat ../.version`;
+
+printline $name;
+printline $version;