package SCX::Car;
use strict;
-use Time::HiRes qw(gettimeofday);
sub new {
my ($class, $args) = @_;
sub set_fuel {
my ($self, $val) = @_;
+ my $prev = $self->{fuel};
return if $self->same('fuel', $val);
+ if (defined $val && defined $prev && $val < 8) {
+ if ($val == $prev + 1 && !$self->{in_pit_lane}) {
+ print STDERR $self->track->{now}, ' car ',
+ $self->{id}, ' missed pit lane entry', "\n";
+ $self->enter_pit_lane;
+ }
+ }
+
$self->gui->set_fuel($self->{order}, $val);
}
$self->{lap_diff} = undef;
$self->{total_time} = undef;
$self->{grey_diff} = undef;
+ $self->print_state;
}
sub finish_line {