hedgewars/uGears.pas
changeset 10254 eb28335df088
parent 10236 8fa1ccfba752
child 10395 0d20f6fc038a
equal deleted inserted replaced
10253:ea57f2f2b98d 10254:eb28335df088
   319                     Ammoz[amTardis].SkipTurns:= 9999;
   319                     Ammoz[amTardis].SkipTurns:= 9999;
   320                     Ammoz[amTardis].Probability:= 0;
   320                     Ammoz[amTardis].Probability:= 0;
   321                     end;
   321                     end;
   322                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   322                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   323                 playSound(sndSuddenDeath);
   323                 playSound(sndSuddenDeath);
   324                 StopMusic //No SDMusic for now
   324                 StopMusic;
   325                     //ChangeMusic(SDMusic)
   325                 if SDMusicFN <> '' then PlayMusic
   326                     end
   326                 end
   327                 else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then
   327             else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then
   328                     begin
   328                 begin
   329                     i:= cSuddenDTurns - TotalRounds;
   329                 i:= cSuddenDTurns - TotalRounds;
   330                     s:= ansistring(inttostr(i));
   330                 s:= ansistring(inttostr(i));
   331                     if i = 1 then
   331                 if i = 1 then
   332                         AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
   332                     AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
   333                     else if (i = 2) or ((i > 0) and ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then
   333                 else if (i = 2) or ((i > 0) and ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then
   334                         AddCaption(FormatA(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);
   334                     AddCaption(FormatA(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);
   335                     end;
       
   336                 end;
   335                 end;
       
   336             end;
   337             if bBetweenTurns
   337             if bBetweenTurns
   338             or isInMultiShoot
   338             or isInMultiShoot
   339             or (TotalRounds = -1) then
   339             or (TotalRounds = -1) then
   340                 inc(step)
   340                 inc(step)
   341             else
   341             else