X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=8bb7bb9a00e8c5a1f15f596b19e0587dace11eeb;hb=d311baf05cce488606946a68ffee19980681030b;hp=165d09ecb66d97f934a0ae9d90302d5e097ca977;hpb=cf325864a622b3c2457ca8524fc25f144cd5f7b6;p=slotcarman.git

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 165d09e..8bb7bb9 100644
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -3,23 +3,21 @@
 package SCX::Car;
 
 use strict;
+use Time::HiRes qw(gettimeofday);
 
 sub new {
 	my ($class, $args) = @_;
 
 	my $self = {
-		gui => $args->{gui},
+		gui      => $args->{gui},
 		throttle => -1,
-		fuel => -1,
-		order => $args->{order},
-		track => $args->{track},
+		fuel     => -1,
+		id       => $args->{id},
+		track    => $args->{track},
 	};
 
 	bless $self, $class;
 
-	$self->set_throttle(undef);
-	$self->set_fuel(undef);
-
 	return $self;
 }
 
@@ -129,7 +127,7 @@ sub set_driver {
 			&& $self->{driver} == $driver_name);
 
 	$self->{driver} = $driver_name;
-	$self->gui->set_driver($self->{order}, $driver_name || '--');
+	$self->gui->set_name($self->{order}, $driver_name || '--');
 }
 
 sub enter_pit_lane {
@@ -155,7 +153,7 @@ sub set_order {
 
 	$self->{order} = $pos;
 	
-	$self->gui->set_driver($self->{order}, $self->{driver}
+	$self->gui->set_name($self->{order}, $self->{driver}
 		|| '--');
 	$self->gui->set_car_icon($self->{order}, $self->{car_icon});
 	$self->gui->set_throttle($self->{order}, $self->{throttle});