equal
deleted
inserted
replaced
334 begin |
334 begin |
335 // Start Sudden Death water rise in the 2nd round of Sudden Death |
335 // Start Sudden Death water rise in the 2nd round of Sudden Death |
336 if TotalRoundsPre = cSuddenDTurns + 1 then |
336 if TotalRoundsPre = cSuddenDTurns + 1 then |
337 bWaterRising:= true; |
337 bWaterRising:= true; |
338 if bWaterRising and (cWaterRise > 0) then |
338 if bWaterRising and (cWaterRise > 0) then |
|
339 begin |
|
340 bDuringWaterRise:= true; |
339 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; |
341 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; |
|
342 end; |
340 inc(step) |
343 inc(step) |
341 end |
344 end |
342 else // since we are not raising the water, a second win-check isn't needed |
345 else // since we are not raising the water, another win-check isn't needed |
343 inc(step,2); |
346 inc(step,2); |
344 stChWin3: |
347 stChWin3: |
345 begin |
348 begin |
346 CheckForWin; |
349 CheckForWin; |
|
350 bDuringWaterRise:= false; |
347 inc(step) |
351 inc(step) |
348 end; |
352 end; |
349 |
353 |
350 stHealth: |
354 stHealth: |
351 begin |
355 begin |