Best lap handling.

[slotcarman.git] / SCX / Car.pm

diff --git a/SCX/Car.pm b/SCX/Car.pm
index d48cbd37bb8f6b44616df4b1bda4bdeb9823bc79..f4a38a0436b258016b5e38e68db07e05f9dde1dc 100644 (file)
--- 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 {