X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=b6466be7ad12ad3b97ffbf66b82a6a0cf386376a;hb=cd3dd2cbdb007c774c2485a7e14cf12b75249dfd;hp=31149a20dc95d97685578fe690df20363f66a815;hpb=e85448fbe0a0384457115dc91638aa773fd9c5c0;p=slotcarman.git

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 31149a2..b6466be 100644
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -12,6 +12,7 @@ sub new {
 		gui      => $args->{gui},
 		driver   => $args->{driver} || '--',	
 		throttle => undef,
+		button   => undef,
 		fuel     => 0,
 		lap      => 0,
 		laptime  => 0,
@@ -44,9 +45,10 @@ sub same {
 }
 
 sub set_throttle {
-	my ($self, $val, $time) = @_;
+	my ($self, $val, $button, $time) = @_;
 
-	return if $self->same('throttle', $val);
+	return if $self->same('throttle', $val)
+		&& $self->same('button', $button);
 
 	if ($self->track->{start_in_progress} && $val) {
 		$self->{early_start} = 1;
@@ -60,7 +62,7 @@ sub set_throttle {
 		}
 	}
 
-	$self->gui->set_throttle($self->{order}, $val);
+	$self->gui->set_throttle($self->{order}, $val, $button);
 }
 
 
@@ -169,7 +171,8 @@ sub set_order {
 	
 	$self->gui->set_name($self->{order}, $self->{driver});
 	$self->gui->set_car_icon($self->{order}, $self->{car_img});
-	$self->gui->set_throttle($self->{order}, $self->{throttle});
+	$self->gui->set_throttle($self->{order}, $self->{throttle},
+		$self->{button});
 	$self->gui->set_lap($self->{order}, $self->{lap});
 	$self->gui->set_laptime($self->{order}, $self->{laptime});
 	$self->gui->set_best_lap($self->{order}, $self->{best_lap});