X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FReader.pm;h=72dcb2542e3993c9b2cfcb348b2ffe312aed6e98;hb=40f9541dab84b42d79b20b56154873ff479d5c03;hp=db88e3416519f969287032196f8f3b0e2a616b28;hpb=b2e460537776f9b9de508c28b8e769cf8e80c30d;p=slotcarman.git diff --git a/SCX/Reader.pm b/SCX/Reader.pm index db88e34..72dcb25 100644 --- a/SCX/Reader.pm +++ b/SCX/Reader.pm @@ -392,11 +392,14 @@ sub finish_line_packet { 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; } @@ -404,6 +407,10 @@ sub finish_line_packet { 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