From 8d71f3a03548e1c6946914404f2889e9cbbc55be Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Tue, 7 Dec 2010 17:34:27 +0100 Subject: [PATCH] Make cars aware of their IDs. --- SCX/Car.pm | 9 +++++---- SCX/Track.pm | 3 ++- 2 files changed, 7 insertions(+), 5 deletions(-) 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; -- 2.43.0