1 files changed, 9 insertions, 14 deletions
diff --git a/ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas b/ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas
index ea8e8bc5..d38a6435 100644
--- a/ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas
+++ b/ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas
@@ -71,18 +71,11 @@ type
 
 implementation
 
-uses
-  UGraphic,
-  UMain,
-  UIni,
-  UTexture,
-  UParty;
+uses UGraphic, UMain, UIni, UTexture, UParty;
 
 function TScreenPartyPlayer.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
 var
-  SDL_ModState:  word;
-  I, J: integer;
-
+  SDL_ModState:  Word;
   procedure IntNext;
   begin
     repeat
@@ -241,7 +234,7 @@ begin
       SDLK_RETURN:
         begin
 
-          //Save PlayerNames
+          {//Save PlayerNames
           for I := 0 to PartySession.Teams.NumTeams-1 do
           begin
             PartySession.Teams.Teaminfo[I].Name := PChar(Button[I*5].Text[0].Text);
@@ -252,8 +245,8 @@ begin
             end;
           end;
 
-          AudioPlayback.PlaySound(SoundLib.Start);
-          FadeTo(@ScreenPartyNewRound);
+          AudioPlayback.PlayStart;
+          FadeTo(@ScreenPartyNewRound);}
         end;
 
       // Up and Down could be done at the same time,
@@ -268,6 +261,8 @@ begin
 end;
 
 constructor TScreenPartyPlayer.Create;
+//var
+// I:    integer; // Auto Removed, Unused Variable
 begin
   inherited Create;
 
@@ -315,7 +310,7 @@ begin
     Button[10].Text[0].Text := Ini.NameTeam[2];
     // Templates for Names Mod end
   
-  If (PartySession.Teams.NumTeams>=1) then
+  {If (PartySession.Teams.NumTeams>=1) then
   begin
     Button[0].Visible := True;
     Button[1].Visible := (PartySession.Teams.Teaminfo[0].NumPlayers >=1);
@@ -364,7 +359,7 @@ begin
     Button[12].Visible := False;
     Button[13].Visible := False;
     Button[14].Visible := False;
-  end;
+  end;   }
 
 end;