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}, '--');
  92         }
  93 }
  94
  95 sub set_laptime {
  96         my ($self, $lap_time) = @_;
  97
  98         if (defined $lap_time) {
  99                 $lap_time = sprintf("%.2f", $lap_time);
 100                 if ($lap_time > 1.0 && !$self->{in_pit_lane}
 101                         && (!defined $self->{best_lap}
 102                                 || $self->{best_lap} > $lap_time
 103                         )) {
 104
 105                         $self->{best_lap} = $lap_time;
 106                         my $global = $self->{track}->check_best_lap($lap_time,
 107                                 $self->{driver}
 108                         );
 109                         $self->gui->set_best_lap($self->{order}, $lap_time,
 110                                 $global);
 111                 }
 112         } else {
 113                 $self->gui->set_best_lap($self->{order}, '--');
 114                 $self->{best_lap} = undef;
 115         }
 116
 117         return if (!defined $self->{laptime} && !defined $lap_time)
 118                 || (defined $self->{laptime} && defined $lap_time
 119                         && $self->{laptime} == $lap_time);
 120
 121         $self->{laptime} = $lap_time;
 122
 123         $self->gui->set_laptime($self->{order}, defined $lap_time
 124                 ? $lap_time : '--');
 125 }
 126
 127 sub set_driver {
 128         my ($self, $driver_name) = @_;
 129
 130         return if $self->same('driver', $driver_name);
 131         $self->gui->set_name($self->{order}, $driver_name);
 132 }
 133
 134 sub enter_pit_lane {
 135         my ($self) = @_;
 136
 137         return if $self->{in_pit_lane};
 138
 139         $self->{in_pit_lane} = 1;
 140         $self->gui->enter_pit_lane;
 141 }
 142
 143 sub leave_pit_lane {
 144         my ($self) = @_;
 145
 146         return if !$self->{in_pit_lane};
 147
 148         $self->{in_pit_lane} = 0;
 149         $self->gui->leave_pit_lane;
 150 }
 151
 152 sub set_order {
 153         my ($self, $pos) = @_;
 154
 155         $self->{order} = $pos;
 156
 157         $self->gui->set_name($self->{order}, $self->{driver});
 158         $self->gui->set_car_icon($self->{order}, $self->{car_icon});
 159         $self->gui->set_throttle($self->{order}, $self->{throttle});
 160         $self->gui->set_lap($self->{order}, defined $self->{lap}
 161                 ? $self->{lap} : '--');
 162         $self->gui->set_laptime($self->{order}, defined $self->{laptime}
 163                 ? $self->{laptime} : '--');
 164         $self->gui->set_best_lap($self->{order}, defined $self->{best_lap}
 165                 ? $self->{best_lap} : '--');
 166         $self->gui->set_avg_lap($self->{order}, defined $self->{avg_lap}
 167                 ? $self->{avg_lap} : '--');
 168         $self->gui->set_fuel($self->{order}, $self->{fuel});
 169 }
 170
 171 1;
 172