Refactorized GUI layer.

[slotcarman.git] / SCX / Reader.pm

diff --git a/SCX/Reader.pm b/SCX/Reader.pm
index 565af0fe13d94b25d1a9cfbfcd5b6dff511c70ac..72dcb2542e3993c9b2cfcb348b2ffe312aed6e98 100644 (file)
--- a/SCX/Reader.pm
+++ b/SCX/Reader.pm
@@ -264,11 +264,6 @@ sub race_setup_packet {
                || $bytes[4] != 0xFF
                || $bytes[5] != 0xFF;
 
-       for my $car (0..5) {
-               $self->track->car($car)->set_lap(0);
-               $self->track->car($car)->set_laptime(undef);
-       }
-
        $self->track->race_setup($bytes[0] == 0x00
                ? 0
                : $bytes[1] & 0x0F * 256
@@ -397,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;
        }
 
@@ -409,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