equal
deleted
inserted
replaced
481 end; |
481 end; |
482 stChWin: if not CheckForWin then inc(step) else step:= stDelay; |
482 stChWin: if not CheckForWin then inc(step) else step:= stDelay; |
483 stWater: begin |
483 stWater: begin |
484 if GameTicks > 25 * 60 * 1000 then bWaterRising:= true; |
484 if GameTicks > 25 * 60 * 1000 then bWaterRising:= true; |
485 |
485 |
486 if not bWaterRising then inc(step); |
486 if not bWaterRising then |
487 if delay = 0 then |
487 inc(step) |
488 delay:= 17 |
|
489 else |
488 else |
490 dec(delay); |
489 begin |
491 |
490 if delay = 0 then |
492 if delay = 0 then |
491 delay:= 17 |
493 if not WaterMachine then inc(step) |
492 else |
|
493 dec(delay); |
|
494 |
|
495 if delay = 0 then |
|
496 if not WaterMachine then inc(step) |
|
497 end |
494 end; |
498 end; |
495 stHealth: begin |
499 stHealth: begin |
496 if GameTicks > 20 * 60 * 1000 then cHealthDecrease:= 5; |
500 if GameTicks > 20 * 60 * 1000 then cHealthDecrease:= 5; |
497 |
501 |
498 if (cHealthDecrease = 0) |
502 if (cHealthDecrease = 0) |