From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Wed, 28 Apr 2010 19:54:31 +0000 Subject: - new SDL.dll (with a quick and dirty workaround for the hanging-mouse problem) - changing of sorting and folder-option (on/off) does not need any restart now - a lot of code clean up - some bugfixes... i hope... dont't know which... git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UParty.pas | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'Game/Code/Classes/UParty.pas') diff --git a/Game/Code/Classes/UParty.pas b/Game/Code/Classes/UParty.pas index e9d21da3..22a4847c 100644 --- a/Game/Code/Classes/UParty.pas +++ b/Game/Code/Classes/UParty.pas @@ -80,9 +80,8 @@ Type end; var - I, J, K: Integer; + I, K: Integer; plugin_order: array of TOrder; - temp: TOrder; min, len: integer; begin @@ -123,8 +122,8 @@ end; //---------- procedure TParty_Session.StartNewParty(NumRounds: Byte); var - TeamMode: Boolean; - Len: Integer; + //TeamMode: Boolean; + //Len: Integer; I, J: Integer; NumMedleys: Integer; @@ -153,13 +152,13 @@ begin PlayersPlay := Teams.NumTeams; //Get Teammode and Set Joker, also set TimesPlayed - TeamMode := True; + //TeamMode := True; For I := 0 to Teams.NumTeams-1 do begin - if Teams.Teaminfo[I].NumPlayers < 2 then + {if Teams.Teaminfo[I].NumPlayers < 2 then begin TeamMode := False; - end; + end;} //Set Player Attributes For J := 0 to Teams.TeamInfo[I].NumPlayers-1 do begin -- cgit v1.2.3