+ 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;
+ }
+
+ if ($pit_lane_entry) {
+ 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;
+ }
+ }
+