X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=23caad6c4abfb8fd03bf8cd7d353e72d6812b7b4;hb=40f9541dab84b42d79b20b56154873ff479d5c03;hp=f4a38a0436b258016b5e38e68db07e05f9dde1dc;hpb=b2e460537776f9b9de508c28b8e769cf8e80c30d;p=slotcarman.git diff --git a/SCX/Car.pm b/SCX/Car.pm index f4a38a0..23caad6 100644 --- a/SCX/Car.pm +++ b/SCX/Car.pm @@ -34,11 +34,6 @@ sub set_throttle { || (defined $self->{throttle} && defined $val && $self->{throttle} == $val); - if ($self->{in_pit_lane} && defined $val && $val > 3) { - delete $self->{in_pit_lane}; - $self->gui->leave_pit_lane; - } - $self->{throttle} = $val; $self->gui->set_throttle($self->{order}, $val); } @@ -90,9 +85,9 @@ sub set_laptime { if (defined $lap_time) { $lap_time = sprintf("%.2f", $lap_time); - if ($lap_time > 1.0 && ( - !$self->{in_pit_lane} && !defined $self->{best_lap} - || $self->{best_lap} > $lap_time + if ($lap_time > 1.0 && !$self->{in_pit_lane} + && (!defined $self->{best_lap} + || $self->{best_lap} > $lap_time )) { $self->{best_lap} = $lap_time; @@ -102,7 +97,6 @@ sub set_laptime { $self->gui->set_best_lap($self->{order}, $lap_time, $global); } - } else { $self->gui->set_best_lap($self->{order}, '--'); $self->{best_lap} = undef; @@ -132,10 +126,21 @@ sub set_driver { sub enter_pit_lane { my ($self) = @_; + return if $self->{in_pit_lane}; + $self->{in_pit_lane} = 1; $self->gui->enter_pit_lane; } +sub leave_pit_lane { + my ($self) = @_; + + return if !$self->{in_pit_lane}; + + $self->{in_pit_lane} = 0; + $self->gui->leave_pit_lane; +} + sub set_order { my ($self, $pos) = @_;