equal
deleted
inserted
replaced
297 bWaterRising:= true; |
297 bWaterRising:= true; |
298 if bWaterRising and (cWaterRise > 0) then |
298 if bWaterRising and (cWaterRise > 0) then |
299 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; |
299 AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; |
300 inc(step) |
300 inc(step) |
301 end |
301 end |
302 else |
302 else // since we are not raising the water, a second win-check isn't needed |
303 inc(step); |
303 inc(step,2); |
304 stChWin2: |
304 stChWin2: |
305 begin |
305 begin |
306 CheckForWin; |
306 CheckForWin; |
307 inc(step) |
307 inc(step) |
308 end; |
308 end; |