+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) = @_;
+
+ $self->{order} = $pos;
+
+ $self->gui->set_name($self->{order}, $self->{driver});
+ $self->gui->set_car_icon($self->{order}, $self->{car_icon});
+ $self->gui->set_throttle($self->{order}, $self->{throttle});
+ $self->gui->set_lap($self->{order}, $self->{lap});
+ $self->gui->set_laptime($self->{order}, $self->{laptime});
+ $self->gui->set_best_lap($self->{order}, $self->{best_lap});
+ $self->gui->set_avg_lap($self->{order}, $self->{avg_lap});
+ $self->gui->set_fuel($self->{order}, $self->{fuel});
+ if ($self->{in_pit_lane}) {
+ $self->gui->enter_pit_lane;
+ }
+}
+
+sub reset {
+ my ($self) = @_;
+
+ $self->set_lap(0);
+ $self->set_laptime(undef);
+ $self->{in_pit_lane} = 0;
+ $self->{early_start} = undef;
+}
+
+sub finish_line {
+ my ($self, $time, $regular) = @_;
+
+ return undef
+ if defined $self->{last_finish_time}
+ && $time - $self->{last_finish_time} < 2;
+
+ if ($regular) {
+ if (defined $self->{last_finish_time}) {
+ $self->set_laptime($time - $self->{last_finish_time});
+ }
+ } else {
+ $self->enter_pit_lane;
+ }