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 |