22 lines
440 B
Perl
22 lines
440 B
Perl
|
#!/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++;
|
||
|
|
}
|
||
|
|
}
|