New script added.

This commit is contained in:
Kai Lauterbach 2013-09-07 22:58:03 +02:00
parent 41b924ecbe
commit 4788e00042
3 changed files with 21 additions and 0 deletions

Binary file not shown.

Binary file not shown.

21
tools/list2cube.pl Normal file
View file

@ -0,0 +1,21 @@
#!/usr/bin/perl -w
#
# author: Kai Lauterbach (klaute at gmail dot com)
# date: 01/2012
# license: GPL v3
#
my @list = <STDIN>;
my $i = 0;
foreach my $line (@list)
{
chomp $line;
if ($line ne "")
{
my $frame = hex(substr($line,2,8));
print "Adding ". $line. " with ". ($frame >> 27). " delay\n";
system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $line");
$i++;
}
}