SCX/Car.pm

   1 #!/usr/bin/perl -w
   2
   3 package SCX::Car;
   4
   5 use strict;
   6 use Time::HiRes qw(gettimeofday);
   7
   8 sub new {
   9         my ($class, $args) = @_;
  10
  11         my $self = {
  12                 gui      => $args->{gui},
  13                 driver   => $args->{driver} || '--',
  14                 throttle => undef,
  15                 fuel     => 0,
  16                 lap      => 0,
  17                 laptime  => 0,
  18                 avg_lap  => 0,
  19                 car_img  => $args->{car_img},
  20                 id       => $args->{id},
  21                 track    => $args->{track},
  22         };
  23
  24         bless $self, $class;
  25
  26         return $self;
  27 }
  28
  29 sub gui { return shift->{gui}; }
  30
  31 sub track { return shift->{track}; }
  32
  33 sub same {
  34         my ($self, $key, $val) = @_;
  35
  36         return 1 if !defined $self->{$key} && !defined $val
  37                 || (defined $self->{$key} && defined $val
  38                         && $self->{$key} eq $val);
  39
  40         $self->{$key} = $val;
  41         return undef;
  42 }
  43
  44 sub set_throttle {
  45         my ($self, $val) = @_;
  46
  47         return if $self->same('throttle', $val);
  48
  49         if ($self->track->{start_in_progress} && $val) {
  50                 $self->{early_start} = 1;
  51                 $self->gui->set_driver('Early start!');
  52         }
  53         $self->gui->set_throttle($self->{order}, $val);
  54 }
  55
  56
  57 sub set_fuel {
  58         my ($self, $val) = @_;
  59
  60         return if $self->same('fuel', $val);
  61         $self->gui->set_fuel($self->{order}, $val);
  62 }
  63
  64 sub set_light {
  65         # TODO
  66 }
  67
  68 sub set_backbutton {
  69         # TODO
  70 }
  71
  72 sub set_model {
  73         my ($self, $name) = @_;
  74
  75         return if $self->same('car_img', $name);
  76         $self->gui->set_car_icon($self->{order}, $name);
  77 }
  78
  79 sub set_lap {
  80         my ($self, $lap_nr) = @_;
  81
  82         return if $self->same('lap', $lap_nr);
  83         $self->gui->set_lap($self->{order}, defined $lap_nr ? $lap_nr : '--');
  84         if ($self->track->{race_running} && $self->{lap} > 1) {
  85                 my $now = gettimeofday;
  86                 my $avg = ($now - $self->track->{race_running_since})
  87                         / ($self->{lap} - 1);
  88                 $self->{avg_lap} = $avg;
  89                 $self->gui->set_avg_lap($self->{order}, $avg);
  90         } else {
  91                 $self->gui->set_avg_lap($self->{order}, undef);
  92         }
  93 }
  94
  95 sub set_laptime {
  96         my ($self, $lap_time) = @_;
  97
  98         return if $self->same('laptime', $lap_time);
  99
 100         $self->gui->set_laptime($self->{order}, $lap_time);
 101
 102         if (defined $lap_time) {
 103                 if ($lap_time > 1.0 && !$self->{in_pit_lane}
 104                         && (!defined $self->{best_lap}
 105                                 || $self->{best_lap} > $lap_time
 106                         )) {
 107
 108                         $self->{best_lap} = $lap_time;
 109                         my $global = $self->{track}->check_best_lap($lap_time,
 110                                 $self->{driver}
 111                         );
 112                         $self->gui->set_best_lap($self->{order}, $lap_time,
 113                                 $global);
 114                 }
 115         } else {
 116                 $self->gui->set_best_lap($self->{order}, $lap_time);
 117                 $self->{best_lap} = undef;
 118         }
 119 }
 120
 121 sub set_driver {
 122         my ($self, $driver_name) = @_;
 123
 124         return if $self->same('driver', $driver_name);
 125         $self->gui->set_name($self->{order}, $driver_name);
 126 }
 127
 128 sub enter_pit_lane {
 129         my ($self) = @_;
 130
 131         return if $self->{in_pit_lane};
 132
 133         $self->{in_pit_lane} = 1;
 134         $self->gui->enter_pit_lane;
 135 }
 136
 137 sub leave_pit_lane {
 138         my ($self) = @_;
 139
 140         return if !$self->{in_pit_lane};
 141
 142         $self->{in_pit_lane} = 0;
 143         $self->gui->leave_pit_lane;
 144 }
 145
 146 sub set_order {
 147         my ($self, $pos) = @_;
 148
 149         $self->{order} = $pos;
 150
 151         $self->gui->set_name($self->{order}, $self->{driver});
 152         $self->gui->set_car_icon($self->{order}, $self->{car_icon});
 153         $self->gui->set_throttle($self->{order}, $self->{throttle});
 154         $self->gui->set_lap($self->{order}, $self->{lap});
 155         $self->gui->set_laptime($self->{order}, $self->{laptime});
 156         $self->gui->set_best_lap($self->{order}, $self->{best_lap});
 157         $self->gui->set_avg_lap($self->{order}, $self->{avg_lap});
 158         $self->gui->set_fuel($self->{order}, $self->{fuel});
 159         if ($self->{in_pit_lane}) {
 160                 $self->gui->enter_pit_lane;
 161         }
 162 }
 163
 164 1;
 165