changeset 7667 | 4346566c5a58 |
parent 7666 | 8212121cf6a1 |
child 7669 | a85e1c167b69 |
--- a/hedgewars/uGears.pas Tue Sep 04 12:34:00 2012 +0200 +++ b/hedgewars/uGears.pas Tue Sep 04 12:43:55 2012 +0200 @@ -299,8 +299,8 @@ AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; inc(step) end - else - inc(step); + else // since we are not raising the water, a second win-check isn't needed + inc(step,2); stChWin2: begin CheckForWin;