More debugging.

[slotcarman.git] / SCX / Track.pm

diff --git a/SCX/Track.pm b/SCX/Track.pm
index ab12a44e09aa3e6b37dd651f1461ae6932a74cce..f6200de651989d50c18d85f64a503b99a77a1905 100644 (file)
--- 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;