X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=f4a38a0436b258016b5e38e68db07e05f9dde1dc;hb=b2e460537776f9b9de508c28b8e769cf8e80c30d;hp=d48cbd37bb8f6b44616df4b1bda4bdeb9823bc79;hpb=9aec101d497a8b3549b7150b0371e18c4c843f6a;p=slotcarman.git

diff --git a/SCX/Car.pm b/SCX/Car.pm
index d48cbd3..f4a38a0 100644
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -12,6 +12,7 @@ sub new {
 		throttle => -1,
 		fuel => -1,
 		order => $args->{order},
+		track => $args->{track},
 	};
 
 	bless $self, $class;
@@ -24,6 +25,8 @@ sub new {
 
 sub gui { return shift->{gui}; }
 
+sub track { return shift->{track}; }
+
 sub set_throttle {
 	my ($self, $val) = @_;
 
@@ -92,8 +95,12 @@ sub set_laptime {
 			|| $self->{best_lap} > $lap_time
 			)) {
 
-			$self->gui->set_best_lap($self->{order}, $lap_time);
 			$self->{best_lap} = $lap_time;
+			my $global = $self->{track}->check_best_lap($lap_time,
+				$self->{driver}
+			);
+			$self->gui->set_best_lap($self->{order}, $lap_time,
+				$global);
 		}
 		
 	} else {