+ if (defined $val && defined $prev && $val < 8) {
+ if ($val == $prev + 1 && !$self->{in_pit_lane}) {
+ print STDERR $self->track->{now}, ' car ',
+ $self->{id}, ' missed pit lane entry', "\n";
+ $self->enter_pit_lane;
+ }
+ if ($val == $prev - 1 && $val <= 2 && !$self->{in_pit_lane}) {
+ $self->track->{sound}->box($self->{id});
+ }
+ }
+ if (defined $val && defined $prev && $val == 8 && $prev == 7
+ && $self->{in_pit_lane}) {
+ $self->track->{sound}->filled($self->{id});
+ }
+