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=d311baf05cce488606946a68ffee19980681030b;hp=565af0fe13d94b25d1a9cfbfcd5b6dff511c70ac;hpb=9aec101d497a8b3549b7150b0371e18c4c843f6a;p=slotcarman.git

diff --git a/SCX/Reader.pm b/SCX/Reader.pm
index 565af0f..72dcb25 100644
--- 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