X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=21d6c682051f765ecf8e1ea85b9e56954351f93c;hb=3a515aa5d4aeeedf2632ddfc25ba4834ee90493d;hp=e55676dc43b9dc0cc005fe10648107abfb1f3e63;hpb=dda2866e78b9648e501050bfeee2aed36958aa10;p=slotcarman.git

diff --git a/SCX/Car.pm b/SCX/Car.pm
index e55676d..21d6c68 100644
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -55,5 +55,61 @@ sub set_backbutton {
 	# TODO
 }
 
+sub set_model {
+	my ($self, $name) = @_;
+
+	return if (!defined $self->{car_icon} && !defined $name)
+		|| (defined $self->{car_icon} && defined $name
+			&& $self->{car_icon} ne $name);
+
+	$self->{car_icon} = $name;
+	$self->gui->set_car_icon($self->{order}, $name);
+}
+
+sub set_lap {
+	my ($self, $lap_nr) = @_;
+
+	return if (!defined $self->{lap} && !defined $lap_nr)
+		|| (defined $self->{lap} && defined $lap_nr
+			&& $self->{lap} != $lap_nr);
+
+	$self->{lap} = $lap_nr;
+	$self->gui->set_lap($self->{order}, $lap_nr || 'N/A');
+}
+
+sub set_laptime {
+	my ($self, $lap_time) = @_;
+
+	if (defined $lap_time) {
+		$lap_time = sprintf("%.2f", $lap_time);
+		if (!defined $self->{best_lap}
+			|| $self->{best_lap} > $lap_time) {
+
+			$self->gui->set_best_lap($self->{order}, $lap_time);
+			$self->{best_lap} = $lap_time;
+		}
+		
+	}
+
+	return if (!defined $self->{laptime} && !defined $lap_time)
+		|| (defined $self->{laptime} && defined $lap_time
+			&& $self->{laptime} != $lap_time);
+
+	$self->{laptime} = $lap_time;
+
+	$self->gui->set_laptime($self->{order}, $lap_time || 'N/A');
+}
+
+sub set_driver {
+	my ($self, $driver_name) = @_;
+
+	return if (!defined $self->{driver} && !defined $driver_name)
+		|| (defined $self->{driver} && defined $driver_name
+			&& $self->{driver} != $driver_name);
+
+	$self->{driver} = $driver_name;
+	$self->gui->set_driver($self->{order}, $driver_name || 'N/A');
+}
+
 1;