From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Tue, 7 Dec 2010 16:34:27 +0000 (+0100)
Subject: Make cars aware of their IDs.
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=slotcarman.git;a=commitdiff_plain;h=8d71f3a03548e1c6946914404f2889e9cbbc55be

Make cars aware of their IDs.
---

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 165d09e..7dffb7a 100644
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -3,16 +3,17 @@
 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;
diff --git a/SCX/Track.pm b/SCX/Track.pm
index bd6ceea..4e0e722 100644
--- a/SCX/Track.pm
+++ b/SCX/Track.pm
@@ -25,9 +25,10 @@ sub new {
 	for my $i (0..5) {
 		$self->{cars}->[$i] = SCX::Car->new({
 			gui => $self->{gui},
-			order => $i,
+			id => $i,
 			track => $self,
 		});
+		$self->car($i)->set_order($i);
 	}
 
 	return $self;