From aa006bc319af1af81c5c703209ba81f4f517fc77 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sun, 4 Apr 2010 17:34:31 +0000 Subject: *NEW: Press Left-Ctrl + * (* on Numpad) or Left-Ctrl + R to Shuffle Player Names in Classic Party Mode "Team- and Player Names"-Screen *NEW: Set "NewPartyPoints" in config.ini to "On" to give Winner Team 2Points and 2nd placed Team 1Point while playing with 3 Teams (default=on) thx to merc! git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2214 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenPartyPlayer.pas | 207 +++++++++++++++++++++++++++++-- 1 file changed, 198 insertions(+), 9 deletions(-) (limited to 'Game/Code/Screens') diff --git a/Game/Code/Screens/UScreenPartyPlayer.pas b/Game/Code/Screens/UScreenPartyPlayer.pas index 750d8963..6c3000bb 100644 --- a/Game/Code/Screens/UScreenPartyPlayer.pas +++ b/Game/Code/Screens/UScreenPartyPlayer.pas @@ -3,9 +3,13 @@ unit UScreenPartyPlayer; Interface uses - UMenu, SDL, UDisplay, UMusic, UFiles, SysUtils, UThemes; + UMenu, SDL, UDisplay, UMusic, UFiles, SysUtils, UThemes, Math; type + + TArrayElement = String; + TArray = array of TArrayElement; + TScreenPartyPlayer = class(TMenu) public Team1Name: Cardinal; @@ -30,8 +34,11 @@ type function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override; procedure onShow; override; procedure SetAnimationProgress(Progress: real); override; + procedure ShuffleNames(var aArray: TArray); end; + + const ID='ID_016'; //for help system @@ -41,8 +48,9 @@ uses UGraphic, UMain, UIni, UTexture, UParty, UHelp, ULog; function TScreenPartyPlayer.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; var - I, J: integer; + I, J, countPlayer: integer; SDL_ModState: Word; + randomNames: TArray; //new for randomize names procedure IntNext; begin repeat @@ -55,14 +63,181 @@ var InteractPrev; until Button[Interaction].Visible; end; + begin + Result := true; If (PressedDown) Then - + begin // Key Down SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT); + + if (SDL_ModState = KMOD_LCTRL) then + begin + case PressedKey of + //-------------------------------------randomize player names---------- mod by merc + // TODO: rewrite! (some for loops?) + SDLK_KP_MULTIPLY, SDLK_R: + begin + + countPlayer := 0; + SetLength(randomNames, 12); + + If (PartySession.Teams.NumTeams>=1) then + begin + If (PartySession.Teams.Teaminfo[0].NumPlayers >=1) then + begin + randomNames[countPlayer] := Button[1].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=2) then + begin + randomNames[countPlayer] := Button[2].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=3) then + begin + randomNames[countPlayer] := Button[3].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=4) then + begin + randomNames[countPlayer] := Button[4].Text[0].Text; + inc(countPlayer); + end; + end; + + If (PartySession.Teams.NumTeams>=2) then + begin + If (PartySession.Teams.Teaminfo[1].NumPlayers >=1) then + begin + randomNames[countPlayer] := Button[6].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=2) then + begin + randomNames[countPlayer] := Button[7].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=3) then + begin + randomNames[countPlayer] := Button[8].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=4) then + begin + randomNames[countPlayer] := Button[9].Text[0].Text; + inc(countPlayer); + end; + end; + + If (PartySession.Teams.NumTeams>=3) then + begin + If (PartySession.Teams.Teaminfo[2].NumPlayers >=1) then + begin + randomNames[countPlayer] := Button[11].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=2) then + begin + randomNames[countPlayer] := Button[12].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=3) then + begin + randomNames[countPlayer] := Button[13].Text[0].Text; + inc(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=4) then + begin + randomNames[countPlayer] := Button[14].Text[0].Text; + inc(countPlayer); + end; + end; + + SetLength(randomNames, countPlayer); + ShuffleNames(randomNames); + + + //Write Names back to Players + dec(countPlayer); + If (PartySession.Teams.NumTeams>=1) then + begin + If (PartySession.Teams.Teaminfo[0].NumPlayers >=1) then + begin + Button[1].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=2) then + begin + Button[2].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=3) then + begin + Button[3].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[0].NumPlayers >=4) then + begin + Button[4].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + end; + + If (PartySession.Teams.NumTeams>=2) then + begin + If (PartySession.Teams.Teaminfo[1].NumPlayers >=1) then + begin + Button[6].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=2) then + begin + Button[7].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=3) then + begin + Button[8].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[1].NumPlayers >=4) then + begin + Button[9].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + end; + + If (PartySession.Teams.NumTeams>=3) then + begin + If (PartySession.Teams.Teaminfo[2].NumPlayers >=1) then + begin + Button[11].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=2) then + begin + Button[12].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=3) then + begin + Button[13].Text[0].Text := randomNames[countPlayer]; + dec(countPlayer); + end; + If (PartySession.Teams.Teaminfo[2].NumPlayers >=4) then + begin + Button[14].Text[0].Text := randomNames[countPlayer]; + //dec(countPlayer); useless... + end; + end; + end; + end; + + end else + begin - begin // Key Down case PressedKey of SDLK_TAB: begin @@ -78,7 +253,7 @@ begin SDLK_F1: if (SDL_ModState = KMOD_LALT) then begin - Ini.NameTemplate[0] := Button[Interaction].Text[0].Text; + Ini.NameTemplate[0] := Button[Interaction].Text[0].Text; end else begin @@ -223,11 +398,10 @@ begin SDLK_LEFT: IntPrev; end; end; + end; end; constructor TScreenPartyPlayer.Create; -var - I: integer; begin inherited Create; @@ -275,7 +449,8 @@ begin Button[5].Text[0].Text := Ini.NameTeam[1]; Button[10].Text[0].Text := Ini.NameTeam[2]; // Templates for Names Mod end - + + If (PartySession.Teams.NumTeams>=1) then begin Button[0].Visible := True; @@ -337,4 +512,18 @@ begin Button[I].Texture.ScaleW := Progress; end; -end. + // perfektes Mischen nach Fisher-Yates (for randomize PlayerNames - merc) +procedure TScreenPartyPlayer.ShuffleNames(var aArray: TArray); + var + i,j: Integer; + tmp: TArrayElement; +begin + for i := Low(aArray) to High(aArray) do begin + j := i +Random(Length(aArray) -i +Low(aArray)); + tmp := aArray[j]; + aArray[j] := aArray[i]; + aArray[i] := tmp; + end; +end; + +end. \ No newline at end of file -- cgit v1.2.3