From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Wed, 8 Dec 2010 09:02:29 +0000 (+0100)
Subject: Move qualification start to SCX::Track
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=slotcarman.git;a=commitdiff_plain;h=39fe205a0db4c322660e0fbf7c54d4dad8f6ed40

Move qualification start to SCX::Track
---

diff --git a/SCX/Reader.pm b/SCX/Reader.pm
index 72dcb25..08c7288 100644
--- a/SCX/Reader.pm
+++ b/SCX/Reader.pm
@@ -318,12 +318,9 @@ sub qualification_packet {
 		|| $bytes[4] != 0xFF
 		|| $bytes[5] != 0xFF;
 
-	for my $car (0..5) {
-		$self->track->car($car)->set_lap(undef);
-		$self->track->car($car)->set_laptime(undef);
-	}
+	$self->track->qualification_start;
 
-	return $msg; # FIXME - to be implemented
+	return $msg;
 }
 
 
diff --git a/SCX/Track.pm b/SCX/Track.pm
index 4e0e722..21f3ab4 100644
--- a/SCX/Track.pm
+++ b/SCX/Track.pm
@@ -119,5 +119,20 @@ sub check_best_lap {
 	return 0;
 }
 
+sub qualification_start {
+	my ($self) = @_;
+
+	return if $self->{qualification_running};
+	for my $car (0..5) {
+		$self->car($car)->set_lap(undef);
+		$self->car($car)->set_laptime(undef);
+	}
+
+	$self->{qualification_running};
+	$self->{gui}->lap('Qualification');
+	$self->{gui}->time('00:00');
+	$self->{gui}->best_lap('0:00');
+}
+
 1;