X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FTrack.pm;h=f6200de651989d50c18d85f64a503b99a77a1905;hb=471218eeb91909ba9601ccee0e4d66b1902e1e9e;hp=ab12a44e09aa3e6b37dd651f1461ae6932a74cce;hpb=80b9a4da1e01cf9ceac139d8276bbb951077115a;p=slotcarman.git

diff --git a/SCX/Track.pm b/SCX/Track.pm
index ab12a44..f6200de 100644
--- a/SCX/Track.pm
+++ b/SCX/Track.pm
@@ -28,5 +28,18 @@ sub new {
 
 sub car { return shift->{cars}->[shift]; }
 
+sub race_start {
+	my ($self) = @_;
+
+	$self->{race_running} = 1;
+
+}
+
+sub race_end {
+	my ($self) = @_;
+
+	$self->{race_running} = 0;
+}
+
 1;