hedgewars/uGears.pas
changeset 4215 36632d5b8492
parent 4210 caa9b08990eb
child 4216 184181604092
equal deleted inserted replaced
4214:a362676dec6d 4215:36632d5b8492
   810     stChWin2: begin
   810     stChWin2: begin
   811             CheckForWin;
   811             CheckForWin;
   812             inc(step)
   812             inc(step)
   813             end;
   813             end;
   814     stHealth: begin
   814     stHealth: begin
   815             if (TotalRounds = cSuddenDTurns) and not SuddenDeathDmg and not isInMultiShoot then
   815             if (cWaterRise <> 0) or (cHealthDecrease <> 0) then
   816                 begin
   816                 begin
   817                 SuddenDeathDmg:= true;
   817                 if (TotalRounds = cSuddenDTurns) and not SuddenDeathDmg and not isInMultiShoot then
   818                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   818                     begin
   819                 playSound(sndSuddenDeath)
   819                     SuddenDeathDmg:= true;
   820                 end
   820                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   821             else if (TotalRounds < cSuddenDTurns) and not isInMultiShoot then
   821                     playSound(sndSuddenDeath)
   822                 begin
   822                     end
   823                 i:= cSuddenDTurns - TotalRounds;
   823                 else if (TotalRounds < cSuddenDTurns) and not isInMultiShoot then
   824                 s:= inttostr(i);
   824                     begin
   825                 if i = 1 then
   825                     i:= cSuddenDTurns - TotalRounds;
   826                     AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
   826                     s:= inttostr(i);
   827                 else if i in [2, 5, 10, 15, 20, 25, 50, 100] then
   827                     if i = 1 then
   828                     AddCaption(Format(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);
   828                         AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
       
   829                     else if i in [2, 5, 10, 15, 20, 25, 50, 100] then
       
   830                         AddCaption(Format(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);
       
   831                     end;
   829                 end;
   832                 end;
   830             if bBetweenTurns
   833             if bBetweenTurns
   831                 or isInMultiShoot
   834                 or isInMultiShoot
   832                 or (TotalRounds = -1) then inc(step)
   835                 or (TotalRounds = -1) then inc(step)
   833             else begin
   836             else begin