228           end

   228           end

   229     end;

   229     end;

   230 

   230 

   231     procedure GetExplosionBorderColor;

   231     procedure GetExplosionBorderColor;

   232     var f: textfile;

   232     var f: textfile;

   234         c1, c2: TSDL_Color;

   233         c1, c2: TSDL_Color;

   235     begin

   234     begin

   236     s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;

   235     s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;

   237     WriteToConsole(msgLoading + s + ' ');

   236     WriteToConsole(msgLoading + s + ' ');

   238     Assign(f, s);

   237     Assign(f, s);