Fixed compilation on the mac.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@972 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 13 insertions, 13 deletions

diff --git a/Game/Code/Screens/UScreenPartyOptions.pas b/Game/Code/Screens/UScreenPartyOptions.pas
index c0dde4cc..bd05e653 100644
--- a/Game/Code/Screens/UScreenPartyOptions.pas
+++ b/Game/Code/Screens/UScreenPartyOptions.pas
@@ -57,13 +57,13 @@ begin
   If (PressedDown) Then
   begin // Key Down
     // check normal keys
-    case WideUpperCase(CharCode)[1] of

+    case WideCharUpperCase(CharCode)[1] of
       'Q':
-        begin

-          Result := false;

-          Exit;

-        end;

-    end;

+        begin
+          Result := false;
+          Exit;
+        end;
+    end;
 
     // check special keys
     case PressedKey of
@@ -80,13 +80,13 @@ begin
           If (Playlist = 2) and (Length(PlaylistMan.Playlists) = 0) then
             Exit;
           // Don't start when SinglePlayer Teams but only Multiplayer Plugins available
-          OnlyMultiPlayer:=true;

-          for I := 0 to High(DLLMan.Plugins) do begin

-            OnlyMultiPlayer := (OnlyMultiPlayer AND DLLMan.Plugins[I].TeamModeOnly);

-          end;

-          if (OnlyMultiPlayer) AND ((NumPlayer1 = 0) OR (NumPlayer2 = 0) OR ((NumPlayer3 = 0) AND (NumTeams = 1))) then begin

-            ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_PLUGINS'));

-            Exit;

+          OnlyMultiPlayer:=true;
+          for I := 0 to High(DLLMan.Plugins) do begin
+            OnlyMultiPlayer := (OnlyMultiPlayer AND DLLMan.Plugins[I].TeamModeOnly);
+          end;
+          if (OnlyMultiPlayer) AND ((NumPlayer1 = 0) OR (NumPlayer2 = 0) OR ((NumPlayer3 = 0) AND (NumTeams = 1))) then begin
+            ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_PLUGINS'));
+            Exit;
           end;
           //Save Difficulty
           Ini.Difficulty := SelectsS[SelectLevel].SelectedOption;