X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;fp=SCX%2FCar.pm;h=5a1f90e7bb5b052653643d0e1b74c6870972f83d;hb=1f216af4258c635bda3ebc3b3b4af65b392aa37d;hp=2bb67617e2222aaa9f164bc80d7d8e3c7d089ce9;hpb=1edb05cd5e44a968210cd51f2eb86bfe3ff8c62a;p=slotcarman.git

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 2bb6761..5a1f90e 100644
--- 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);