New script added.
This commit is contained in:
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
21
tools/list2cube.pl
Normal 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++;
|
||||
}
|
||||
}
|
Loading…
Reference in a new issue