hedgewars/uStore.pas
changeset 14191 a1178e1b57a6
parent 13990 b9b1d74b7fef
child 14199 3c36a4e66c82
equal deleted inserted replaced
14190:6f76fe84fdee 14191:a1178e1b57a6
   816                 else if (value[1] = '"') and (value[length(value)] = '"') then
   816                 else if (value[1] = '"') and (value[length(value)] = '"') then
   817                     value:= copy(value, 2, length(value) - 2);
   817                     value:= copy(value, 2, length(value) - 2);
   818                 if value[1] <> '#' then
   818                 if value[1] <> '#' then
   819                     continue;
   819                     continue;
   820                 temp:= copy(value, 2, length(value) - 1);
   820                 temp:= copy(value, 2, length(value) - 1);
   821                 tempColor:= StrToInt('0x'+temp);
   821                 tempColor:= StrToInt('$'+temp);
   822 				color:= tempColor
   822                 color:= tempColor
   823                 end;
   823                 end;
   824 
   824 
   825             if clanID <= cClanColors then
   825             if clanID <= cClanColors then
   826                 ClanColorArray[clanID]:= color;
   826                 ClanColorArray[clanID]:= color;
   827 
   827