#!/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++;
    }
}