my $gen = 8;
while ($gen) {
rename $self->{logfile} . '.' . $gen . '.bz2',
- $self->{logfile} . '.' . $gen+1 . '.bz2';
+ $self->{logfile} . '.' . ($gen+1) . '.bz2';
$gen--;
}
}
}
+sub standings {
+ my ($self, @order) = @_;
+
+ return 0; # for now
+ for my $i (0..$#order) {
+ my $car_id = $order[$i];
+ if ($self->track->car($car_id)->{order} != $i) {
+ print $self->now(), " car $car_id out of order (we: ",
+ $self->track->car($car_id)->{order},
+ ", controller unit: $i)\n";
+ }
+ }
+}
+
+sub car_lap_time {
+ my ($self, $car_id, $lap, $time) = @_;
+
+ if ($self->track->car($car_id)->{lap} != $lap) {
+ print $self->now(), " car $car_id lap mismatch - we: ",
+ $self->track->car($car_id)->{lap},
+ ", controller unit: $lap\n";
+ }
+}
+
1;