hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11450 0c75fa9ce340
parent 11449 2bf0491d5e88
child 11451 6e9b12864856
equal deleted inserted replaced
11449:2bf0491d5e88 11450:0c75fa9ce340
   284 var isRemoval: boolean;
   284 var isRemoval: boolean;
   285     flagValue, i: LongInt;
   285     flagValue, i: LongInt;
   286 begin
   286 begin
   287     if isFlagsLine then
   287     if isFlagsLine then
   288     begin
   288     begin
   289         if s.str[1] = '+' then flagValue:= 1 else flagValue:= -1;
   289         if s.str1[1] = '+' then flagValue:= 1 else flagValue:= -1;
   290         for i:= 2 to Length(s.str1) do
   290         for i:= 2 to Length(s.str1) do
   291             case s.str[1] of
   291             case s.str1[1] of
   292                 'r': flags[cfReady]:= flagValue;
   292                 'r': flags[cfReady]:= flagValue;
   293                 'u': flags[cfRegistered]:= flagValue;
   293                 'u': flags[cfRegistered]:= flagValue;
   294                 'i': flags[cfInRoom]:= flagValue;
   294                 'i': flags[cfInRoom]:= flagValue;
   295                 'c': flags[cfContributor]:= flagValue;
   295                 'c': flags[cfContributor]:= flagValue;
   296                 'g': flags[cfInGame]:= flagValue;
   296                 'g': flags[cfInGame]:= flagValue;