unit UParty;
interface
uses ModiSDK;
type
TRoundInfo = record
Plugin: Word;
Winner: Byte;
end;
TeamOrderEntry = record
Teamnum: Byte;
Score: Byte;
end;
TeamOrderArray = Array[0..5] of Byte;
TParty_Session = class
private
function GetRandomPlayer(Team: Byte): Byte;
function IsWinner(Player, Winner: Byte): boolean;
procedure GenScores;
public
Teams: TTeamInfo;
Rounds: array of TRoundInfo;
CurRound: Byte;
constructor Create;
procedure StartNewParty(NumRounds: Byte);
procedure StartRound;
procedure EndRound;
function GetTeamOrder: TeamOrderArray;
function GetWinnerString(Round: Byte): String;
end;
var
PartySession: TParty_Session;
implementation
uses UDLLManager, UGraphic, UMain, ULanguage, ULog;
//----------
//Constructor - Prepares the Class
//----------
constructor TParty_Session.Create;
begin
// - Nothing in here atm
end;
//----------
//StartNewParty - Clears the Class and Prepares for new Party
//----------
procedure TParty_Session.StartNewParty(NumRounds: Byte);
var
Plugins: Array of record
ID: Byte;
TimesPlayed: Byte;
end;
TeamMode: Boolean;
Len: Integer;
I, J: Integer;
function GetRandomPlugin: Byte;
var
LowestTP: Byte;
NumPwithLTP: Word;
I: Integer;
R: Word;
begin
LowestTP := high(Byte);
NumPwithLTP := 0;
//Search for Plugins not often played yet
For I := 0 to high(Plugins) do
begin
if (Plugins[I].TimesPlayed < lowestTP) then
begin
lowestTP := Plugins[I].TimesPlayed;
NumPwithLTP := 1;
end
else if (Plugins[I].TimesPlayed = lowestTP) then
begin
Inc(NumPwithLTP);
end;
end;
//Create Random No
R := Random(NumPwithLTP);
//Search for Random Plugin
For I := 0 to high(Plugins) do
begin
if Plugins[I].TimesPlayed = lowestTP then
begin
//Plugin Found
if (R = 0) then
begin
Result := Plugins[I].ID;
Inc(Plugins[I].TimesPlayed);
Break;
end;
Dec(R);
end;
end;
end;
begin
//Set cur Round to Round 1
CurRound := 255;
PlayersPlay := Teams.NumTeams;
//Get Teammode and Set Joker, also set TimesPlayed
TeamMode := True;
For I := 0 to Teams.NumTeams-1 do
begin
if Teams.Teaminfo[I].NumPlayers < 2 then
begin
TeamMode := False;
end;
//Set Player Attributes
For J := 0 to Teams.TeamInfo[I].NumPlayers-1 do
begin
Teams.TeamInfo[I].Playerinfo[J].TimesPlayed := 0;
end;
Teams.Teaminfo[I].Joker := Round(NumRounds*0.7);
Teams.Teaminfo[I].Score := 0;
end;
//Fill Plugin Array
SetLength(Plugins, 0);
For I := 0 to high(DLLMan.Plugins) do
begin
if TeamMode or (Not DLLMan.Plugins[I].TeamModeOnly) then
begin //Add only Plugins Playable with cur. PlayerConfiguration
Len := Length(Plugins);
SetLength(Plugins, Len + 1);
Plugins[Len].ID := I;
Plugins[Len].TimesPlayed := 0;
end;
end;
//Set Rounds
If (Length(Plugins) >= 1) then
begin
SetLength (Rounds, NumRounds);
For I := 0 to NumRounds-1 do
begin
PartySession.Rounds[I].Plugin := GetRandomPlugin;
PartySession.Rounds[I].Winner := 255;
end;
end
else SetLength (Rounds, 0);
end;
//----------
//GetRandomPlayer - Gives back a Random Player to Play next Round
//----------
function TParty_Session.GetRandomPlayer(Team: Byte): Byte;
var
I, R: Integer;
lowestTP: Byte;
NumPwithLTP: Byte;
begin
LowestTP := high(Byte);
NumPwithLTP := 0;
Result := 0;
//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
begin
lowestTP := Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed;
NumPwithLTP := 1;
end
else if (Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed = lowestTP) then
begin
Inc(NumPwithLTP);
end;
end;
//Create Random No
R := Random(NumPwithLTP);
//Search for Random Player
For I := 0 to Teams.Teaminfo[Team].NumPlayers-1 do
begin
if Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed = lowestTP then
begin
//Player Found
if (R = 0) then
begin
Result := I;
Break;
end;
Dec(R);
end;
end;
{//Get lowest TimesPlayed
lowestTP := high(Byte);
J := -1;
for I := 0 to Teams.Teaminfo[Team].NumPlayers-1 do
begin
if (Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed < lowestTP) then
begin
lowestTP := Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed;
J := I;
end
else if (Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed = lowestTP) then
begin
J := -1;
end;
end;
//If more than one Person has lowestTP then Select Random Player
if (J < 0) then
repeat
Result := Random(Teams.Teaminfo[Team].NumPlayers);
until (Teams.Teaminfo[Team].Playerinfo[Result].TimesPlayed = lowestTP)
else //Else Select the one with lowest TP
Result:= J;}
end;
//----------
//StartNextRound - Prepares ScreenSingModi for Next Round And Load Plugin
//----------
procedure TParty_Session.StartRound;
var
I: Integer;
begin
if ((CurRound < high(Rounds)) OR (CurRound = high(CurRound))) then
begin
//Increase Current Round
Inc (CurRound);
Rounds[CurRound].Winner := 255;
DllMan.LoadPlugin(Rounds[CurRound].Plugin);
//Select Players
for I := 0 to Teams.NumTeams-1 do
Teams.Teaminfo[I].CurPlayer := GetRandomPlayer(I);
//Set ScreenSingModie Variables
ScreenSingModi.TeamInfo := Teams;
//Set
end;
end;
//----------
//IsWinner - Returns True if the Players Bit is set in the Winner Byte
//----------
function TParty_Session.IsWinner(Player, Winner: Byte): boolean;
var
Bit: Byte;
begin
Case Player of
0: Bit := 1;
1: Bit := 2;
2: Bit := 4;
3: Bit := 8;
4: Bit := 16;
5: Bit := 32;
end;
Result := ((Winner AND Bit) = Bit);
end;
//----------
//GenScores - Inc Scores for Cur. Round
//----------
procedure TParty_Session.GenScores;
var
I: Byte;
begin
for I := 0 to Teams.NumTeams-1 do
begin
if isWinner(I, Rounds[CurRound].Winner) then
Inc(Teams.Teaminfo[I].Score);
end;
end;
//----------
//GetWinnerString - Get String with WinnerTeam Name, when there is more than one Winner than Connect with and or ,
//----------
function TParty_Session.GetWinnerString(Round: Byte): String;
var
Winners: Array of String;
I: Integer;
begin
Result := Language.Translate('PARTY_NOBODY');
if (Round > High(Rounds)) then
exit;
if (Rounds[Round].Winner = 0) then
begin
exit;
end;
if (Rounds[Round].Winner = 255) then
begin
Result := Language.Translate('PARTY_NOTPLAYEDYET');
exit;
end;
SetLength(Winners, 0);
for I := 0 to Teams.NumTeams-1 do
begin
if isWinner(I, Rounds[Round].Winner) then
begin
SetLength(Winners, Length(Winners) + 1);
Winners[high(Winners)] := Teams.TeamInfo[I].Name;
end;
end;
Result := Language.Implode(Winners);
end;
//----------
//EndRound - Get Winner from ScreenSingModi and Save Data to RoundArray
//----------
procedure TParty_Session.EndRound;
var
I: Integer;
begin
//Copy Winner
Rounds[CurRound].Winner := ScreenSingModi.Winner;
//Set Scores
GenScores;
//Increase TimesPlayed 4 all Players
For I := 0 to Teams.NumTeams-1 do
Inc(Teams.Teaminfo[I].Playerinfo[Teams.Teaminfo[I].CurPlayer].TimesPlayed);
end;
//----------
//GetTeamOrder - Gives back the Placing of eacb Team [First Position of Array is Teamnum of first placed Team, ...]
//----------
function TParty_Session.GetTeamOrder: TeamOrderArray;
var
I, J: Integer;
ATeams: array [0..5] of TeamOrderEntry;
TempTeam: TeamOrderEntry;
begin
//Fill Team Array
For I := 0 to Teams.NumTeams-1 do
begin
ATeams[I].Teamnum := I;
ATeams[I].Score := Teams.Teaminfo[I].Score;
end;
//Sort Teams
for J := 0 to Teams.NumTeams-1 do
for I := 1 to Teams.NumTeams-1 do
if ATeams[I].Score > ATeams[I-1].Score then
begin
TempTeam := ATeams[I-1];
ATeams[I-1] := ATeams[I];
ATeams[I] := TempTeam;
end;
//Copy to Result
For I := 0 to Teams.NumTeams-1 do
Result[I] := ATeams[I].TeamNum;
end;
end.
