hedgewars/uTeams.pas
changeset 13832 10a3b80130b5
parent 13808 5c6052351991
child 13864 f68bb13f7bc7
equal deleted inserted replaced
13831:b07610de9957 13832:10a3b80130b5
   127                     s:= trmsg[sidWinnerAll];
   127                     s:= trmsg[sidWinnerAll];
   128                     allWin:= true;
   128                     allWin:= true;
   129                     end
   129                     end
   130                 else if (TeamsNumber >= 2) and (TeamsNumber < cMaxTeams) then
   130                 else if (TeamsNumber >= 2) and (TeamsNumber < cMaxTeams) then
   131                     // List all winning teams in a list
   131                     // List all winning teams in a list
   132                     s:= FormatA(trmsg[TMsgStrId(Ord(sidWinner2) + (TeamsNumber - 2))], ts);
   132                     if (TeamsNumber = 2) then
       
   133                         s:= FormatA(trmsg[TMsgStrId(sidWinner2)], ts[0], ts[1])
       
   134                     else if (TeamsNumber = 3) then
       
   135                         s:= FormatA(trmsg[TMsgStrId(sidWinner3)], ts[0], ts[1], ts[2])
       
   136                     else if (TeamsNumber = 4) then
       
   137                         s:= FormatA(trmsg[TMsgStrId(sidWinner4)], ts[0], ts[1], ts[2], ts[3])
       
   138                     else if (TeamsNumber = 5) then
       
   139                         s:= FormatA(trmsg[TMsgStrId(sidWinner5)], ts[0], ts[1], ts[2], ts[3], ts[4])
       
   140                     else if (TeamsNumber = 6) then
       
   141                         s:= FormatA(trmsg[TMsgStrId(sidWinner6)], ts[0], ts[1], ts[2], ts[3], ts[4], ts[5])
       
   142                     else if (TeamsNumber = 7) then
       
   143                         s:= FormatA(trmsg[TMsgStrId(sidWinner7)], ts[0], ts[1], ts[2], ts[3], ts[4], ts[5], ts[6]);
   133 
   144 
   134                 // The winner caption is the same as the stats message and not randomized
   145                 // The winner caption is the same as the stats message and not randomized
   135                 cap:= s;
   146                 cap:= s;
   136                 AddCaption(cap, capcolDefault, capgrpGameState);
   147                 AddCaption(cap, capcolDefault, capgrpGameState);
   137                 // TODO (maybe): Show victory animation/captions per-team instead of all winners at once?
   148                 // TODO (maybe): Show victory animation/captions per-team instead of all winners at once?