hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11455 0c75fa9ce340
parent 11454 2bf0491d5e88
child 11456 6e9b12864856
--- a/hedgewars/uFLNetProtocol.pas	Mon Dec 07 00:05:41 2015 +0300
+++ b/hedgewars/uFLNetProtocol.pas	Thu Dec 10 00:33:45 2015 +0300
@@ -286,9 +286,9 @@
 begin
     if isFlagsLine then
     begin
-        if s.str[1] = '+' then flagValue:= 1 else flagValue:= -1;
+        if s.str1[1] = '+' then flagValue:= 1 else flagValue:= -1;
         for i:= 2 to Length(s.str1) do
-            case s.str[1] of
+            case s.str1[1] of
                 'r': flags[cfReady]:= flagValue;
                 'u': flags[cfRegistered]:= flagValue;
                 'i': flags[cfInRoom]:= flagValue;