equal
deleted
inserted
replaced
80 |
80 |
81 if not TeamsGameOver then |
81 if not TeamsGameOver then |
82 begin |
82 begin |
83 if AliveCount = 0 then |
83 if AliveCount = 0 then |
84 begin // draw |
84 begin // draw |
85 AddCaption(GetEventString(eidRoundDraw), cWhiteColor, capgrpGameState); |
85 AddCaption(GetEventString(eidRoundDraw), capcolDefault, capgrpGameState); |
86 if SendGameResultOn then |
86 if SendGameResultOn then |
87 SendStat(siGameResult, shortstring(trmsg[sidDraw])); |
87 SendStat(siGameResult, shortstring(trmsg[sidDraw])); |
88 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000); |
88 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000); |
89 end |
89 end |
90 else // win |
90 else // win |
94 if TeamsNumber = 1 then // single team wins |
94 if TeamsNumber = 1 then // single team wins |
95 begin |
95 begin |
96 s:= ansistring(Teams[0]^.TeamName); |
96 s:= ansistring(Teams[0]^.TeamName); |
97 // Victory caption is randomly selected |
97 // Victory caption is randomly selected |
98 cap:= FormatA(GetEventString(eidRoundWin), s); |
98 cap:= FormatA(GetEventString(eidRoundWin), s); |
99 AddCaption(cap, cWhiteColor, capgrpGameState); |
99 AddCaption(cap, capcolDefault, capgrpGameState); |
100 s:= FormatA(trmsg[sidWinner], s); |
100 s:= FormatA(trmsg[sidWinner], s); |
101 end |
101 end |
102 else // clan with at least 2 teams wins |
102 else // clan with at least 2 teams wins |
103 begin |
103 begin |
104 s:= ''; |
104 s:= ''; |
115 // List all winning teams in a list |
115 // List all winning teams in a list |
116 s:= FormatA(trmsg[TMsgStrId(Ord(sidWinner2) + (TeamsNumber - 2))], ts); |
116 s:= FormatA(trmsg[TMsgStrId(Ord(sidWinner2) + (TeamsNumber - 2))], ts); |
117 |
117 |
118 // The winner caption is the same as the stats message and not randomized |
118 // The winner caption is the same as the stats message and not randomized |
119 cap:= s; |
119 cap:= s; |
120 AddCaption(cap, cWhiteColor, capgrpGameState); |
120 AddCaption(cap, capcolDefault, capgrpGameState); |
121 // TODO (maybe): Show victory animation/captions per-team instead of all winners at once? |
121 // TODO (maybe): Show victory animation/captions per-team instead of all winners at once? |
122 end; |
122 end; |
123 |
123 |
124 for j:= 0 to Pred(TeamsNumber) do |
124 for j:= 0 to Pred(TeamsNumber) do |
125 with Teams[j]^ do |
125 with Teams[j]^ do |
383 AddVoice(sndYesSir, CurrentTeam^.voicepack); |
383 AddVoice(sndYesSir, CurrentTeam^.voicepack); |
384 end; |
384 end; |
385 if cHedgehogTurnTime < 1000000 then |
385 if cHedgehogTurnTime < 1000000 then |
386 ReadyTimeLeft:= cReadyDelay; |
386 ReadyTimeLeft:= cReadyDelay; |
387 s:= ansistring(CurrentTeam^.TeamName); |
387 s:= ansistring(CurrentTeam^.TeamName); |
388 AddCaption(FormatA(trmsg[sidReady], s), cWhiteColor, capgrpGameState) |
388 AddCaption(FormatA(trmsg[sidReady], s), capcolDefault, capgrpGameState) |
389 end |
389 end |
390 else |
390 else |
391 begin |
391 begin |
392 if TurnTimeLeft > 0 then |
392 if TurnTimeLeft > 0 then |
393 begin |
393 begin |