mirror of
https://github.com/datajerk/gameserverclient.git
synced 2025-02-06 15:30:01 +00:00
95 lines
1.2 KiB
Perl
Executable File
95 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/env perl -w
|
|
|
|
use strict;
|
|
|
|
my @titles = ();
|
|
my $max = 0;
|
|
my $s = 0;
|
|
|
|
while(<>)
|
|
{
|
|
my @a = split(/\"/);
|
|
my $short = $a[5];
|
|
my $qr;
|
|
|
|
$short =~ s/.html//;
|
|
$short .= ".qr.wav";
|
|
$short = "http://asciiexpress.net/gameserver/$short";
|
|
|
|
$qr = `./qrbytes "$short"`;
|
|
|
|
my $width = $qr;
|
|
my $bytes = $qr;
|
|
|
|
$width =~ s/\n//g;
|
|
$width =~ s/^width: (\d+).*/$1/;
|
|
|
|
$bytes =~ s/\n//g;
|
|
$bytes =~ s/.*bytes: (.*)/$1/;
|
|
$bytes =~ s/0x/\$/g;
|
|
$bytes =~ s/ /,/g;
|
|
$bytes =~ s/,$//;
|
|
|
|
$s++;
|
|
|
|
printf("qr%03d:\t.byte\t",$s);
|
|
print "$width\n";
|
|
|
|
my $i = 0;
|
|
|
|
foreach(split(/,/,$bytes)) {
|
|
$i++;
|
|
if(($i-1) % 16 == 0) {
|
|
print " .byte ";
|
|
}
|
|
print "$_";
|
|
if($i % 16 == 0) {
|
|
print "\n";
|
|
}
|
|
else {
|
|
if($i != split(/,/,$bytes)) {
|
|
print ",";
|
|
}
|
|
}
|
|
}
|
|
print "\n";
|
|
print "\n";
|
|
}
|
|
|
|
print "qrptrl:";
|
|
|
|
for(my $i=1;$i<=128;$i++) {
|
|
if(($i-1) % 8 == 0) {
|
|
print " .word ";
|
|
}
|
|
printf("qr%03d",$i);
|
|
if($i % 8 == 0) {
|
|
print "\n";
|
|
}
|
|
else {
|
|
if($i != $s) {
|
|
print ",";
|
|
}
|
|
}
|
|
}
|
|
print "\n";
|
|
|
|
print "qrptrh:";
|
|
|
|
for(my $i=129;$i<=$s;$i++) {
|
|
if(($i-1) % 8 == 0) {
|
|
print " .word ";
|
|
}
|
|
printf("qr%03d",$i);
|
|
if($i % 8 == 0) {
|
|
print "\n";
|
|
}
|
|
else {
|
|
if($i != $s) {
|
|
print ",";
|
|
}
|
|
}
|
|
}
|
|
print "\n";
|
|
|