Race setup, car reordering.

[slotcarman.git] / SCX / Reader.pm

diff --git a/SCX/Reader.pm b/SCX/Reader.pm
index 8d9f42dcad72e6382d2f2e9e6880cc6605df809b..565af0fe13d94b25d1a9cfbfcd5b6dff511c70ac 100644 (file)
--- a/SCX/Reader.pm
+++ b/SCX/Reader.pm
@@ -265,10 +265,16 @@ sub race_setup_packet {
                || $bytes[5] != 0xFF;
 
        for my $car (0..5) {
-               $self->track->car($car)->set_lap(undef);
+               $self->track->car($car)->set_lap(0);
                $self->track->car($car)->set_laptime(undef);
        }
 
+       $self->track->race_setup($bytes[0] == 0x00
+               ? 0
+               : $bytes[1] & 0x0F * 256
+                       + $bytes[2] & 0x0F * 16
+                       + $bytes[3] & 0x0F);
+
        return $msg; # FIXME - to be implemented
 }
 
@@ -408,7 +414,6 @@ sub finish_line_packet {
        return $msg; # FIXME - to be implemented
 }
 
-
 sub controller_status_packet {
        my ($self, @bytes) = @_;