From 17cfff8c4f38f58b33038622a2fed261c9fa6088 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Wed, 26 Nov 2008 22:46:11 +0000 Subject: formatting and modi change to modus git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1528 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/UParty.pas | 54 ++++++++++++++++++++++++++--------------------------- 1 file changed, 27 insertions(+), 27 deletions(-) diff --git a/src/base/UParty.pas b/src/base/UParty.pas index f86377f5..18d15745 100644 --- a/src/base/UParty.pas +++ b/src/base/UParty.pas @@ -104,7 +104,7 @@ type end; const - StandardModi = 0; //Modus ID that will be played in non-party mode + StandardModus = 0; //Modus ID that will be played in non-party mode implementation @@ -138,7 +138,7 @@ constructor TPartySession.Create; begin inherited; //UnSet PartyMode - bPartyMode := False; + bPartyMode := false; end; //------------- @@ -150,7 +150,7 @@ end; function TPartySession.Load: boolean; begin //Add register party modus service - Result := True; + Result := true; Core.Services.AddService('Party/RegisterModi', nil, Self.RegisterModi); Core.Services.AddService('Party/StartParty', nil, Self.StartParty); Core.Services.AddService('Party/GetCurModi', nil, Self.GetCurModi); @@ -223,7 +223,7 @@ var I: integer; R: word; begin - Result := StandardModi; //If there are no matching modi, play standard modus + Result := StandardModus; //If there are no matching modi, play standard modus LowestTP := high(byte); NumPwithLTP := 0; @@ -241,15 +241,15 @@ begin end; end; - //Create Random No + //Create random no R := Random(NumPwithLTP); - //Search for Random Plugin + //Search for random plugin for I := 0 to high(Modis) do begin if (Modis[I].TimesPlayed = lowestTP) and (((Modis[I].Info.LoadingSettings and MLS_TeamOnly) <> 0) = TeamMode) then begin - //Plugin Found + //Plugin found if (R = 0) then begin Result := I; @@ -278,8 +278,8 @@ begin aiRounds := PAofIRounds; try - //Is this Teammode(More then one Player per Team) ? - TeamMode := True; + //Is this team mode (More than one player per team) ? + TeamMode := true; for I := 0 to Teams.NumTeams-1 do TeamMode := TeamMode and (Teams.Teaminfo[I].NumPlayers > 1); @@ -287,31 +287,31 @@ begin SetLength(Rounds, NumRounds); for I := 0 to High(Rounds) do - begin //Set Plugins + begin //Set plugins if (aiRounds[I] = -1) then Rounds[I].Modi := GetRandomPlugin(TeamMode) else if (aiRounds[I] >= 0) and (aiRounds[I] <= High(Modis)) and (TeamMode or ((Modis[aiRounds[I]].Info.LoadingSettings and MLS_TeamOnly) = 0)) then Rounds[I].Modi := aiRounds[I] else - Rounds[I].Modi := StandardModi; + Rounds[I].Modi := StandardModus; - Rounds[I].Winner := High(byte); //Set Winner to Not Played + Rounds[I].Winner := High(byte); //Set winner to not played end; CurRound := High(byte); //Set CurRound to not defined - //Return teh true and Set PartyMode - bPartyMode := True; + //Return true and set party mode + bPartyMode := true; Result := 1; except - Core.ReportError(integer(PChar('Can''t start PartyMode.')), PChar('TPartySession')); + Core.ReportError(integer(PChar('Can''t start party mode.')), PChar('TPartySession')); end; end; end; //---------- -// Returns Pointer to Cur. ModiInfoEx (to use with sing screen) +// Returns pointer to Cur. ModiInfoEx (to use with sing screen) //---------- function TPartySession.GetCurModi(wParam: TwParam; lParam: TlParam): integer; begin @@ -321,21 +321,21 @@ begin Result := integer(@Modis[Rounds[CurRound].Modi]); end else - begin //Return StandardModi - Result := integer(@Modis[StandardModi]); + begin //Return standard modus + Result := integer(@Modis[StandardModus]); end; end; //---------- -// Stops Party Mode. Returns 1 If Partymode was enabled before. And -1 if Change was not possible +// Stops party mode. Returns 1 if party mode was enabled before and -1 if change was not possible //---------- function TPartySession.StopParty(wParam: TwParam; lParam: TlParam): integer; begin Result := -1; if (bPartyMode) then begin - // to-do : Whitü: Check here if SingScreen is not Shown atm. - bPartyMode := False; + // to-do : Whitü: Check here if sing screen is not shown atm. + bPartyMode := false; Result := 1; end else @@ -355,7 +355,7 @@ begin NumPwithLTP := 0; Result := 0; - //Search for Players that have not often played yet + //Search for players that have not often played yet for I := 0 to Teams.Teaminfo[Team].NumPlayers-1 do begin if (Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed < lowestTP) then @@ -445,7 +445,7 @@ begin if (not bPartyMode) then begin //Set rounds if not in party mode SetLength(Rounds, 1); - Rounds[0].Modi := StandardModi; + Rounds[0].Modi := StandardModus; Rounds[0].Winner := High(byte); CurRound := 0; end; @@ -456,14 +456,14 @@ begin on E : Exception do begin Core.ReportError(integer(PChar('Error starting modus: ' + Modis[Rounds[CurRound].Modi].Info.Name + ' ErrorStr: ' + E.Message)), PChar('TPartySession')); - if (Rounds[CurRound].Modi = StandardModi) then + if (Rounds[CurRound].Modi = StandardModus) then begin Core.ReportError(integer(PChar('Can''t start standard modus, will exit now!')), PChar('TPartySession')); Halt; end - else //Select StandardModi + else //Select standard modus begin - Rounds[CurRound].Modi := StandardModi + Rounds[CurRound].Modi := StandardModus end; end; end; @@ -650,7 +650,7 @@ begin Result := Length(ResultStr); end else - begin //Return String + begin //Return string try S := lParam; S^ := ResultStr; -- cgit v1.2.3