equal
deleted
inserted
replaced
516 CheckForWin; |
516 CheckForWin; |
517 inc(step) |
517 inc(step) |
518 end; |
518 end; |
519 stWater: if (not bBetweenTurns) and (not isInMultiShoot) then |
519 stWater: if (not bBetweenTurns) and (not isInMultiShoot) then |
520 begin |
520 begin |
521 if TotalRounds = 17 then bWaterRising:= true; |
521 if TotalRounds = cSuddenDTurns + 2 then bWaterRising:= true; |
522 |
522 |
523 if bWaterRising then |
523 if bWaterRising then |
524 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0); |
524 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0); |
525 |
525 |
526 inc(step) |
526 inc(step) |
528 stChWin2: begin |
528 stChWin2: begin |
529 CheckForWin; |
529 CheckForWin; |
530 inc(step) |
530 inc(step) |
531 end; |
531 end; |
532 stHealth: begin |
532 stHealth: begin |
533 if (TotalRounds = 15) and (cHealthDecrease = 0) then |
533 if (TotalRounds = cSuddenDTurns) and (cHealthDecrease = 0) then |
534 begin |
534 begin |
535 cHealthDecrease:= 5; |
535 cHealthDecrease:= 5; |
536 AddCaption(trmsg[sidSuddenDeath], $FFFFFF, capgrpGameState) |
536 AddCaption(trmsg[sidSuddenDeath], $FFFFFF, capgrpGameState) |
537 end; |
537 end; |
538 |
538 |