From: Stas'M <x86corez@gmail.com>
Date: Fri, 12 Jan 2018 21:45:27 +0000 (+0300)
Subject: Chat sounds: Use AnsiLowerCase for russian letters
X-Git-Url: https://deadsoftware.ru/gitweb?a=commitdiff_plain;h=4b4f3cfdb0e58bf81fb6ccd3fb938413782a1aab;p=d2df-sdl.git

Chat sounds: Use AnsiLowerCase for russian letters
---

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index ebb1387..6d5717c 100644
--- 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