Chat sounds: Use AnsiLowerCase for russian letters

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index ebb1387e79153cebaeeb33d2382545a2d2c44ebe..6d5717cbc99520a13079b81d6076320e822d6142 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -2091,7 +2091,7 @@ begin
     gChatSounds[i].Sound.SetByName('SOUND_CHAT_MACRO' + IntToStr(i));
     SetLength(gChatSounds[i].Tags, tags);
     for j := 0 to tags - 1 do
-      gChatSounds[i].Tags[j] := LowerCase(cfg.ReadStr(IntToStr(i), 'Tag' + IntToStr(j), ''));
+      gChatSounds[i].Tags[j] := AnsiLowerCase(cfg.ReadStr(IntToStr(i), 'Tag' + IntToStr(j), ''));
     gChatSounds[i].FullWord := cfg.ReadBool(IntToStr(i), 'FullWord', False);
   end;
 
@@ -6981,7 +6981,7 @@ begin
     // remove player name
     Delete(Text, 1, Pos(': ', Text) + 2 - 1);
     // for FullWord check
-    Text := LowerCase(' ' + Text + ' ');
+    Text := AnsiLowerCase(' ' + Text + ' ');
     fpText := FilterPunctuation(Text);
 
     for i := 0 to Length(gChatSounds) - 1 do