Sound support

[slotcarman.git] / SCX / Car.pm

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 2bb67617e2222aaa9f164bc80d7d8e3c7d089ce9..5a1f90e7bb5b052653643d0e1b74c6870972f83d 100644 (file)
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -75,6 +75,13 @@ sub set_fuel {
                                $self->{id}, ' missed pit lane entry', "\n";
                        $self->enter_pit_lane;
                }
+               if ($val == $prev - 1 && $val <= 2 && !$self->{in_pit_lane}) {
+                       $self->track->{sound}->box($self->{id});
+               }
+       }
+       if (defined $val && defined $prev && $val == 8 && $prev == 7
+               && $self->{in_pit_lane}) {
+                       $self->track->{sound}->filled($self->{id});
        }
 
        $self->gui->set_fuel($self->{order}, $val);