|| $bytes[4] != 0xFF
|| $bytes[5] != 0xFF;
- for my $car (0..5) {
- $self->track->car($car)->set_lap(undef);
- $self->track->car($car)->set_laptime(undef);
- }
+ $self->track->race_setup($bytes[0] == 0x00
+ ? 0
+ : $bytes[1] & 0x0F * 256
+ + $bytes[2] & 0x0F * 16
+ + $bytes[3] & 0x0F);
return $msg; # FIXME - to be implemented
}
|| $bytes[4] != 0xFF
|| $bytes[5] != 0xFF;
- for my $car (0..5) {
- $self->track->car($car)->set_lap(undef);
- $self->track->car($car)->set_laptime(undef);
- }
+ $self->track->qualification_start;
- return $msg; # FIXME - to be implemented
+ return $msg;
}
if $fail;
my $pit_lane_entry;
+ my $too_fast;
my @cars_finished;
for my $i (0..5) {
my $byte = $bytes[$i];
$pit_lane_entry = 1 if $byte == 0xF0;
+ $too_fast = 1 if $byte == 0xFF;
+
push @cars_finished, $i if $byte == 0xE7;
}
for my $car (@cars_finished) {
$self->track->car($car)->enter_pit_lane;
}
+ } else {
+ for my $car (@cars_finished) {
+ $self->track->car($car)->leave_pit_lane;
+ }
}
return $msg; # FIXME - to be implemented
}
-
sub controller_status_packet {
my ($self, @bytes) = @_;