#!/usr/bin/perl -w

package SCX::Track;

use strict;
use Carp;

use SCX::Car;

sub new {
	my ($class, $args) = @_;

	my $self;

	$self->{gui} = $args->{gui} or croak;
	$self->{race_running} = 0;
	$self->{lap_counting_up} = 1;

	for my $i (0..5) {
		$self->{cars}->[$i] = SCX::Car->new({
			gui => $self->{gui},
			order => $i,
		});
	}

	bless $self, $class;
}

sub car { return shift->{cars}->[shift]; }

1;