--- a/hedgewars/uStore.pas Tue Oct 09 11:28:07 2018 -0400
+++ b/hedgewars/uStore.pas Tue Oct 09 12:54:40 2018 -0400
@@ -774,7 +774,6 @@
key, value, l, temp: shortstring;
color, tempColor: Longword;
clanID, tempClanID: byte;
- conversionSuccess: boolean;
begin
if cOnlyStats then exit;
@@ -787,7 +786,6 @@
while (not pfsEOF(f)) and (l <> '[colors]') do
pfsReadLn(f, l);
- conversionSuccess:= false;
while (not pfsEOF(f)) and (l <> '') do
begin
pfsReadLn(f, l);
@@ -803,11 +801,8 @@
if temp = 'color' then
begin
temp:= copy(key, 6, length(key) - 5);
- tempClanID:= StrToInt(temp, conversionSuccess);
- if conversionSuccess then
- clanID:= tempClanID
- else
- continue;
+ tempClanID:= StrToInt(temp);
+ clanID:= tempClanID
end
else
continue;
@@ -822,11 +817,8 @@
if value[1] <> '#' then
continue;
temp:= copy(value, 2, length(value) - 1);
- tempColor:= StrToInt('0x'+temp, conversionSuccess);
- if conversionSuccess then
- color:= tempColor
- else
- continue;
+ tempColor:= StrToInt('0x'+temp);
+ color:= tempColor
end;
if clanID <= cClanColors then