diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-03-21 19:59:22 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-03-21 19:59:22 +0000 |
commit | c08726cd35fc71e85ba767b67aa73b77538af307 (patch) | |
tree | e617a903dd2d4a6c9f8ff81da4b9527185745445 /ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas | |
parent | b38772ffdbcc6bf2189d0e14a9828f911ea44a7d (diff) | |
download | usdx-c08726cd35fc71e85ba767b67aa73b77538af307.tar.gz usdx-c08726cd35fc71e85ba767b67aa73b77538af307.tar.xz usdx-c08726cd35fc71e85ba767b67aa73b77538af307.zip |
whiteshark's new plugin mode check-in
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1644 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas')
-rw-r--r-- | ServiceBasedPlugins/src/screens/UScreenPartyPlayer.pas | 23 |
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; |