SCX/Track.pm

   1 #!/usr/bin/perl -w
   2
   3 package SCX::Track;
   4
   5 use strict;
   6 use Carp;
   7
   8 use SCX::Car;
   9
  10 sub new {
  11         my ($class, $args) = @_;
  12
  13         my $self;
  14
  15         $self->{gui} = $args->{gui} or croak;
  16         $self->{race_running} = 0;
  17         $self->{lap_counting_up} = 1;
  18
  19         for my $i (0..5) {
  20                 $self->{cars}->[$i] = SCX::Car->new({
  21                         gui => $self->{gui},
  22                         order => $i,
  23                 });
  24         }
  25
  26         bless $self, $class;
  27 }
  28
  29 sub car { return shift->{cars}->[shift]; }
  30
  31 sub race_start {
  32         my ($self) = @_;
  33
  34         $self->{race_running} = 1;
  35
  36 }
  37
  38 sub race_end {
  39         my ($self) = @_;
  40
  41         $self->{race_running} = 0;
  42 }
  43
  44 1;
  45