hedgewars/uSound.pas
changeset 7984 619a399bece8
parent 7980 7f8df51553a7
child 8015 e7869e70db35
equal deleted inserted replaced
7982:dfba2515d601 7984:619a399bece8
   137         else
   137         else
   138             begin
   138             begin
   139             path:= Pathz[ptVoices] + '/' + locName;
   139             path:= Pathz[ptVoices] + '/' + locName;
   140             if DirectoryExists(path) then
   140             if DirectoryExists(path) then
   141                 name:= locName
   141                 name:= locName
   142             else if Length(cLocale) > 2
   142             else if Length(cLocale) > 3
   143                 then
   143                 then
   144                 begin
   144                 begin
   145                 locName:= name+'_'+Copy(cLocale,1,2);
   145                 locName:= name+'_'+Copy(cLocale,1,2);
   146                 path:= UserPathz[ptVoices] + '/' + locName;
   146                 path:= UserPathz[ptVoices] + '/' + locName;
   147                 if DirectoryExists(path) then
   147                 if DirectoryExists(path) then